Refresh Desktop

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;


Download




back to tutorial delphi home....