Blogs mengenai: Delphi Windows Api
Feature Blog
Mencegah aplikasi ditutup dengan Alt-F4
private procedure AppMessage(var Msg: TMSG; var Handled: Boolean); public { Public declarations } end; … … implementation … … procedure TForm1.FormCreate(Sender: TObject); begi… lagi →
Maulana Blog's Delphi Tutorial
Mencegah aplikasi ditutup dengan Alt-F4
maulaku wrote 2 years ago: private procedure AppMessage(var Msg: TMSG; var Handled: Boolean); public { Public declarations } en … more →
Melihat Default Language Windows
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); var Ident: Integer; MyLang: PChar; const Size: Integ … more →
Melihat Informasi Memory Windows
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); var MyStatus: TMemoryStatus; begin MyStatus.dwLength … more →
Melihat Pesan Error terakhir
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(SysErrorMessage(GetLastError)); en … more →
Menacri Drive Booting
maulaku wrote 2 years ago: uses Registry; ... procedure TForm1.Button1Click(Sender: TObject); begin with TRegistry.Create do be … more →
Mengubah tampilan resolusi monitor
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); var MyMode: TDeviceModeA; begin MyMode.dmSize:=Sizeo … more →
Mengubah Tanggal dan Waktu Sistem
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); var dt: TSystemTime; begin dt.wYear:=1999; dt.wMonth … more →
Mengaktifkan Screensaver
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); begin DefWindowProc(Form1.Handle,WM_SYSCOMMAND,SC_SC … more →
Cek CD-Room (eject,insert)
maulaku wrote 2 years ago: uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = cla … more →
Klik Windows Anda ( Minimize, Run, Date Time, IE Options ...)
— 1 comment
maulaku wrote 2 years ago: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl … more →
Form Berkedip
— 3 comments
maulaku wrote 2 years ago: procedure TForm1.Timer1Timer(Sender: TObject); begin { Handle identifies the window to be flashed } … more →
New Email di Outlook Express
— 1 comment
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,’open’,'mailt … more →
Link ke alamat website
— 2 comments
maulaku wrote 2 years ago: procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, ‘open’, … more →
Mendapatkan Ip Address
maulaku wrote 2 years ago: …………… uses Windows, Messages, SysUtils, Classes, Graphics, Controls … more →
Mendeteksi storage device(usb)
maulaku wrote 2 years ago: …….private { Private declarations } procedure WMDEVICECHANGE(var Msg: TMessage); message … more →
