Mega Code Archive

 

Categories / Delphi / OOP

 

Windowsun global atom tablosuna belirli bir not yazarak deneme sürümü haline getirmek

// Gelistirilebilir.. procedure TForm1.FormShow(Sender : TObject); var atom : integer; CRLF : string; begin if GlobalFindAtom('Kontrol için kullanılacak metin') = 0 then atom := GlobalAddAtom(' Kontrol için kullanılacak metin ') else begin CRLF := #10 + #13; ShowMessage('Bu program, her windows sezonunda 1 kez çalışır.'+crlf+'+ Windows'u yeniden başlatın.'+crlf+ 'Ya da bizi arayıp satın alın'); Close; end; end;