
在 Delphi 程序中调用别的散知可执运腊行程序,可以使用三种方法:
1、冲悄消WinExec
示例代码:
WinExec('Notepad.exe Readme.txt', SW_SHOW)//运行记事本2、ShellExecute
//调用记事本ShellExecute(NULL,"open","NOTEPAD.EXE",NULL,NULL,SW_SHOWNORMAL)
3、CreateProcess
这程序点击按钮后迹毕伏,只有执行了一个函数:MyProc(i)MyProc(i)的功能是对参数值递增3,并且是过程形式;另一个是递增2,并且是数凯函数形式;
写成TMyClass类的形式作者的本意可能是为了突出 类 的应用,多个函数集中到一个类显得有条理些;当然姿携也可以写成单个函数,可以不要TMyClass类。
Type
TMyClass = class
procedure MyProc(var x: Integer)
function MyFun (var x: Integer): Integer
end
括号里面的是形式参数。
你可以在程序亩扰运行时自动写入注册表uses中悔枝包含 Registry
var
MyFilePath:String
begin
MyFilePath:=Application.ExeName
MyReg:=TRegistry.Create
MyReg.RootKey:= HKEY_CURRENT_USER
MyReg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run'碧耐敏,True)
MyReg.WriteString ('myfile',MyFilePath )
MyReg.Free
这样做,一般会有杀毒软件进行拦截,需要同意才行。
你还可以直接把程序放到开始菜单中的启动下。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)