Code Program dengan Memanggil Perintah Screensaver dari Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;
Bila Telah Selesai RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba. ^_^
Leave a Reply
Silahkan Tulis Komentar Anda, Sopan dan Berwibawa