Kamis, 21 Agustus 2008

Mengunci Program di Delphi

Mungkin anda biasa membuat program tanpa ada pengamanan. Berikut ini adalah sebuah source sederhana untuk mengunci program secara sederhana. Dan harapan saya pada anda adalah bisa mengembangkan kea rah yang lebih baik( Jangan lupa bagi2 sama saya yah ? :D ). Berikut programnya.

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;

Tidak ada komentar: