function IsRuning(FileName: PAnsiChar): boolean;
var
PE: TPROCESSENTRY32;
ProcessHandle: THandle;
begin
Result:= false;
PE.dwSize:= sizeof(TPROCESSENTRY32);
ProcessHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Process32First(ProcessHandle, PE) then
repeat
if lstrcmpi(PE.szExeFile, FileName) = 0 then
begin
Result:= true;
break;
end;
until not Process32Next(ProcessHandle, PE);
CloseHandle(ProcessHandle);
end;