Di bawah ini adalah kode yang dapat digunakan untuk merefresh desktop tanpa harus menekan F5.
procedure TForm1.Button2Click(Sender: TObject); begin
-
SendMessage(FindWindow('Progman','Program Manager'),WM_COMMAND,$A065,0);
-
winexec(Pchar('rundll32 user,repaintscreen'),sw_Show);
-
end;
Artikel Lainnya
- Menyembunyikan Icon Pada Desktop ShareContoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan icon pada desktop melalui program yang dibuat dengan Delphi. Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat...
- Membuat Teks Icon Desktop Yang Transparan ShareTips delphi berikut ini adalah untuk membuat teks icon desktop yang transparan. uses Commctrl; var hLV : THandle; procedure TForm1.GetDesktopListViewHandle; var s1: string; begin hLV := FindWindow('ProgMan', nil);...
- Mengecek Disk Pada Disk Drive ShareApabila Anda tidak ingin melihat pesan “A:\ is not accessible. The Device not Ready” saat Anda mengakses disk drive yang kosong (tidak terdapat disket pada disk drive), gunakan kode berikut...
- Mengganti RegisteredOwner & Organization ShareTutorial ini akan menjelaskan tentang cara mengganti RegisteredOwner dan RegisteredOrganization pada komputer Anda. RegisteredOwner dan Organization tersebut dapat kita lihat pada Control Panel – System, lalu pada bagian Registerd To....
- Tips Seputar Hint ShareHint adalah teks yang muncul saat pointer mouse melewati suatu obyek (bi sa berupa button, form, list box, dll). Defaultnya hint tersebut tampil selama 2,5 detik. Tapi dengan menambahkan sedikit...
makasih banyak tas trik dan tips nya
cara nya gim??