tjek om jeg køre win98 eller win 2000

Det kan du ikke rigtigt tjekke, altså med et program

Men hvis du poster hvad for en computer du har, kan jeg fortælle hvilke operativ systemer du kan kører og hvilke du ikke kan!

smshulen... tror han vil lave en funktion i delphi som tjekker hvilket system brugeren køre....


ikke sandt ziron..??

du har ret a-torsten, smshulen.dk er du i den rigtige kategori????

HJÆLP????

/ZIRON

ziron: Kig her: http://www.eksperten.dk/spm/35594

Snowball

Boolean variablerne _XXXX (Som jeg selv har oprettet) sættes True/False på baggrund af Win32Platform og Win32MajorVersion:

<SNIP>
  _OsIs32s    := (Win32Platform = VER_PLATFORM_WIN32s);
  _OsIs95    := (Win32Platform = VER_PLATFORM_WIN32_WINDOWS);
  _OsIsW95    := (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
                (Win32MajorVersion = 4) and (Win32MinorVersion <= 9);
  _OsIsW98    := (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
                (Win32MajorVersion = 4) and (Win32MinorVersion >= 10);
  _OsIsNT    := (Win32Platform = VER_PLATFORM_WIN32_NT);
  _OsIsNT4    := (Win32Platform = VER_PLATFORM_WIN32_NT) and
                (Win32MajorVersion = 4);
  _OsIsNT5    := (Win32Platform = VER_PLATFORM_WIN32_NT) and
                (Win32MajorVersion = 5);
  _OsIsW2000  := (Win32Platform = VER_PLATFORM_WIN32_NT) and
                (Win32MajorVersion = 5);
</SNIP>

Et hurtigt eksempel:

procedure TForm1.Button1Click(Sender: TObject);
var
  OsIsW98    : Boolean;  // Windows 98    (Only W98, not W95)
  OsIsW2000  : Boolean;  // Windows 2000
begin
  OsIsW98    := (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
                (Win32MajorVersion = 4) and (Win32MinorVersion >= 10);
  OsIsW2000  := (Win32Platform = VER_PLATFORM_WIN32_NT) and
                (Win32MajorVersion = 5);
  if OsIsW2000 then
    Label1.caption := \'Win2k\'
  else if OsIsW98 then
    Label1.caption := \'Win98\'
  else
    Label1.caption := \'Ukendt OS!\';

end;

Snowball

hehe ups ;) troede han... ja bare glem det
*griner*