怎么样 用DELPHI 加载 其他应用程序 急用 在线等待 快 快 救命

[fjeros]

我用 DELPHI 做了个启动 界面 需要加载 几个 SETUP。EXE
快 我急用 不然要敲脑袋了

[lxpbuaa]

uses ShellAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'G:\lxpbuaaSoft\San9LoginPrsn1.01\pLgnPrsn.exe', nil, nil, SW_SHOW);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[上海老李]

shellexecute(handle,nil,pchar('http://'+e_address),nil,nil,SW_SHOWNORMAL);
winexec;

[fjeros]

目录应该是 不要指定 而固定在光盘里的 可是不一定在 G 盘 或者 E 盘
而应该在我的光盘里的

[FrameSniper]

网络上这种自运行程序的制作方法多的是，用Google查一下吧！

[charles2118]

WinExec

[overtime]

你要作安装程序吗？可以用ｉｎｓｔａｌｌｓｈｉｅｌｄ的脚本，ｓｃｒｄｉｒ是你的光盘的目录

[duxin]

ShellExecute(0, 'open', ’这里你可以取出程序运行的路径再动态添加以下', nil, nil, SW_SHOW);


这样 ParamStr（0）返回程序自身位置比方c:\aa\aaaaa\a.exe
ExtractFilePath(c:\aa\aaaaa\a.exe)就是路径了 c:\aa\aaaaa\
然后你再改一下c:\aa\aaaaa\b.exe 让他执行


：）没有测试

[struggle813]

var x:integer;
driver:pchar;
begin
driver:='f:\';
x := GetDriveType(driver);
Case x of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
Else Label1.Caption := '该驱动器无效';
End;
end;