| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

компонент Shell помогите кто знает. [WinXP]

slavaz ©   (2004-07-30 23:17:00) 

компонент Shell помогите кто знает.
как он работает. конкретно, надо запустить net.exe параметр net send compname 'text'
Заранее благодарю.
помогите начинающему.

---

GuAV   (2004-07-31 20:45:00) [1]

Anatoly Podgoretsky ©   (31.07.04 20:08) [3]

Вот он:

unit MyShell;

interface

uses
 SysUtils, Classes, Windows;

type
 Shell = class(TComponent)
 private
   FCmd: string;
 public
   procedure Execute;
 published
   property Cmd: string read FCmd write FCmd;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Samples', [Shell]);
end;

procedure Shell.Execute;
begin
 WinExec(PChar(Cmd), 0);
end;

---

Anatoly Podgoretsky   (2004-07-31 20:08:00) [2]

slavaz   (30.07.04 23:17)  
А такой компонент есть, в какой версии Дельфи?

---

DSKalugin   (2004-07-31 20:05:00) [3]

а можно и так
ShellExecute (0, nil, PChar ('net send compname "text"'), nil, nil, SW_SHOWNORMAL);

---

BDenis   (2004-07-31 10:21:00) [4]

> надо запустить net.exe параметр net send compname 'text'

uses ShellApi;

ShellExecute (0, 'open', PChar ('net'), PChar ('send * test'), nil, SW_SHOWNORMAL);


---

Наверх