如何把一个dos程序封装成windows程序(100分)

我有个dos小程序，输入命令行，转换一种特定的文件格式s2为txt的小软件，我想把这个
dos小程序封装成有可视化界面的windows程序，不知道应该怎么做。请教各位。

winexec( )

能不能回答的详细一点呢，最好有一个简单的范例。谢谢

你用Delphi作一个界面，然后用Winexec()函数调用你的dos程序。
假如你的dos程序名为test,使用时格式为test f1 f2
用Winexec则为：
Tstr :=（test路径）+'test f1 f2';
WinExeC(PChar(TStr),0);

这里有一个例子，他是想利用Dos下的ARJ压缩程序，而且让人看不出来调用Dos下的程序
先把ARJ.exe作为资源编译进windows界面的EXE文件，在程序运行时再将ARJ.exe分离到系统的临时目录，然后再调用进程完成压缩或解压缩，下面的代码是BCB的，供你参考
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <windows.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
char exefile[100], tmppath[100] ;
unsigned long ret ;
GetTempPath( 100, tmppath ) ;
strcpy( exefile ,(AnsiString(tmppath)+
AnsiString("//arj.exe") ).c_str() ) ;
ret = GetFileAttributes( exefile ) ;
if( ret == 0xffffffff ) {
TResourceStream &rs = *new TResourceStream(
(int)HInstance, AnsiString("arjfile"),"EXEFILE" ) ;
rs.SaveToFile( AnsiString(exefile) ) ;
delete &rs ;
}
SaveDialog1->Filter="ARJ archive files(*.Arj)|*.Arj";
SaveDialog1->Title="压缩到文件";
OpenDialog1->Filter="ARJ archive files(*.Arj)|*.Arj";
OpenDialog1->Title="解压压缩档案";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
bool proc_create_state;
AnsiString mCommand;
char tmppath[100];
PROCESS_INFORMATION piProcInfo;
STARTUPINFO siStartInfo;
siStartInfo.cb=sizeof(STARTUPINFO);
siStartInfo.lpReserved=NULL;
siStartInfo.lpDesktop=NULL;
siStartInfo.lpTitle=NULL;
siStartInfo.cbReserved2=0;
siStartInfo.lpReserved2=NULL;
siStartInfo.dwFlags=STARTF_USESHOWWINDOW;
siStartInfo.wShowWindow=SW_HIDE;
if (SaveDialog1->Execute()){
GetTempPath(100,tmppath);
mCommand=AnsiString(tmppath)+"//arj.exe a "+
SaveDialog1->FileName+" "+
Label2->Caption;
proc_create_state=
CreateProcess(NULL,mCommand.c_str(),NULL,NULL,false,
NULL,NULL,NULL,&siStartInfo,&piProcInfo);
if (proc_create_state)
StatusBar1->Panels->Items[0]->Text="压缩成功...";

}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
bool proc_create_state;
AnsiString mCommand;
char tmppath[100];
PROCESS_INFORMATION piProcInfo;
STARTUPINFO siStartInfo;
siStartInfo.cb=sizeof(STARTUPINFO);
siStartInfo.lpReserved=NULL;
siStartInfo.lpDesktop=NULL;
siStartInfo.lpTitle=NULL;
siStartInfo.cbReserved2=0;
siStartInfo.lpReserved2=NULL;
siStartInfo.dwFlags=STARTF_USESHOWWINDOW;
siStartInfo.wShowWindow=SW_HIDE;
if (OpenDialog1->Execute()){
GetTempPath(100,tmppath);
mCommand=AnsiString(tmppath)+"//arj.exe e "+
SaveDialog1->FileName+" "+
Edit1->Text;
proc_create_state=
CreateProcess(NULL,mCommand.c_str(),NULL,NULL,false,
NULL,NULL,NULL,&siStartInfo,&piProcInfo);
if (proc_create_state)
StatusBar1->Panels->Items[0]->Text="解压缩成功...";

}
}
//---------------------------------------------------------------------------

首先谢谢大家的热心帮助，chuguozhen的功能比较符合我的要求，能不能有类似delphi的代码
范例，因为的编程的水平实在不怎么样，谢谢了

其实很容易改的

你不能从你的角度看问题，要站在我无知这个角度看问题，就觉得不简单了，拜托了...。

谁能不能提供delphi的代码范例呀，chuguozhen,tianjh007兄，能否帮忙到底。

不好意思啦，chuguozhen的方法我不会
我学Delphi刚两个月，也是个新手
我试着翻译一下他的那段程序，要是成功的话再发给你。

[]不管如何，感谢先,另外请在程序上加必要的注释。

