jexd99
asked on
How can I tell if I'm running on Win ME?
Is there a way to know whether you are on Win ME or not?
Thank you
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I don't know why that's happened :(
last try
if you want to check win me only, here's a sample for that, but if you want to detect the OS, look at the Tasomia comment
procedure TForm1.Button1Click(Sender : TObject);
var
VersionInfo : TOSVersionInfo;
begin
VersionInfo.dwOSVersionInf oSize := SizeOf( TOSVersionInfo );
if Windows.GetVersionEx( VersionInfo ) then
begin
with VersionInfo do
begin
if (dwPlatformId = VER_PLATFORM_WIN32_WINDOWS ) and (dwMajorVersion = 4) and (dwMinorVersion = 90) then
ShowMessage('Windows Me Installed');
end;
end
end;
last try
if you want to check win me only, here's a sample for that, but if you want to detect the OS, look at the Tasomia comment
procedure TForm1.Button1Click(Sender
var
VersionInfo : TOSVersionInfo;
begin
VersionInfo.dwOSVersionInf
if Windows.GetVersionEx( VersionInfo ) then
begin
with VersionInfo do
begin
if (dwPlatformId = VER_PLATFORM_WIN32_WINDOWS
ShowMessage('Windows Me Installed');
end;
end
end;
Have a look at the Jedi Code Library also. http://delphi-jedi.org/CODELIBJCL
Windows ME has a nasty trick. If your program is named Setup.exe it lies about the version. ME poses as Windows 98 then.
Windows ME has a nasty trick. If your program is named Setup.exe it lies about the version. ME poses as Windows 98 then.
:-)
Or look at my free package madBasic, it also contains a function to ask the operating system, which doesn't get confused by setup.exe.
http://help.madshi.net/Data/OSInfo.htm
Regards, Madshi.
Or look at my free package madBasic, it also contains a function to ask the operating system, which doesn't get confused by setup.exe.
http://help.madshi.net/Data/OSInfo.htm
Regards, Madshi.
ASKER
Thanks a bunch.