1

源程序下载
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;
源程序下载