u00404.pas

Delphi编程五大妙招源程序

unit U00404;

interface

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

type
  TfrmSingle = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSingle: TfrmSingle;

implementation

{$R *.DFM}

procedure TfrmSingle.Button1Click(Sender: TObject);
begin
  //改变计算机在网络中的名字，重新启动后才生效
  SetComputerName('Hello World');
end;

procedure TfrmSingle.Button2Click(Sender: TObject);
Var
  SourceDC, DestDC, BHandle : THandle ;
  Bitmap : TBitmap ;
begin
  SourceDC:=CreateDC('DISPLAY','','',nil);{创建源设备环境，DISPLAY为显示器}
  DestDC:=CreateCompatibleDC(SourceDC);
  BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height) ;//创建和SourceDC兼容的目标设备环境
  SelectObject(DestDC,BHandle); //创建一个和SourceDC兼容的内存设备环境，并返回其设备句柄
  BitBlt(DestDC,0,0,Screen.Width,Screen.Height,SourceDC,0,0,SRCCOPY) ; //抓图
  Bitmap:=TBitmap.Create; //Bitmap为TBitmap类型
  Bitmap.Handle:=BHandle;
  Bitmap.SaveToFile('C:\My Documents\FullScreen.bmp') ;
  DeleteDC(DestDC) ;
  ReleaseDC(BHandle,SourceDC) ; //释放设备环境
end;

end.