Delphi Zone
One stop place for all your delphi needs
unit TNA; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, ExtCtrls, ShellApi, Menus; const k_WM_TASKMSG = WM_APP + 100; //die "100" type TForm1 = class(TForm) TPopupMenu1: TPopupMenu; procedure FormCreate(Sender: TObject);
How to close a TCommonDialog automatically
How to turn off the monitor
How to open the start menu
How to minimize all windows
How to start the screensaver
How to switch to Standby mode