Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

Как запретить запуск второй копии программы?   Найти похожие ветки 

← →
Jiurasdfgfr   (2004-05-20 14:58) [0]

сабж.

---

← →
Алхимик ©   (2004-05-20 15:16) [1]

Вариантов - туева хуча.
Например, при старте программы искать окно с таким же заголовком.
Если нашёл - считать что программа уже запущена и преравать её выполнение.
см местный FAQ.

---

← →
Ega23 ©   (2004-05-20 15:16) [2]

ss:=ExtractFileName(paramstr(0) );
 hnd:=CreateMutex(nil, false, PChar(ss) );
 if GetLastError = ERROR_ALREADY_EXISTS then
 begin
  Beep(100,200); //MessageBeep ->in WinProcs
  bo:=ReleaseMutex(hnd);
  Halt(1);
 end;

Тут правда фишка, что если программу переименовать, то запустить можно. Но это сознательно было сделано.

---

← →
WebErr ©   (2004-05-20 16:36) [3]


var
 P: PChar;
 S: String;
 W: HWND;
...
try
  GetMem(P, 256);
except
  ShowMessage("!");
  Exit;
end;
GetClassName(Handle, P, 255);
S := P;
W := FindWindow(0, 0);
while W <> 0 do
begin
  W := GetNextWindow(W, GW_HWNDNEXT);
  GetClassName(W, P, 255);
  if StrComp(PChar(S), P) = 0 then
    ShowMessage("Ура!");
end;
FreeMem(P);


---

Страницы: 1 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c