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;

参考资料：

判断程序是否在VMWare虚拟机内，可以用以下代码来完成：

function IsRunInVMWare(out ErrMsg: string): Boolean;
begin
Result := False;
try
    asm
      push     edx

unit GlassWindow; interface uses    Windows, Classes, SysUtils, Graphics; type    TGlassedWindow = class    public      procedure GlassWindow(

代码如下：

function IsVista: boolean;

begin

   Result := not (Win32MajorVersion <6);

end;

参考资料：

http://hi.baidu.com/rarnu/blog/item/7f749b3d063d5702bba167f3.html

在private下添加如下代码
  
    procedure WMnCHitTest(var M:tWMnCHitTest);message WM_nCHittest;

鼠标放在上面代码行中按下Ctrl+Shift+C添加 过程
在自动添加的过程中添加如下代码

   inherited;
   if M.Result=HTCLient then M.result:=htCaption;

按下F9运行，点击窗体任意位置即可拖动窗体，并在窗体中间任意位置双击会实现最大、最小效果
全部代码如下所示：

unit Unit1;