Falscher Product Type in OSVersionInfoEx

[musicman56]

Hallo,

dieses Thema ist doch schon so alt wie Nachbar's Katze. Warum macht man denn nicht mal was, das jeder einfach verwenden kann, anstatt dass jeder sein eigenes Süppchen kocht?

Da ich heute auch mal wieder an dem Thema dran war, hab ich das Beispiel ein bischen angepasst und das Ergebnis mal ran gehängt. Scheint alles zu funktionieren.

[Assarbad]

Zitat von musicman56:

Warum macht man denn nicht mal was, das jeder einfach verwenden kann, anstatt dass jeder sein eigenes Süppchen kocht?

Gute Frage. Vermutlich weil diejenigen welche es machen zu strenge Lizenzen oder keine Lizenzen wählen? Anders kann ich es mir nicht vorstellen.

Und: Überraschung, Überraschung ... auch deine Unit darf man nicht legal von anderen verwenden, da sie dem deutschen Urheberrecht unterliegt und du keine Lizenzbedingungen (ala MIT, BSD, X11, zlib, GPL) angegeben hast unter denen die Unit verwendet werden darf. Also: selber besser machen ...

Zitat von musicman56:

Da ich heute auch mal wieder an dem Thema dran war, hab ich das Beispiel ein bischen angepasst und das Ergebnis mal ran gehängt. Scheint alles zu funktionieren.

Ich versuche mich auch bei dir nochmals an dem Hinweis: Boolean ist nicht BOOL (aka LongBool). Warum ist das relevant? Weil bspw. der Wert $100 als BOOL auch True ist, dein Code dann aber voraussichtlich fröhlich auf einen Boolean, also $00 heruntercasten wird. Kann natürlich sein, daß Delphi hier mal wieder irgendwelche Compiler-Magic eingeführt hat (wundern tät es mich nicht). Früher war das jedenfalls in alten Delphiversionen nicht der Fall, weshalb die korrekte Variante irgendwas ala

Result := (0 <> GetVersionInfoEx(...)); wäre.

[Nersgatt]

Nur kurz, ich werde versuchen heute Abend Deine Fragen zu beantworten. Vorher schaffe ich es leider nicht.

[musicman56]

Zitat:

Ich versuche mich auch bei dir nochmals an dem Hinweis: Boolean ist nicht BOOL (aka LongBool).

Ich hab's natürlich aufgrund deines Hinweises der Vollständigkeit halber VORHER noch mal ausprobiert. Weil man sich im Lauf der Jahre daran gewöhnt hat, dass ein BOOL mit einem Boolean "kompatibel" ist. "0000" ist ja auch das selbe wie "00" oder "0"...es wird einfach nicht mehr wie "true", egal wieviele Nullen man ran hängt

function GetOSVersionInfo(var OSInfo: TOSVersionInfoEx): boolean;
begin
FillChar(OSInfo,SizeOf(OSInfo),0);
// OSInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfoEx);
Result := GetVersionEx(OSInfo);
end;

und schon ist der Result false. Es klappt also immer noch

Hab soeben noch den WindowsVersionString erweitert, weil man ja - wenn es beim Kunden klemmt - wissen muss, wo man bei neuen unbekannten Versionen nachbessern/erweitern muss:

Zitat:

function WindowsVersionString : string;
const
CrLf = #13#10;
var
OSInfo : TOSVersionInfoEx;
begin
if not GetOSVersionInfo(OSInfo)
then Result := GetWinVersionString(GetWinVersion(OSInfo))
else Result := rsUnknownWinVer+CrLf
+'MajorVersion: '+IntToStr(OSInfo.dwMajorVersion)+CrLf
+'MinorVersion: '+IntToStr(OSInfo.dwMinorVersion)+CrLf
+'ProductType: '+IntToStr(OSInfo.wProductType)+CrLf
+'BuildNumber: '+IntToStr(OSInfo.dwBuildNumber);
end;

