Program her windows açılışında sadece bir kere çalışsın...
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('Bu versiyon her Windows oturumunda yanlızca bir kere çalışır.' + CRLF +
'Programı tekrar çalıştırmak için Windows'u restart edin. ' + CRLF +
'REGISTER !!');
Close;
end;
end;