Arsip: Cek apakah program sudah berjalan?


by delphi in Articles more 15 years ago 1109
mungkin suatu kali kita ingin membuat aplikasi yang terlebih dahulu menguji, apakah aplikasi 'x' sudah berjalan atau belum.
naahh... petikan kode berikut ini bisa digunakan, tempatkan kode ini di *.dpr kamu.
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.

referensi:
http://groups.yahoo.com/group/Delphindo/message/8355
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com