После добавления следующего кода в программу, она запустится только один раз за время сессии Windows. Для повторного запуска программы необходимо будет перезагрузить Windows.

procedure TForm1.FormShow(Sender : TObject);   
var atom : integer;   
  
CRLF : string;   
begin   
  
if   
GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then   
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')   
else   
begin   
    CRLF := #10 + #13;   
    ShowMessage('This programm will start only once' + CRLF +   
    for next start reboot windows please, or...' + CRLF +   
      'REGISTER PROGRAM !!');   
    Close;   
end;   
end;  

Автор: Олег Завгородний

Добавлено: 31 Июля 2018 21:29:07 Добавил: Андрей Ковальчук Нравится 0

Добавить