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;
Tidak ada komentar:
Posting Komentar