rundll32.exe url.dll,FileProtocolHandler C:\mx_2.5.10.2994cn.exe

参考资料：

http://360doc.com/content/090716/08/19147_4288412.html

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