u00402.pas

Delphi编程五大妙招源程序

unit U00402;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMQueryEndSession(var Msg: TMessage);message WM_QueryEndSession;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL' ;
implementation

{$R *.DFM}

procedure hideTaskbar;      //隐藏任务栏
var
 wndHandle : THandle;
 wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE);
End;

procedure showTaskbar;    //显示任务栏
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
end;


Procedure HideDeskTop ; //隐藏桌面图标
var
  hDesktop : THandle;
begin
  hDesktop := FindWindow('Progman', nil);
  ShowWindow(hDesktop, SW_HIDE);
end;


Procedure ShowDeskTop ; //显示桌面图标
var
  hDesktop : THandle;
begin
  hDesktop := FindWindow('Progman', nil);
  ShowWindow(hDesktop, SW_SHOW);
End ;


procedure TForm1.Button1Click(Sender: TObject);
begin
  hideTaskbar ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowTaskbar ;
end;



procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowDesktop ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  HideDesktop ;
end;

procedure TForm1.WMQueryEndSession(var Msg: TMessage); 
begin
  if CheckBox1.Checked then Msg.Result :=1  //可以关机
                       else Msg.Result :=0;
end;


//从任务列表隐藏应用程序（Ctrl+Alt+Del）
procedure TForm1.Button5Click(Sender: TObject);
begin
  //GetCurrentProcessID -->The return value is the process identifier of the calling process.
  RegisterServiceProcess(GetCurrentProcessID,1);
end;

//从任务列表显示应用程序（Ctrl+Alt+Del）
procedure TForm1.Button6Click(Sender: TObject);
begin
  //GetCurrentProcessID -->The return value is the process identifier of the calling process.
  RegisterServiceProcess(GetCurrentProcessID,0);
end;

end.