📄 00404.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00404.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span></b><b><span style="background-color: #000000"><br>
</span><span style="background-color: #000080"><a name="1"></a>1：检测程序是否运行<br>
</span></b><span style="background-color: #000000"><br>
在某些情况下，我们编写的应用程序同时只能有一个实例在内存中运行，例如服务器程序、需要独占某设备的程序，甚至我们仅仅是让程序同时只有一个实例运行。要实现此功能，需要在程序中加一点判断的代码。在工程文件里面，
Application.Initialize;前面加上判断就可以了，注意了，必须得加一个Windows单元，才能运行。<br>
<br>
const<br>
ClassName='TfrmSingle'; {声明为主窗体的类名}<br>
var<br>
Handle:integer; {变量}<br>
<br>
handle:=findwindow(classname,nil); //查找是否有此类的窗体<br>
if handle<>0 then //不为0则程序已运行<br>
begin<br>
messagebox(0,'该程序已经有一个在运行中！','运行',0);//提示程序已运行<br>
halt; //退出程序<br>
end;<br>
<br>
</span><b><span style="background-color: #000080"><a name="2"></a>2： 改变计算机的名字<br>
</span></b><span style="background-color: #000000"> //改变计算机在网络中的名字，重新启动后才生效<br>
SetComputerName('Hello World');<br>
<br>
</span><b><span style="background-color: #000080"><a name="3"></a>3：抓获全屏</span></b><span style="background-color: #000000"><br>
procedure TfrmSingle.Button2Click(Sender: TObject);<br>
Var<br>
SourceDC, DestDC, BHandle : THandle ;<br>
Bitmap : TBitmap ;<br>
begin<br>
SourceDC:=CreateDC('DISPLAY','','',nil);{创建源设备环境，DISPLAY为显示器}<br>
DestDC:=CreateCompatibleDC(SourceDC);<br>
BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height) ;//创建和SourceDC兼容的目标设备环境<br>
SelectObject(DestDC,BHandle); //创建一个和SourceDC兼容的内存设备环境，并返回其设备句柄<br>
BitBlt(DestDC,0,0,Screen.Width,Screen.Height,SourceDC,0,0,SRCCOPY) ; //抓图<br>
Bitmap:=TBitmap.Create; //Bitmap为TBitmap类型<br>
Bitmap.Handle:=BHandle;<br>
Bitmap.SaveToFile('C:\My Documents\FullScreen.bmp') ;<br>
DeleteDC(DestDC) ;<br>
ReleaseDC(BHandle,SourceDC) ; //释放设备环境<br>
end;<br>
<br>
</span>
<span style="background-color: #FF0000"><a href="00404.zip">源程序下载</a></span>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -