Delphi调用其他应用程序

来源:互联网 发布:淘宝卖家账号怎么注册 编辑:程序博客网 时间:2024/05/22 17:21

运行其他exe程序
加WinProcs单元
str:=ExtractFilePath(Application.ExeName)+'\服装\服装进销存管理系统.exe';(str为变量)
WinExec(pchar(str),sw_normal);

运行其他程序
加shellapi单元
str:='C:\Documents and Settings\Administrator\桌面\KZH\文档\hack.chm';(str为变量)
shellexecute(0,'Open',pchar(str),nil,nil,Sw_Normal);

WinExec('执行文件',显示方式)
显示方式:
SW_HIDE = 0;             隐藏窗口
SW_SHOWNORMAL = 1;       普通模式
SW_SHOWMINIMIZED = 2;    最小化
SW_SHOWMAXIMIZED = 3;    最大化
SW_SHOWNOACTIVATE = 4;    激活窗口

原创粉丝点击