Dienste im Allgemeinen und im Besonderen unter XP

[Luckie]

Zitat von UweR:

Den Aufruf von OSVersionEx mag zumindest W2k nicht,

Aha. Schön. Und wie äußert sich das? Ich glaube kaum, dass in deinem Log drinne steht " Mag ich nicht."

Und das:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  os           : TOSVERSIONINFO;
  OSXP         : Boolean;
begin
  try
    os.dwOSVersionInfoSize := SizeOf(os);
    GetVersionEx(os);

    if (os.dwMajorVersion >= 5) and (os.dwMinorVersion >= 1) then
      ShowMessage('XP')
    else
      Showmessage('nicht XP');
  except
    on E: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;

tut es bei mir in einer normalen Anwendung ganz prima.