CMD.exe ver>123.txt

[Willie1]

Hallo Delphifreunde/innen,
nachdem Windows 8.1 mit GetWindowsVersion() nicht mehr erkannt wird, hatte ich mir folgende Lösung ausgedacht:
Mit ShellExecute CMD.exe ver>123.txt
Das funktioniert in der Eingabeaufforderung aber bei ShellExecute wird die Umleitungsdatei nicht angelegt, obwohl es hier anders zu lesen ist:
http://www.microsoft.com/resources/d....mspx?mfr=true

Ich will es eigentlicht nicht erwähnen, aber durch meine Augenerkrankung bin ich schlecht in Rechersche, über Hilfe freue ich mich.

MfG
Willie

[Dalai]

Wie sieht dein Aufruf von ShellExecute aus? Benutzt du

Code:

cmd /c

vor dem Befehl? Umleitungen werden ausschließlich von der ausführenden Shell interpretiert - und die Shell explorer.exe (die den ganzen GUI-Krempel macht) hat damit nichts am Hut.

MfG Dalai

[Willie1]

Ok, ich werde es so machen und dann nochmal melden!
Willie

[Willie1]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  s,st: string;
  TF: TextFile;
begin
  s:=CreateTempFile(TmpPath,'~',false);
  ShellExecute(Application.Handle,PChar('cmd.exe/c',PChar('ver>'+s),nil,nil,SW_SHOW);
  AssignFile(TF,s);
  Reset(TF);
  ReadLn(TF,st);
  CloseFile(TF);
  Edit1.Text:=st;
end;

Die Datei wird nicht angelegt.
CreateTempFile(TmpPath,'~',false) habe ich selbst gebaut und findet einen zufälligen Dateinamen im Tremp-Ordner. Angelgt soll die Datei erst bei ShellExecute().
Der Rückgabewert von ShellExecute ist 2.

Willie.

[Dalai]

Bitte Leerzeichen beachten!

Code:

cmd.exe /c

/c ist ein Parameter für cmd.exe. Es kann also sein, dass das /c mit in den Parameter-Parameter muss (was ein doofes Wort ). Also so:
ShellExecute(Application.Handle, PChar('cmd.exe'), PChar('/c ver>'+s), nil,nil, SW_SHOW);
Abgesehen davon solltest du auf das Ende des Befehls warten und dann erst weitermachen in deinem Delphi-Code; es gibt dafür eine Reihe von Funktionen im Netz (z.B. ShellExecuteAndWait/ShellExecAndWait).

MfG Dalai

[Willie1]

Hallo Dalai,
ich habe es mit allen möglichen Kombinationen versucht, es klappt nicht. Verstehe ich dich richtig, dass es mit ShellExecute eher nicht geht? (Ich weiß von früheren Versuchen, dass ShellExecute ein elender Befehl ohne sinnvolle Rückmeldung ist)
Dann gehe ich vielleicht besser über die Registry?

Willie.