Thankyou very much Nello. Works a treat in D2.
Graham
the following should work but I can't check it in D2
// returns True if running on NT (including 2000)
// and false otherwise
function IsWinNT:boolean;
var osv:TOSVersionInfo;
begin
osv.dwOSVersionInfoSize := sizeof(osv);
if(not GetVersionEx(osv))
then raise Exception.Create(
'GetVersionEx exception - check GetLastError');
result := osv.dwPlatformID = VER_PLATFORM_WIN32_NT;
end;
-ns
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
