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.