|
|
|
2009/11/09 22:27
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFileRes = INVALID_HANDLE_VALUE;
if not Result then
CloseHandle(hFileRes);
end;
参考资料:
|
2009/11/09 22:27
判断程序是否在VMWare虚拟机内,可以用以下代码来完成:
function IsRunInVMWare(out ErrMsg: string): Boolean;
begin
Result := False;
try
asm
push edx
|
2009/11/09 22:25
unit GlassWindow;
interface
uses
Windows, Classes, SysUtils, Graphics;
type
TGlassedWindow = class
public
procedure GlassWindow( | |
2009/11/09 22:24
2009/11/04 22:10
在private下添加如下代码
procedure WMnCHitTest(var M:tWMnCHitTest);message WM_nCHittest;
鼠标放在上面代码行中按下Ctrl+Shift+C添加 过程
在自动添加的过程中添加如下代码
inherited;
if M.Result=HTCLient then M.result:=htCaption;
按下F9运行,点击窗体任意位置即可拖动窗体,并在窗体中间任意位置双击会实现最大、最小效果
全部代码如下所示:
unit Unit1;
|
|
|
|