tianjh007 请在翻译好的程序上加上必要的注释，谢谢

不用翻，有现成的：
function WinExecAndWait32(FileName:String; Visibility : integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
//MyResultWORD;

hStdIn:THandle; // standard input handle
//inputBuffer:INPUT_RECORD; //buffer to hold a single console input record
irMacroBuf:INPUT_RECORD; // array of input events
dwBytesWritten : DWORD;

begin
SetConsoleTitle('s');
StrPCopy(zAppName,FileName);
//MainForm.Caption := zappname;
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
hStdIn:= StartupInfo.hStdInput;
StartupInfo.hStdInput:= hStdIn;
StartupInfo.lpTitle:=@zAppName;
StartupInfo.dwFlags := StartupInfo.dwFlags or STARTF_USESTDHANDLES;

WriteConsoleInput(hStdIn,irMacroBuf,1,dwBytesWritten);

StartupInfo.dwFlags := StartupInfo.dwFlags or STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }

else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
Result:=1;
end;
end;

其实非常简单，用不着这么复杂，用Winexec()或ShellExectute()就够了。

翻出来也没有什么坏处，集思广益才是学习之道嘛。zw84611兄说不用那么复杂，
那么你也可以比较你贴的复杂和不复杂的方法呀。功能需求很可能都会有差别。
了解不同方法的差异，也不失为一种学习得好方法。我想这种观点对任何人都
适用。[]

tristones
我在网上找到点关于资源文件的资料，把这个和Winexec或是ShellExecute联系起来我想因该
能解决你的问题了，你看看。

谈Delphi编程中资源文件的应用
陈经韬
(一)初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi
在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE
(一般位于/Delphi/BIN目录下）,我们完全可以做出跟VC一样效果的文件来。
资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,
生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要
临时调用一幅图片,一般作法是把图片放在某一路径下（通常是主程序所在路径）,
但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,
如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为：
1.编写rc脚本文本
用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：

mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标

格式分别为在资源文件中的名称->类型->实际文件名称，例如上面第一行定义
一个名为mycur的光标，实际名称为加入光标move.cur.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：
Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行
Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只
有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明
搜索路径的。)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我
们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后
加上一句{$R mufirst.res}，则将res文件加入去，编译后资 源文件即已包含在
可执行文件中了。若你有多个资源文件，也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认
的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件
中添加以下代码：
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控
件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：
Panel1.cursor:=35;
<2>位图的调用
新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程，添加一Animate控件，在需要的地方加入：
animater1.resname:='myAVI';
animater1.Active:=true;
其中myAVI为视频文件在资源文件中的名称。
〈4〉调用WAV文件
在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时
Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);
其中mywav为声音文件在资源中的名称。
〈5〉加入光标
加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好
取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。这样一
来，别人在使用你的程序时如果想选择其它图标就有很多选择了。
补充：
1.资源类型除上述类型外，还可以字体文件，字符串文件等。
2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
下面我们来试验一下：
新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：
writeln('演示程序，按任意键开始！');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！');
运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!
我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹
出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做
的。
3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本
文的方法比较，可得出下表：

**************************************
Image Editor Brcc32

BMP 只支持16位色 任意色

光标 黑白两色 任意色

ICO 只支持16位色 任意色

AVI 不支持 支持

WAV 不支持 支持

字体
字符串 不支持 支持
其他
****************************************

上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你
的程序携带其它文件，要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes，本例中使用如下:
ExtractRes('exefile','myexe','c:/new.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了.

function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
----------------------------------------------------------------------
(二)中级应用篇:
上面我们已经知道如何把一副BMP图像从资源文件里面读出来,但是BMP文件太
大了,JPG文件应用的相对较多.那么如何把JPG图像读出来呢?用资源文件加流方式
即可。具体方法如下:
(1)MyJpg JPEG　My.JPG
(2)Var
　　　Stream:TStream;
　　　MyJpg:TJpegImage;
　　Begin
　　　Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
　　　Try
　　　　　MyJpg:=TJpegImage.Create;
　　　　Try
　　　　　　MyJpg.LoadfromStream(Stream);
　　　　　　Image1.Picture.Assignc(MyJpg);
　　　　Finally
　　　　　　MyJpg.Free;
　　　　end;
　　　Finally
　　　　Stream.Free;
　　　end;
　　end;
读取其它图片文件也是一样的.比如说gif动画文件，当然前提是你有一个
gif.pas，这个单元很多站点都有的，可以自己去找找。实际应用中我还发现用上
面的代码可以直接显示资源文件中的ICON和BMP.

非常感谢大家的帮助，只有100分，大家都给点。特别感谢tianjh007关注这个问题。