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;
R106276538945
Z160640024212
410011190732605
