Mega Code Archive

 

Categories / Delphi / System

 

Program her windows açılışında sadece bir kere çalışsın

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;