So:
Delphi-Quellcode:
procedure TDemoForm.SendButtonClick(Sender: TObject);
var
netexe, params:
string;
begin
netexe := GetEnvironmentVariable('
windir') + '
\system32\net.exe';
params := '
* "who is general failure?"';
ShellExecute(
Handle, '
open', PAnsiChar(netexe), PAnsiChar(params),
nil, SW_HIDE);
end;
Voraussetzung ist, dass der Nachrichtendienst auch gestartet ist. Und wenn du das Ergebnis abwarten musst (bei net send eher nicht), dann suche nach ShellExecuteAndWait hier in der
DP.
marabu