1.Open/close CD ROM Uses mmsystem; mciSendString('Set cdaudio door open wait', nil, 0, handle); to open mciSendString('Set cdaudio door closed wait', nil, 0, handle); to close
2.Monitor stand by Uses Shellapi; SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;
3.Hide/show application on task bar Uses Shellapi; ShowWindow(application.handle, SW_hide); to hide ShowWindow(application.handle, SW_restore); to show
4.Hide/show application on task list (task display when you press Ctrl+Alt+Del) implementation function RegisterServiceProcess(idProcess,dwType : Integer):Integer; stdcall; external 'KERNEL32.Dll'; ........... on your event handler RegisterServiceProcess(GetCurrentProcessID, 0); to show RegisterServiceProcess(GetCurrentProcessID, 1); to hide
5.Hide/show start button Uses Shellapi; ShowWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),1); to show ShowWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),0); to hide EnableWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),True); to enable start button EnableWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),False); to disable start button
6.Hide/show task bar Uses Shellapi; ShowWindow(FindWindow('shell_traywnd',nil),1); to show ShowWindow(FindWindow('shell_traywnd',nil),0); to hide EnableWindow(FindWindow('shell_traywnd',nil),True); enable task bar EnableWindow(FindWindow('shell_traywnd',nil),False); disable task bar
7.Hide/show desktop Uses Shellapi; ShowWindow(FindWindow('progman',nil),1); to show ShowWindow(FindWindow('progman',nil),0); to hide EnableWindow(FindWindow('shell_traywnd',nil),True); to enable desktop EnableWindow(FindWindow('shell_traywnd',nil),False); to disable desktop
8.Hide/show clock Uses Shellapi; ShowWindow(FindWindowEx(FindWindowEx(FindWindow('shell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil),1); to show ShowWindow(FindWindowEx(FindWindowEx(FindWindow('shell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil),0); to hide
9.Shutdown/restart windows Uses Shellapi; ExitWindowsEx(ewx_Shutdown,0); to shutdown ExitWindowsEx(ewx_Reboot,0); to restart ExitWindowsEx(ewx_Poweroff,0); to off your computer power
10.Scrolling Caption procedure TForm1.Timer1Timer(Sender: TObject); var j : Integer; MyString: String; ScrollingCap: string; begin MyString := form1.Caption; //gives the title of your form that sits on the tastbar the caption of your form form1.Caption:=ScrollingCap; for j := 1 to Length(Scrollingcap) do //going from 1 to the length of chars in Scrollingcap ScrollingCap[j] := MyString[j + 1]; ScrollingCap[Length(ScrollingCap)] := MyString[1]; end;
procedure TForm1.FormCreate(Sender: TObject); begin Scrollingcap:=form1.caption; end;
|
请发表评论