Хакерок:)
03.12.2010, 19:44
Доброго времени суток. Я пишу программу, для отправки сообщений между компами в малой сети (для интернет-клуба). Так-как впервые работаю с командной строкой Windows (прежде не имелось надобности), то хотел бы узнать - будет работать данный код?
В sComboBox1.Items при запуске автоматом из файла .txt загружается список IP-адресов, в sEdit вписывают текст. Ниже код для отправки сообщения:
procedure TForm1.sButton1Click(Sender: TObject);
var s:string;
begin
s := sComboBox1.Text; //кому
s := s + ' ' + sEdit1.Text; //текст
s := 'net send ' + s;
winexec(Pchar(s),SW_SHOWMINNOACTIVE);
end;
P.S. В данный момент нет возможности проверить. /facepalm
В sComboBox1.Items при запуске автоматом из файла .txt загружается список IP-адресов, в sEdit вписывают текст. Ниже код для отправки сообщения:
procedure TForm1.sButton1Click(Sender: TObject);
var s:string;
begin
s := sComboBox1.Text; //кому
s := s + ' ' + sEdit1.Text; //текст
s := 'net send ' + s;
winexec(Pchar(s),SW_SHOWMINNOACTIVE);
end;
P.S. В данный момент нет возможности проверить. /facepalm