CMD mit Output

[Willie1]

Hallo Holger,
kannst du mir den Quelltext schicken. Ich führe nicht gerne unbekannte Exe-Dateien aus. Danke!
Pf enthält den Pfad zum temporären Ordner. (user\[Name]\apdata\Local\temp) wg. der Schreibrechte.
ShellExecute(0,'open',PWideChar('cmd.exe'),PWideChar('/c ver >'+Pf+'ver.txt'),PWideChar(ExtractFilePath(ParamStr(0))),SW_HIDE); Auf einem Rechner läuft das, auf einem anderen nicht. Beide habe exakt dasselbe Windows mit dem gleichen Temp-Ordner.

Willie.

[Delphi.Narium]

Was sagt denn der Rückgabewert von ShellExecute aus?

Derweil: Momentan ist absolut unklar, ob ShellExecute scheitert oder Ver oder "nur" die Ausgabe nicht "abgeholt" werden kann.

Geht es darum, die Windowsversion zu erfahren?

Warum dann nicht mit Bordmitteln von Delphi?
z. B. hier (mit mehreren Alternativvorschlägen): https://stackoverflow.com/questions/...indows-version

[Dalai]

Ich würde ja einfach cmd.exe /k mit SW_SHOW Flag ausführen, um zu sehen, woran es genau scheitert.

Grüße
Dalai

[Willie1]

Hallo Leute,
ich will in meiner About-Box die installierte Windows-Version anzeigen. Ich habe es so gemacht:

Delphi-Quellcode:

function WinVersionAPI_asString: string;
var
  osInfo: tosVersionInfo;
begin
  Result := 'unknown';
  osInfo.dwOSVersionInfoSize:= Sizeof( osInfo );
  if DWORD(GetVersionEx( osInfo )) <> 0 then
    with osInfo do begin
      case dwPlatformId of
        VER_PLATFORM_WIN32_WINDOWS :
          Result:='Kein NT-OS';
        VER_PLATFORM_WIN32_NT :
          Result:=Format('%d.%d Built %d %s',[dwMajorVersion,dwMinorVersion,dwBuildNumber,string(szCSDVersion)]);
      end
    end
  //if
end; {WinVersionAPI_asString}

Ich habe hier im Forum gelernt, dass hier nicht immer die richtige Version angezeigt wird. (Manifest). Dann habe ich es mit cmd /c ver >...ver.dat gemacht, das hat ca. 1 Jahr funktioniert jetzt wird nichts mehr angezeigt. Siehe mein Beispiel.
Das war der Sinn meine Anfrage!

Ich will keinen Programm-Code, abhängig von der Windows-Version schreiben, NUR die installierte Windows-Version ermitteln und anzeigen.
Willie.

[Delphi.Narium]

Und wie wäre es damit?

https://www.arclab.com/en/kb/cppmfc/...-registry.html --> HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

https://www.windows-commandline.com/...-from-command/

http://delphidabbler.com/articles?article=23&part=2

In der SysUtils müsste es eigentlich bereits entsprechend befüllte globale Variabeln geben, die man einfach in seine Ausgabe einbauen kann, ohne irgendwas selbst ermitteln zu müssen.

Neben Ver zur Versionsausgabe gibt es auch noch Systeminfo (auf der Kommandozeile).

[Willie1]

Danke Freunde, Freudinnen sind wohl keine dabei.
Von Systeminfo, sehr umfassend, in der Console hatte noch nie gehört. Das Problem werde ich jetzt mit euren Hinweisen lösen
Gruß Willie.

[Willie1]

Hallo Dalai,
ich werde es so machen und denke, dass es mit Windows 7 bis 10 funktioniert.

Delphi-Quellcode:

begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion');
  s:=Reg.ReadString('ProductName');
  s:=s+' '+Reg.ReadString('Releaseid');
  s:=s+'.'+Reg.ReadString('CurrentBuild');
  Label1.Caption:=s;
  Reg.Free;
end;

Willie.

[Dalai]

Zitat von Willie1:

Dann habe ich es mit cmd /c ver >...ver.dat gemacht, das hat ca. 1 Jahr funktioniert jetzt wird nichts mehr angezeigt.

Hast du denn mal meinen Vorschlag umgesetzt, um zu sehen, woran es klemmt?

Davon abgesehen: Wo ist das Problem, ein passendes Manifest in die Anwendung zu packen, so dass GetVersionEx immer die richtigen Werte liefert?

Grüße
Dalai

[TurboMagic]

In der JCL oder JVCL ist auch irgendwo eine ausführliche Routine zur Ermittlung der Windows Version und Variante...

[HolgerX]

Hmm..

Wenn es nur um die Windows-Version geht, dann würde ich mal hier in DP suchen..
.. und schon gibt es einen ausführlichen Thread darüber:

https://www.delphipraxis.net/186147-...mitteln-7.html


Ich verwende die Kernel-Methode, diese funktioniert auch ohne Manifest..

https://www.delphipraxis.net/1311524-post27.html