00404.txt

Delphi编程五大妙招源程序

1：检测程序是否运行
    在某些情况下，我们编写的应用程序同时只能有一个实例在内存中运行，例如服务器程序、需要独占某设备的程序，甚至我们仅仅是让程序同时只有一个实例运行。要实现此功能，需要在程序中加一点判断的代码。
再工程文件里面，  Application.Initialize;前面加上判断就可以了，注意了，必须得加一个Windows单元，才能运行。

const
      ClassName='TfrmSingle'; {声明为主窗体的类名}
var
      Handle:integer; {变量}

  handle:=findwindow(classname,nil);  //查找是否有此类的窗体
  if handle<>0 then   //不为0则程序已运行
  begin
    messagebox(0,'该程序已经有一个在运行中！','运行',0);//提示程序已运行
    halt; //退出程序
  end;

2： 改变计算机的名字
 //改变计算机在网络中的名字，重新启动后才生效
  SetComputerName('Hello World');
　　
3：抓获全屏
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;