Membatasi Session Windows

Sahabat Pascal dimanapun anda berada. Kali ini saya akan membahas tentang bagaimana caranya membatasi session pada delphi / pascal. Untuk itu mari kita bahas di bawah ini 

1. Buka Delphi
2.  Isikan code di bawah variabel atau var seperti di bawah ini :

3. Isikan Code dalam FormCreate seperti gambar di bawah ini :

procedure TForm1.FormCreate(Sender: TObject);
var
   atom : integer;
begin
    if GlobalFindAtom(NamaAtom) = 0 then
         atom := GlobalAddAtom(NamaAtom)
    else
    begin
    ShowMessage('Program ini hanya dapat dijalankan sekali'+
    'dalam satu sesi Windows' + #10 + #13 +
    'Untuk menjalankan program ini lagi'+
    ' restart komputer Anda atau silakan' + #10 + #13 +
    'BELI LISENSI PROGRAM INI!!');
          Application.Terminate;
    end;
end;

4. Simpan project dengan cara file - save project as - kasih nama sesuai dengan keinginan kemudian compile

5. Sekian dan Selamat Mencoba.

Membatasi Session Windows 2015-05-26T10:25:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown