*.bat dateien ändern und ausführen

[Pyromaniac]

Vor kruzem dachte ich mir, man könnte ja, zur vereinfachung ein Programm schreiben, mit welchen Befehle, welche über ausführen laufen vereinfachen könnte. Speziell rede ich da von Net Send und shutdown, um anderen Rechnern eine Nachricht schicken zu können. Also denke ich muss man delphi eine *.bat datei erstellen lassen und diese soll auch ausgeführt werden. Bei einem Netzwerk isses aber so, das es dort mehrere Rechner gibt und ich ja auch noch zwischen netsend und shutdown auswählen möchte. also muss die *.bat datei immer wieder von delphi umgeschrieben werden, und was wenn die nachricht auch mehrere Rechner erreichen soll? Naja, ich wäre auf jeden Fall für jede HIlfe dankabar, da ich mich damit überhaupt noch nicht beschäftigt habe und die delphi Hilfe in diesem sinne auch nicht viel her gibt. Ich benutze Delphi 7!

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Fragen / Anregungen zur DP" nach "Programmieren allgemein" verschoben.
Ist keine Frage zur DP

[Waldteufel]

Hi Pyromaniac. :hi:

Zitat:

Zitat von Pyromaniac

delphi Hilfe in diesem sinne auch nicht viel her gibt

Das ist nicht weiter verwunderlich, denn BAT-Dateien haben mit Delphi etwa soviel zu tun, wie eine Banane mit einem Tonkrug. ;-)
Man kann BAT-Dateien einfach mit einem Texteditor erstellen und bearbeiten.

Hier gibt's auch Tutorials zu diesem Thema.

[Pyromaniac]

Ich wollte aber genau das vermeiden indem ich das ganze über delphi mache, denn ihr wisst ja alle was für eine freundliche Benutzeroberfläche das erstellen von Btach dateien hergibt, nämlich keine...

[ManuMF]

Also, du könntest
a) Eine TStringList verwenden, und dann per TStringList.SaveToFile('Name.bat'); die Batchdatei erstellen, oder viel einfacher
b) Die Delphi-Funktionen InitiateSystemShutdown und ShellExecute verwenden - da du die Batch-Datei ausfpühren willst, bräuchtest du ohnehin ShellExecute, und das könntest du aber auch direkt nutzen.

Gruß,
ManuMF

P.S.: Beispiel für ShellExecute:

Delphi-Quellcode:

ShellExecute(Application.Handle, nil, 'Net', 'Send ' + PChar(DeineParameter), nil, SW_HIDE);