компонент 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)
А такой компонент есть, в какой версии Дельфи?

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;

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