Kommandozeile

**nixxxo**

wie schaff ichs dem system eine kommandozeile a la

Code:

net send /DOMAIN:irgendwas test

zu übergeben?
mit ShellExecute gehts nicht so wie ichs mir vorstell
er öffnet zwar n fenster aber nix wird ausgeführt

wär cool wenn ihr mir helfen könntet

nixxxo

btw hab WinXP

**jbg**

ShellExecute will im 3. Argument nur den Dateinamen der auszuführenden Datei haben und keine Aufrufparameter. Dafür ist das 4. Argument zuständig.
ShellExecute(Application.Handle, 'open', 'net', 'send ...

**Christian Seehase**

Moin nixxxo,

erst einmal herzlich willkommen.

Wie, das geht nicht mit ShellExectute?

Aber im Ernst:

Wenn ich den Net Befehl so aufrufe (ging gerade nicht sinnvoll mit Send)

ShellExecute(0,'open','net.exe','share',nil,SW_NORMAL); sehe ich kurz die Box aufgehen und die Shares werden angezeigt.

Wie hattest Du es denn aufgerufen, bzw. geht's wenn Du das 'share' aus meinem Beispiel gegen Dein 'send /DOMAIN:irgendwas test' austauscht?

**nixxxo**

ich hatte bis jetz immer dem programm cmd die parameter "net send ..." übergeben.
das ganze sah so aus

markieren

Code:

			cmdstr := '/c net send /DOMAIN:'+who+' '+textstr+' '+'> errlog.txt';

ShellExecute(handle,'open','c:\windows\system32\cmd.exe',@cmdstr,nil,SW_SHOW);

wo iss der fehler?
soviel hab ich mit delphi auch noch nicht programmiert

ich probiers mal mit net.exe direkt

**nixxxo**

hmmm
hat auch nicht so den gewünschten effekt gehabt.
habt ihr noch irgendwelche vorschläge?
wär cool

**d3g**

Hi nixxxo,

was ist den cmdstring? Wenn es ein PChar ist, dann übergib als 4. Parameter nur cmdsrting, nicht @cmdstring. Wenn es ein String ist, dann musst du @cmdstring[1] oder (per Compiler Magic) PChar(chmdstring) übergeben. Übrigens: warum rufst du net nicht direkt auf, sondern über cmd? Der Sinn ergibt sich mir nicht ganz...

MfG,
d3g

**nixxxo**

cmdstring iss wie der name schon sagt n string
ich weiss selber nicht warum ich net nicht direkt aufrufe

hab bis jetz noch nicht dran gedacht ...
danke dir werd ich gleich mal ausprobieren

**nixxxo**

danke jetz funktionierts

bis zum näxten problem

nixxxo

nixxxo Registriert seit: 9. Dez 2002 5 Beiträge	#1 Kommandozeile 9. Dez 2002, 21:23 wie schaff ichs dem system eine kommandozeile a la markieren Code: net send /DOMAIN:irgendwas test zu übergeben? mit ShellExecute gehts nicht so wie ichs mir vorstell er öffnet zwar n fenster aber nix wird ausgeführt wär cool wenn ihr mir helfen könntet nixxxo btw hab WinXP
	Zitat

jbg Registriert seit: 12. Jun 2002 3.481 Beiträge Delphi 10.1 Berlin Professional	#2 9. Dez 2002, 21:45 ShellExecute will im 3. Argument nur den Dateinamen der auszuführenden Datei haben und keine Aufrufparameter. Dafür ist das 4. Argument zuständig. ShellExecute(Application.Handle, 'open', 'net', 'send ... Andreas aka AHUser aka jbg Mein Blog - kombiniert mit all meinen Delphi Tools
	Zitat

nixxxo Registriert seit: 9. Dez 2002 5 Beiträge	#5 10. Dez 2002, 19:55 hmmm hat auch nicht so den gewünschten effekt gehabt. habt ihr noch irgendwelche vorschläge? wär cool
	Zitat

nixxxo Registriert seit: 9. Dez 2002 5 Beiträge	#7 10. Dez 2002, 20:06 cmdstring iss wie der name schon sagt n string ich weiss selber nicht warum ich net nicht direkt aufrufe hab bis jetz noch nicht dran gedacht ... danke dir werd ich gleich mal ausprobieren
	Zitat

nixxxo Registriert seit: 9. Dez 2002 5 Beiträge	#8 10. Dez 2002, 20:10 danke jetz funktionierts bis zum näxten problem nixxxo
	Zitat

Kommandozeile

Kommandozeile

Forumregeln