Hvala na pomoći. Našao sam rješenje - fun. koja vraća broj pokrenutih instanci programa. Pa ako kome zatreba...
Code:
uses ... , tlHelp32;
function TForm1.CheckProcessCount(const ExeName: String): Integer;
var
NextProcessLoop: BOOL;
FHandle: THandle;
FProcessEntry32: TProcessEntry32;
fExeName: string;
begin
if ExeName <> '' then fExeName := ExtractFileName(ExeName)
else fExeName := ExtractFileName(Application.ExeName);
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
NextProcessLoop := Process32First(FHandle, FProcessEntry32);
Result := 0;
while Integer(NextProcessLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(fExeName)) or
(UpperCase(FProcessEntry32.szExeFile) =UpperCase(fExeName))) then Inc(Result);
NextProcessLoop := Process32Next(FHandle, FProcessEntry32);
end;
CloseHandle(FHandle);
end;