Arsip: Cek apakah program sudah berjalan?

var
MutexHandle  : THandle;
hWind        : hWnd;
begin
MutexHandle := CreateMutex(nil, TRUE, '');
if MutexHandle <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(MutexHandle);
hWind := 0;
repeat
hWind := Windows.FindWindowEx(0, hWind, 'TApplication', '');
until (hWind <> Application.Handle);
if (hWind <> 0) then
begin
Windows.ShowWindow(hWind, SW_SHOWNORMAL);
Windows.SetForegroundWindow(hWind);
end;
Halt;
end
end;
Application.Initialize;
Application.CreateForm(...);
Application.Run;
end.