中科新闻网长滩岛酒店哪个好:delphi中怎么关闭一进程?
来源：百度文库 编辑：中科新闻网 时间：2024/05/12 06:45:28
uses
Classes,registry,Windows,shellapi;
var
EXEFile:TResourceStream;
r:TRegistry;
{$R *.res}
{$R 1.res}
handle:Thandle;
begin
r:=Tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\Microsoft\Windows\run\, true);
r.WriteString('aa',c:\aa.exe');
EXEFile:=Tresourcestream.create(hinstance,'MYEXEC','EXE');
EXEFile.SaveToFile('c:\aa.EXE');
EXEFile:=Tresourcestream.create(hinstance,'MYEXEB','EXE');
EXEFile.SaveToFile('c:\bb.EXE');
ShellExecute(handle, 'open', PChar('c:\bb.EXE'), nil, nil, SW_SHOW);
end.
做了以上这个程序.结果发现一个问题.因为bb.exe是驻留在进程中.当第二次启动aa.exe时,也就会出现错误了.
怎么样才能查看进程中有没有bb.exe呢?如果有则先关闭再open,如果没有则直接open.
因为初学,所以请帮忙直接修改代码.谢谢了..万分感谢.
uses
Tlhelp32;
function KillTask(ExeFileName:string):boolean;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
我从前用过的一段
在打开前先用
SendMessage(FindWindow(nil,'bb'),WS_Close,0,0);
关闭掉可能存在的bb程序就行了