1、检测操作系统版本
prototype CheckOSVersion(); //当前操作系统版本(针对9X)
//返回TRUE,FALSE(低于win98第二版)
function CheckOSVersion()
STRING svResult;
NUMBER nOSVersion, nvOS;
begin
if (GetSystemInfo ( OS , nvOS , svResult )!= 0) then
return FALSE;
endif;
if nvOS == IS_WINDOWS9X then
GetSystemInfo ( OSMAJOR , nOSVersion , svResult );
if nOSVersion < 10 then
return FALSE;
endif;
endif;
return TRUE;
end;
2、检测程序是否运行，并且关闭
prototype CheckProgramRun(STRING); //检查程序是否在运行
//返回0没有运行,1正在运行
function CheckProgramRun(szProgName) INT nRet;
HWND nHwnd;
begin
if (szProgName == "") then
nRet = 0;
return nRet;
endif;
//得到句柄
nHwnd = FindWindow("", szProgName);
if nHwnd != NULL then
nRet = 1;
/发消息关闭程序
SendMessage (nHwnd, WM_SYSCOMMAND, SC_CLOSE, 0);
else
nRet = 0;
endif;
return nRet;
end;