Thema: Delphi Ausführen CMD

Einzelnen Beitrag anzeigen

BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#1

Ausführen CMD

  Alt 27. Mai 2008, 00:27
Hallo,

ich bearbeite mit einem Memofeld einen Inhalt (beliebig) und dann will ich nen Button haben, der "ausführen" heißt.
Sprich der Inhalt der Memo wird als *.bat gespeichert, festgelegter Name, und das will ich dann starten, da wollte ich euch nun fragen, welches die eleganteste Methode ist.

Nen BSP hab ich, allerdings ob das das beste ist, weiß ich nicht

Delphi-Quellcode:
procedure TForm1.btnAUSFUHRENClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile('BE.bat');
if ShellExecute(Application.Handle, 'open', PChar('C:\Dokumente und Einstellungen\Admin\Desktop\BE.bat'),
nil, nil, SW_NORMAL) <= 32 then begin
MessageDlg('FEHLER -> Datei nicht gefunden!', mtError, [mbOK], 0);
End;
end;
[edit=SirThornberry]von .NET auf Win32 geändert - Mfg, SirThornberry[/edit]
  Mit Zitat antworten Zitat