DOS cmd befehle

[marabu]

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