Net Send
Jeg vil lige høre om man kan sætte hvem beskeden er fra i cmd commando'en til net send?.... da det er den jeg bruger i delphi... eller kan jeg gøre noget så man kan vælge navn...Her er min delphi kode... den virker fint.. men man kan ikke sætte From Name....
Er der en mulighed for at jeg kan få den funktion (From Name)
Eller findes det kun i .net c++ vb?
Har søgt meget på nettede!
Her er min Source: ( i kan lige gætte jer til formen... eller downloade den på http://mulbo.com under delphi og så download ;)
procedure TForm1.Button1Click(Sender: TObject);
var
antal : integer;
computernavn : STRING;
besked : STRING;
X : integer;
MyINI : TINIFile;
PathToINIFile : STRING;
begin
antal := StrToINT(edit3.text);
computernavn := edit1.Text;
besked := edit2.Text;
for X := 1 to antal do
begin
WinExec(Pchar('Net send '+Edit1.text+' '+Edit2.text),SW_HIDE);
end;
PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'MNS.ini';
MyINI := TINIFILE.Create(PathToINIFile);
MyINI.WriteString('MNS', 'Computernavn', computernavn);
MyINI.WriteString('MNS', 'Besked', besked);
MyINI.WriteInteger('MNS', 'Antal', antal);
MyINI.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('Tak fordi du bruger mit program.. MvH MulBo');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
MyINI : TINIFile;
PathToINIFile : STRING;
begin
PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'MNS.ini';
MyINI := TINIFILE.Create(PathToINIFile);
edit1.Text := MyINI.ReadString('MNS', 'Computernavn', '');
edit2.Text := MyINI.ReadString('MNS', 'Besked', '');
edit3.Text := IntToStr(MyINI.ReadInteger('MNS', 'Antal', 1));
MyINI.Free;
end;
