Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Ich habe das jetzt so versucht:
function execcmd(command : string) : string;
var
error : string;
RC : Cardinal;
doscommand : TDosCommand;
begin
Writeln('Try to execute '+command+' ...');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
also irgendwie krieg ichs nicht zum laufen ....
in dem Beispiel steht
var diskname: string;
--
DosCommand1.CommandLine := 'c:\myformat.bat a:';
DosCommand1.Execute; //launch format process
DosCommand1.SendLine('', True); //equivalent to press enter key
DiskName := 'test';
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Das klingt gut... werds mal probieren
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Ich gebe zu ich hab keinen Plan :(
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Das funktioniert echt gut! Aber wie krieg ich das in meine Consoleapp und nicht in das extra cmd Fenster ?
LG
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Es geht mir nicht nur um DIR sondern um Alle Befehle, welche ich in einem CMD Prompt executen kann. (ipconfig, dir, copy, usw usw )
Der Sinn liegt darin, das ich ein kleines commandline Tool bastle, indem ich verschiedene Befehle ausführen kann. hier möchte ich eben noch
oben genannte DOS Befehle einbinden dh. Die Eingabe sieht dann ca so aus: execcmd <DOS-BEFEHL>.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
also um mal alle offenen Fragen zu beantworten ;)
- nicht dos sondern cmd kommandos
- commands = Kommandos wie zB "dir"
- abschießen = ausführen ;)
- was nicht funktioniert? Irgendwie passiert nichts :/
LG
Forum: Algorithmen, Datenstrukturen und Klassendesign
by value is NULL,
30. Mär 2012
Hi Leute ...
Hab schon viel gegoogelt und bin leider noch zu keinem befriedigendem Ergebnis gekommen. Ich möchte Dos befehle in meiner
Kommandozeilen app abschießen können und die Ausgabe via Writln oder was auch immer anzeigen.
das dürfte mit ShellExecute( 0, 'open', 'cmd', PChar('/k '+command), NIL, SW_ShowNormal ); funktioniere... tuts aber nicht
hat jemand einen Tipp für mich?
LG