Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

компонент Shell помогите кто знает.   Найти похожие ветки 

← →
slavaz   (2004-07-30 23:17) [0]

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

---

← →
BDenis ©   (2004-07-31 10:21) [1]

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

uses ShellApi;

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


---

← →
DSKalugin ©   (2004-07-31 20:05) [2]

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

---

← →
Anatoly Podgoretsky ©   (2004-07-31 20:08) [3]

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

---

← →
GuAV ©   (2004-07-31 20:45) [4]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.085 c