- 1
- 2
- 3
- 4
- 5
- 6
- 7
hMutex := CreateMutex(0, true , 'Radionic');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
FullProgPath := PChar(Application.ExeName);
WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function
Application.Terminate; // or: Close;
end;
Комментарии (0) RSS
Добавить комментарий