Thema: Delphi NetSend mit Delphi

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: NetSend mit Delphi

  Alt 1. Jan 2004, 12:49
also bei mir geht das so auch

Delphi-Quellcode:
procedure TForm1.Senden;
var Send: string;
begin
  Send := 'send ' + User.Text + ' ' + Nachricht.Text;
  ShellExecute(GetDesktopWindow, 'open', 'net.exe', PChar(Send), nil, SW_HIDE);
end;
Wo bei "User" ein Edit ist, in dem der Empfänger steht (angemeldeter User oder Computername)
und "Nachricht" ein Memo ist, in dem die nachricht steht
  Mit Zitat antworten Zitat