function OSType : TOSType;
var
osv : TOSVersionInfo;
begin
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := ostWinNT;
VER_PLATFORM_WIN32_WINDOWS : Result := ostWin95;
else Result := ostUnknown;
end; //Case
end;
팁 란에 있네요 - 강민주 님 올려 두셨네요. .... GetVersionEx 이것은
윈도우 표준 API 입니다. 그러면 ..... 총총....
type
TOSType = (ostUnknown,ostWin95,ostWinNT);
function OSType : TOSType;
var
osv : TOSVersionInfo;
begin
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := ostWinNT;
VER_PLATFORM_WIN32_WINDOWS : Result := ostWin95;
else Result := ostUnknown;
end; //Case
end;
팁 란에 있네요 - 강민주 님 올려 두셨네요. .... GetVersionEx 이것은
윈도우 표준 API 입니다. 그러면 ..... 총총....
부산 IS Communication Co.,LTD' 박영목 입니다.