Hi, ich möchte (als totaler Anfänger) ein Programm schreiben, dass zwei editfelder (einmal
IP/computername und eimal den Nachrichtentext) in eine Batchdatei schreibt und diese dann ausführt. Der Hintergrund ist, dass ich eine Oberfläche für den "Net send" Befehl aus Dos basteln will.
dh ich bräuchte die Ausgabe in eine datei mit endung .bat (der eigentliche Dateiname is egal, weil sowieso nur temporär) und dem inhalt:
net send (edit1.text) (edit2.text)
kann mir dabei jemand helfen, oder sich sogar erbarmen mir den fertigen code zukommen zu lassen?
hier is noch das was ich bisher gemacht habe:
Delphi-Quellcode:
unit Chat2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(PChar('
C:\Dokumente und Einstellungen\Administrator\Desktop\Batch\del.bat'), sw_Show);
edit2.Text:='
';
end;
end.