[Sir Rufo]

Der Result wird durchaus false er wird aber niemals true sondern not false

[Assarbad]

Zitat von musicman56:

Ich hab's natürlich aufgrund deines Hinweises der Vollständigkeit halber VORHER noch mal ausprobiert. Weil man sich im Lauf der Jahre daran gewöhnt hat, dass ein BOOL mit einem Boolean "kompatibel" ist. "0000" ist ja auch das selbe wie "00" oder "0"...es wird einfach nicht mehr wie "true", egal wieviele Nullen man ran hängt

Ist das so?

$100 ist als Byte in der Tat identisch mit $0, weil alles oberhalb von 8bit abgeschnitten wird beim Typecast. Als BOOL (also 32bit-Wert) hingegen nicht. Daß eine 32bittige 0 einer 8bittigen 0 entspricht ist mir auch klar. Das war aber hier nicht die Frage, bzw. das Problem. Ich bin ja hier nicht so modern ausgestattet. Aber Delphi 2009 habe ich auch. Also hab ich es mal getestet. Entwarnung. Delphi hat natürlich mal wieder den Weg des geringsten Widerstands gewählt und offenbar Compiler-Magic dafür engagiert damit Delphianer solche Dummheiten nicht machen. Was vermutlich dann bei allen die korrektes Verhalten erwarten - mal wieder - zu Überraschungen führt. Aber egal, bin ja kaum noch auf Delphi unterwegs. Habe es übrigens hiermit getestet:

Delphi-Quellcode:

program booltest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

function DeinApiAufruf(): LongBool;
begin
  Result := LongBool($100);
end;

function DeinDelphiWrapper(): Boolean;
begin
  Result := DeinApiAufruf();
end;

begin
  Write('Sagt: ');
  if DeinDelphiWrapper() then
    Writeln('True')
  else
    Writeln('False');
end.

Übrigens bist du auf das Lizenzproblem noch nichtmal eingegangen. Danke (oder wegen) Urheberrecht kann sich eben nicht mal jeder deinen Code krallen, es sei denn du machst ihn unter einer entsprechenden Lizenz verfügbar.

[musicman56]

Zitat:

Übrigens bist du auf das Lizenzproblem noch nichtmal eingegangen.

Was soll ich dazu schon sagen? Nix, weil Teile davon (die Werte von OSInfo.dwMajorVersion und OSInfo.dwMinorVersion) ja auch wieder abgekupfert sind vom Code des Thread-Erstellers. Ich sehe das nicht so eng, denn es sind allgemein verfügbare Informationen, nur eben zusammengetragen auf ein paar zeilen Code. Aber vielleicht muss man wirklich mal auf die Schnauze fallen.

[Assarbad]

Zitat von musicman56:

Was soll ich dazu schon sagen? Nix, weil Teile davon (die Werte von OSInfo.dwMajorVersion und OSInfo.dwMinorVersion) ja auch wieder abgekupfert sind vom Code des Thread-Erstellers. Ich sehe das nicht so eng, denn es sind allgemein verfügbare Informationen, nur eben zusammengetragen auf ein paar zeilen Code.

Ich verstehe was du meinst. Aber ohne daß du - oder in diesem Fall ihr beide - über eine Lizenz ein Nutzungsrecht einräumt kann es im Grunde niemand benutzen. Laut AGB räumst du durch die Nutzung der DP nämlich nur der DP implizit gewisse Rechte ein. Nicht ihren Nutzern.

Zitat von musicman56:

Aber vielleicht muss man wirklich mal auf die Schnauze fallen.

Vermutlich ... und leider
Ich finde das Konzept "geistiges Eigentum" schon krank, weil dich dann theoretisch jeder Lehrer und deine Eltern verklagen können müßten - und allgemein jeder bei dem du Erfahrungen jedweder Art sammelst. Aber das ist ein anderes Thema.