der "net send" befehl

[Rapthor]

wie kann ich den "net send" - befehl in delphi so umsetzen, dass ich diesen Befehl auch noch mit zusätzlichen Parametern ausführ?
Soll heißen, dass wenn ich in einem TextEdit eingebe "user6 testmessage", eine Routine daraus den Befehl "net send user6 testmessage" macht.
Wie sieht das speziell im Quelltext aus?
Für Hilfe wäre ich sehr dankbar.
Rapthor

[Christian Seehase]

Moin Rapthor,

also wenn Du direkt "net send" verwenden willst ginge das wohl am einfachsten mit ShellExecute.
Beispiele dafür wirst Du hier in grösserer Zahl finden können.

[Rapthor]

Folgendes entspricht meinem Quelltext

Code:

ShellExecute(Handle, nil, 'c:\test.exe', nil, nil, SW_SHOW);

Wie bekomme ich jetzt das Programm test.exe mit einem Parameter gestartet den ich von nem TEdit Feld holen lasse?
Ich will dass das Prog meine Eingabe im TEdit einliest und die test.exe dann als test.exe [meine Eingabe] startet.
Rapthor

[Daniel B]

Hallo,

ShellExecute(Handle, nil, 'c:\test.exe', Parameter1/Edit-Text, nil, SW_SHOW); Grüsse, Daniel

[Rapthor]

Das ist jetzt mein Quelltext

Code:

ShellExecute(Handle, nil, 'c:\test.exe', Parameter1, nil, SW_SHOW);

Parameter1 ist doch wohl der Name der TEdit Komponente oder? Jedenfalls hab ich dem TEdit den Parameter1 als Namen gegeben.
Folgende Fehlermeldung beim Kompilieren:

[Error] Unit1.pas(29): Incompatible types: 'TEdit' and 'PAnsiChar'

was denn nun?

[Chewie]

Zitat von Rapthor:

Parameter1 ist doch wohl der Name der TEdit Komponente oder?

Falsch. Parameter1 muss irgendein Stringwert sein, z. B. Edit1.Text. TEdit ist aber nicht vom Typ String, und deshalb taucht bei dir der Fehler auf. Wenn dein Editfeld als Parameter1 heißen würde, müsstest du Parameter1.Text an die Funktion übergeben.

[Daniel B]

Parameter1 ist ein Wort von mir! Soll heissen, an der Stelle, ist der erste Parameter. Du brauchst folgendes:
'meine.exe', PChar(Edit1.Text), nil, ... Grüsse, Daniel

[Rapthor]

Und wo stell ich den Typ des Edit Feldes auf String damit meine neue Anweisung

Code:

ShellExecute(Handle, nil, 'c:\test.exe', Edit1.Text, nil, SW_SHOW);

funktioniert?

[Rapthor]

wuhu DANKE

[Daniel B]

Zitat von Rapthor:

Und wo stell ich den Typ des Edit Feldes auf String damit meine neue Anweisung

Code:

ShellExecute(Handle, nil, 'c:\test.exe', Edit1.Text, nil, SW_SHOW);

funktioniert?

Edit1.Text ist ja schon String. Du brauchst ein Char zum übergeben! Siehe mein letztes Posting.

Grüsse, Daniel