Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
615 Beiträge
 
Delphi 10.1 Berlin Starter
 
#4

AW: CMD.exe ver>123.txt

  Alt 1. Jun 2014, 17:31
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.

Geändert von Willie1 ( 1. Jun 2014 um 18:01 Uhr) Grund: Ergänzung
  Mit Zitat antworten Zitat