Problem mit DOS!!!

Lucky · Beiträge: 84 XP Delphi 7

Hi,

schaut mal bitte euch das an

Delphi-Quelltext

1:	ShellExecute(Application.Handle,'open',pchar('cmd.exe '),pchar('net use f: \\edvtest\c$ /user:administrator kennwort'),pchar('c:\'),SW_show);

funktioniert aber net, warum?? tu jetzt da schon fast ne stunde rum aber komm
einfach net drauf :evil:

Vielen Dank schon mal im Voraus

MfG
chris

Moderiert von Tino: Delphi-Tags hinzugefügt

Sinspin · Verfasst: Di 04.03.08 14:54

Nur eine Stunde? Dann hast du aber schnell aufgegeben! Ich habe da mal ein bisschen länger gesucht und eine Lösung gefunden.

Versuchs mal so:

markieren

Delphi-Quelltext

1:	ShellExecute(Application.Handle, 'open', pchar('cmd.exe /C "net use f: \\edvtest\c$ /user:administrator kennwort"'), nil, pchar('c:\'), SW_show);

Auf diese Art übergibst du dem CMD den Befehl inclusive und nicht als Parameter. Warum das klappt und die andere Variante nicht? Keine Ahnung!

Ich verwede für gewöhnlich CreateProcess für solche Späße damit ich vernünftig warten kann bis die Sache abgeschlossen ist.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

jaenicke · Verfasst: Di 04.03.08 14:56

Das liegt daran, dass cmd nicht so aufgerufen werden kann...
Versuch das mal via "Ausführen...", dann wirst du sehen, dass das nicht geht. Du musst /C als ersten Parameter angeben, nur dann wird der nanach angegebene Befehl ausgeführt und cmd.exe danach beendet...

// EDIT:
Warum das nicht klappt? Weil /C fehlt, so sollte es gehen:

markieren

Delphi-Quelltext

1:	ShellExecute(Application.Handle,'open',pchar('cmd.exe'),pchar('/C net use f: \\edvtest\c$ /user:administrator kennwort'),pchar('c:\'),SW_show);

Lucky · Beiträge: 84 XP Delphi 7

erst mal thanks für die schnellen answers, allerdings funktioniert das leider trotzdem net...
cmd wird zwar gestartet allerdings kommt es mir so vor als ob der parameter nicht übergeben wird...

jaenicke · Verfasst: Di 04.03.08 15:09

Du kannst es ja statt mit dem alten ShellExecute mit CreateProcess versuchen, und um die Ausgabe zu analysieren kannst du ja diese Funktion benutzen, vielleicht siehst du dann was falsch läuft:
www.delphi-library.d...ewtopic.php?p=385387

Lucky · Beiträge: 84 XP Delphi 7

ahhhh, sorry!!! war grad etwas zu voreilig... hatte noch nen Fehler im befehl...
funktioniert jetzt wunderbar!!! vielen dank!!! thanks :flehan:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme