Win & Dos Versions Nummern abfragen.

[hoika]

Hallo,
für Windows fragt man am besten die Version der Datei kernel32.dll ab

[Bernhard Geyer]

DOS-Version - Gibts seit Windows95 nicht mehr.

[matashen]

Nein ist schon lange nicht mehr konform, hat aber nichts mit Delphi sondern mit der Windows API ab Win8 zu tun. siehe hier

https://msdn.microsoft.com/de-de/library/windows/desktop/ms724834

nutze OSVersionInfo oder OSVersionInfoEx

Gruß Matthias

[KodeZwerg]

OSVERSIONINFO, daß ist es was ich nun anwenden werde, scheint mir am besten dafür geeignet zu sein.
Vielen Dank!

Ps: An Daniel, was lässt Dich vermuten das ich Hilfe ablehne wenn ich doch der Fragestellende bin?
Hätte ich mich verweigert Informationen zu lesen wäre ich damals ja nicht auf den GetVersion Befehl und dessen Verarbeitung gestoßen, das es Windows ab 8 oder 8.1 nun anders handhabt ist mir neu, falls Deine Aussage eine Anspielung sein soll das ich mich mal informieren sollte bevor ich hier eine Frage stelle, Ok Sir, wird nun so gemacht Sir.

PPs: Die Dos-Version sollte halt eine Unterhaltsame Einblendung an alte Tage sein, ob fachlich korrekt oder nicht.

PPPs: Zur Aussage ab Win95 kein DOS -> eine andere Sichtweise

[Redeemer]

Zitat von Bernhard Geyer:

DOS-Version - Gibts seit Windows95 nicht mehr.

Du hast „Windows NT“ falsch geschrieben. In Windows Me gab es noch MS-DOS 8.00, startbar war es nur bis 7.10 in Windows 98.

[Bernhard Geyer]

Zitat von Redeemer:

Zitat von Bernhard Geyer:

DOS-Version - Gibts seit Windows95 nicht mehr.

Du hast „Windows NT“ falsch geschrieben. In Windows Me gab es noch MS-DOS 8.00, startbar war es nur bis 7.10 in Windows 98.

Ok. Win 9x hat noch ein DOS "Im Bauch".
Aber alles unter XP kann man wohl als "Antike OS-Versionen" betrachten und XP als "OldTimer"

[EWeiss]

Zitat:

Ps: An Daniel, was lässt Dich vermuten das ich Hilfe ablehne wenn ich doch der Fragestellende bin?

Er wird schon seinen Grund haben.

Zumindest kann er jemanden anhand der IP identifizieren und somit weis er wer oder was du hier früher einmal warst.
Da du nun auf der Basis weitermachst frage ich mich warum du dich überhaupt abgemeldet hast.
Dir hat niemand etwas getan das diese Entscheidung verständlich macht.

Sorry OT aber es hat mich gereizt darauf zu antworten.

gruss

[Daniel]

Zitat von EWeiss:

Zumindest kann er jemanden anhand der IP identifizieren [...]

Emil ... glücklicherweise ist mein Leben zu auf- und anregend, als dass ich Muße hätte, hier IP-Adressen zu notieren und anonyme Benutzer zu verfolgen. Mit welchem persönlichen Nutzen?
Im Jahr 2018 das Betriebssystem Windows nach einer DOS-Versionsnummer fragen zu wollen, zeugt von einer hinreichenden Unkenntnis der API-Dokumentation. Man kann nicht alle APIs im Kopf haben, muss man auch nicht, aber bevor ich mich hinsetze und in einem Forum einen Beitrag schreibe, gucke ich doch mal kurz, was der Hersteller zur API-Funktion schreibt. Und auch wenn man viel auf Microsoft schimpft - das MSDN ist seit vielen, vielen Jahren eine hochwertige Informationsquelle.

[himitsu]

Zitat von Daniel:

das MSDN ist seit vielen, vielen Jahren eine hochwertige Informationsquelle.

Und wem das nicht reicht, der kann sich auch noch das Windows SDK besorgen (ehemals PSDK).

Nicht jeder Typ oder jede Konstante ist haargenau im MSDN inkl. Wert / kompletter Definition genannt, aber im SDK ist alles drin.

[KodeZwerg]

Zitat von hoika:

für Windows fragt man am besten die Version der Datei kernel32.dll ab

Das habe ich nun auch versucht, mit der GetFileVersionInfo funktion.
Beim Zugriff auf kernel32.dll gibt mir die funktion False zurück, GetLastError deutet auf "Datei nicht gefunden" hin, ich übergebe den kompletten Pfad. Irgendwas mache ich dabei falsch.

So hier in etwa verarbeite ich es: (Code nicht von mir)

Delphi-Quellcode:

function GetVersionInfo(NameApp, VerOpt: String): String;
var
 dump: DWORD;
 size: integer;
 buffer: PChar;
 VersionPointer, TransBuffer: PChar;
 Temp: integer;
 CalcLangCharSet: string;
begin
 size := GetFileVersionInfoSize(PChar(NameApp), dump);
 buffer := StrAlloc(size+1);
  try
   GetFileVersionInfo(PChar(NameApp), 0, size, buffer);
   VerQueryValue(buffer, 'VarFileInfo\Translation', pointer(TransBuffer), dump);
    if dump >= 4 then
     begin
      temp:=0;
      StrLCopy(@temp, TransBuffer, 2);
      CalcLangCharSet := IntToHex(temp, 4);
      StrLCopy(@temp, TransBuffer+2, 2);
      CalcLangCharSet := CalcLangCharSet+IntToHex(temp, 4);
     end;
   VerQueryValue(buffer, pchar('StringFileInfo\' + CalcLangCharSet + '\' + VerOpt), pointer(VersionPointer), dump);
  if (dump > 1) then begin
    SetLength(Result, dump);
    StrLCopy(Pchar(Result), VersionPointer, dump);
   end else Result := '';
 finally
  StrDispose(Buffer);
 end;
end;

In einem Demo Projekt mit gleichem Code nur auf eine Datei im selben Verzeichniss angewendet klappt alles,
wenn ich nun die .exe zur kernel32.dll hinkopiere bleibt der Fehler bestehen.