社区
Delphi
帖子详情
怎么样 用DELPHI 加载 其他应用程序 急用 在线等待 快 快 救命
fjeros
2003-09-15 10:24:51
我用 DELPHI 做了个启动 界面 需要加载 几个 SETUP。EXE
快 我急用 不然要敲脑袋了
...全文
26
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
7高级应用开发随书源码
Delphi
7高级应用开发随书源码
Delphi
7正式企业版
Delphi
7正式企业版 ISO 文件内附 CD key感谢恶魔天使
DevExpress VCL V14.2.2 FullSource〖D7~XE7〗含编译文件
解压后XE7有编译文件,其他版本需要修改编译文件,请阅读说明文档; 另附一键安装工具下载地址(CSDN下载0积分、不要积分): http://download.csdn.net/detail/wozengcong/8395245 另附14.2.2帮助文档下载地址...
Delphi
5,391
社区成员
262,736
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章