社区
Delphi
帖子详情
怎么样 用DELPHI 加载 其他应用程序 急用 在线等待 快 快 救命
fjeros
2003-09-15 10:24:51
我用 DELPHI 做了个启动 界面 需要加载 几个 SETUP。EXE
快 我急用 不然要敲脑袋了
...全文
23
8
打赏
收藏
怎么样 用DELPHI 加载 其他应用程序 急用 在线等待 快 快 救命
我用 DELPHI 做了个启动 界面 需要加载 几个 SETUP。EXE 快 我急用 不然要敲脑袋了
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
struggle813
2003-09-15
打赏
举报
回复
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;
duxin
2003-09-15
打赏
举报
回复
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 让他执行
:)没有测试
overtime
2003-09-15
打赏
举报
回复
你要作安装程序吗?可以用installshield的脚本,scrdir是你的光盘的目录
charles2118
2003-09-15
打赏
举报
回复
WinExec
FrameSniper
2003-09-15
打赏
举报
回复
网络上这种自运行程序的制作方法多的是,用Google查一下吧!
fjeros
2003-09-15
打赏
举报
回复
目录应该是 不要指定 而固定在光盘里的 可是不一定在 G 盘 或者 E 盘
而应该在我的光盘里的
上海老李
2003-09-15
打赏
举报
回复
shellexecute(handle,nil,pchar('http://'+e_address),nil,nil,SW_SHOWNORMAL);
winexec;
lxpbuaa
2003-09-15
打赏
举报
回复
uses ShellAPI;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'G:\lxpbuaaSoft\San9LoginPrsn1.01\pLgnPrsn.exe', nil, nil, SW_SHOW);
end;
————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
最新
Delphi
XE2 正式版破解程序
使用 FireMonkey,
Delphi
和C++Builder开发人员能开发出视觉绚丽的高清和3D
应用程序
,并与后台的企业级数据库如Oracle、微软 SQL Server、IBM DB2、Sybase和其他数据库互联互通。FireMonkey应用以原生方式运行在...
《实战
Delphi
6/Kylix2/SOAP/Web Service程序设计篇》(
《实战
Delphi
6/Kylix2/SOAP/Web Service程序设计篇》(李维著)
Delphi
XE10零基础实战
快
速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程让零基础学员
快
速入门
Delphi
编程,
快
速掌握
Delphi
的使用方法,并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。
Delphi
7高级应用开发随书源码
Delphi
7高级应用开发随书源码
Delphi
7正式企业版
Delphi
7正式企业版 ISO 文件内附 CD key感谢恶魔天使
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章