Membatasi Program Demo (expired)

procedure TForm1.FormShow(Sender: TObject);
var
Tahun, Bulan, Tanggal : Integer;
begin
Tahun := 2007;
Bulan := 9;
Tanggal := 1;

if (Date >= EncodeDate(tahun, Bulan, Tanggal)) then
begin
ShowMessage(‘Program Demo Sudah Selesai’);
Close;
end;
end;

Download DELPHI Free Trial

Bagi yang mau mencoba program delphi

silahkan download versi Trial di
Download Disini

Daftar dulu untuk download

Portofolio – Design XI

Portofolio – Design X

Portofolio – Design IX

Portofolio – Design VIII

Portofolio – Design Brochure VII

Portofolio – Design Brochure VI

Kumpulan Tutorial Delphi (DElphiDabbler Code Snip)

info lagi teman-teman delphi mania

kumpulan source code delphi dari DElphiDabbler Code Snip

Download Disini

Menjalankan Aplikasi Lain Lewat Delphi

// Menjalankan Aplikasi Notepad Windows

ShellExecute( Handle, 'open', 'c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL );

// Menjalankan Aplikasi Notepad Windows dan membuka file readme.txt

ShellExecute( Handle, 'open', 'c:\windows\notepad.exe', 'c:\readme.txt', nil, SW_SHOWNORMAL );

// Membuka Folder Download C:\Download folder

ShellExecute( Handle, 'open', 'c:\download', nil, nil, SW_SHOWNORMAL );

// Membuka File Microsoft Word

ShellExecute( Handle, 'open', 'c:\docs\letter.doc', nil, nil, SW_SHOWNORMAL );

// Membuka Alamat Web

ShellExecute( Handle, 'open', 'http://www.maulaku.wordpress.com', nil, nil, SW_SHOWNORMAL );

// Mengirim E-mail

ShellExecute( Handle, 'open', PChar( 'mailto:maulaku@yahoo.com' ), nil, nil, SW_SHOWNORMAL );