Senin, 15 September 2008

MENJALANKAN PROGRAM HANYA SATU KALI DALAM SATU SESSION

Mungin anda sudah membaca MENAMBAH TANGGAL EXIPIRED PADA PEMROGRAMAN DELPHI membatasi penggunaan program dengan cara membatasi tanggal pemakaian. Nah sekarang kita akan membuat program namun tidak bisa dieksekusi dalam satu kali session windows. Hanya satu kali program bisa dijalankan, dan jika dijalankan lebih dari satu kali maka akan muncul pesan. Sourcenya sebagai berikut:

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(Program ini hanya bisa dijalankan satu kali' + CRLF +
Reboot windows untuk menjalankannya kembali , atau...' + CRLF +
Meregister Program !!');
Close;
end;
end;

Tidak ada komentar: