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;