Программа запускается только один раз за сессию Windows
|
Это нормальные люди деревья сажают, а программисты его сначала строят, а потом обходят.
|
procedure TForm1.FormCreate(Sender: TObject);
var
CRLF: string;
begin
if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then
GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
else
begin
CRLF := #10 + #13;
ShowMessage('Это приложение может быть запущено только один раз за сессию Windows.' + CRLF +
'Если будет сделана ещё одна попытка запуска, нам придётся отформатировать вам винчестер...');
Halt;
end;
end;
|
|
