|
После добавления следующего кода в программу, она запустится только один раз
за время сессии 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;
Автор: Олег Завгородний
| 
