batd相关命令delphi和

《batd相关命令delphi和》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方杀死自己的进程再重新启动自己            全部源代码如下（无窗体结构，最后面有说明）：program Project1;uses  Winprocs,SysUtils,Tlhelp32;//注意添加单元文件function KillTask(ExeFileName:string):integer;//杀进程函数KillTaskconst PROCESS_TERMINATE = $0001;

2、 varContinueLoop: BOOLean;FSnapshotHandle: THandle;FProcessEntry32: TProcessEntry32; begin Result :=0;FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSna

3、pshotHandle, FProcessEntry32); while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(Terminat

4、eProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0), FProcessEntry32.th32ProcessID),0));ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);end;CloseHandle(FSnapshotHandle);end;//调用上面的函数KillTaskbegin//杀进程，停止程序KillTask('abc.exe');//调用函数，杀你的程序abc.exe/

5、/重新启动程序WinExec('abc.exe',SW_SHOW);//然后再重新启动abc.exeExit;end.//=========================================//【说明】编译后的Project1.exe是一个无窗体的EXE程序//方法：创建一个CONSOLE application 把{$APPTYPE CONSOLE}删了，这个就是一个基本的应用程序框架。----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的

6、地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方delphi获取可执行文件的当前路径在DelphiSysUtils单元中有ExtractFileDir与ExtractFilePath两个类似的函数,两个函数有以下的区别:ExtractFilePath传回值的最後一个字元是反斜杠“/”。ShowMessage(ExtractFileDir(Application.Exename));//返回值为c:/tempShowMessage(Extrac

7、tFilePath(Application.Exename));//返回值为c:/temp/相同点：如果执行文件在根目录下(如：C:/SAMPLE.EXE)的话,两者的传回值相同，且最后一个字符都是“/”。===============================================================================edit1.Text:=ParamStr(0);//自己全路径c:/555/qq.exe,可用于控制台edit1.text:=ExpandFileN

8、ame(ParamStr(0));//获取本程序的完整路径c:/qq/2.exeedit2.text:=ExtractFileDir(ParamStr(0));//获取本程序的路径c:/qqedit3.text:=application.Exename;//获取本程序的完整路径c:/qq/2.exe,和第1个一样edit4.text:=ExtractFilename(Application.Exename);//