delphi如何判断一个exe文件是否已经运行

[zhaofq790621]

比如只给出一个exe文件名称main.exe,在另外的一个程序里如何判断该main.exe是否已经执行,如果没执行,则执行,在线等带,解决马上给分

[hongqi162]

var
hSnapshot: THandle;
lppe: TProcessEntry32;
Found: Boolean;
begin
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
lppe.dwSize := SizeOf(TProcessEntry32);
Found := Process32First(hSnapshot, lppe);
while Found do
begin
if ((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase('main.exe')) or (UpperCase(lppe.szExeFile )=UpperCase('main.exe'))) then
begin
//
showmessage('程序正在运行');
end;
Found := Process32Next(hSnapshot, lppe);
end;
end;

[dennyshao]

通过获取句柄就可以了

[s2401056]

在（dpr）工程文件里编写如下代码：
var
hMutex: THandle;
begin
hMutex := CreateMutex(nil, True, 'main');
try
if not (ERROR_ALREADY_EXISTS <> GetLastError()) then
begin
Application.MessageBox('main 已经在运行中!',
PChar(Application.Title), MB_OK + MB_ICONERROR);
end;
finally
ReleaseMutex(hMutex);
end;
end.

[hongqi162]

procedure TForm1.Button2Click(Sender: TObject);
Function IsRun( ProcName:string ):Boolean
var
hSnapshot: THandle;
lppe: TProcessEntry32;
Found: Boolean;
begin
Result:=True;
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
lppe.dwSize := SizeOf(TProcessEntry32);
Found := Process32First(hSnapshot, lppe);
while Found do
begin
if ((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(ProcName)) or (UpperCase(lppe.szExeFile )=UpperCase(ProcName))) then
begin
Result:=True;
end
Found := Process32Next(hSnapshot, lppe);
end;
end;
if Not IsRun( 'main.exe' ) then
begin
WinExec('C:\main.exe',SW_SHOWNORMAL);
end;
end;

[zhaofq790621]

谢谢hongqi162(失踪的月亮),如果没执行,如何根据这个名称让他执行啊,

[mdejtod]

ShellExecute(Handle, nil,PChar(ChangeFileExt(TextFilePath,'.bat')), nil, nil, SW_hide);

第三个参数为你要运行的可执行文件

[s2401056]

这样就可以了
var
hMutex: THandle;

begin
hMutex := CreateMutex(nil, True, 'main');
try
if not (ERROR_ALREADY_EXISTS = GetLastError()) then
begin
Application.Initialize;
Application.Title := 'main';
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end
else
begin
Application.MessageBox('main 已经在运行中!',PChar(Application.Title), MB_OK + MB_ICONERROR);
end;
finally
ReleaseMutex(hMutex);
end;
end.

[zhaofq790621]

谢谢各位,刚才结贴了出错了,可是分好象看不到啊