Использование TFileRun

← →
Получайник (2006-05-01 19:57) [0]

Подскажите пожалуйста, как правильно пользоваться процедурой (или функцией?) TFileRun. За отсутствием Help’ов не могу правильно составить синтаксис. Предполагается, что эта процедура открывает внешний файл внешним же приложением.

← →
Гаврила © (2006-05-01 20:38) [1]

Это вроде как не "процедура или функция"
и даже не метод
это целый класс!!
так что, если нет хелпа
полезай в генофонд (ExtActns.pas)
и смотри там

← →
Получайник (2006-05-01 21:14) [2]

>>>>Гаврила ©
Прошу прошения за возможно глупый вопрос, но что значит "полезай в генофонд (ExtActns.pas)". ExtActns - это же модуль, который на поверку и содержит TFileRun класс. В него что, можно ещё и залезть?

← →
Мефисто (2006-05-01 21:25) [3]

Получайник (01.05.06 21:14) [2]

Тебе намекнули - смотри реализацию в исходном тексте, в модуле ExtActns.pas :)

← →
Получайник (2006-05-01 22:39) [4]

>>>Мефисто
Ага, в модуль залез, но в разделе implementation (реализация) по интересующему предмету нашёл только следующее:

{ TCustomFileRun }

constructor TCustomFileRun.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBrowse := False;
FHinst := 0;
FParentHWnd := 0;
FOperation := "open";
FFile := "";
FParameters := "";
FDirectory := "";
FShowCmd := scShowNormal;
SetupBrowseDialog;
end;

Интуиция подсказывает, что это и есть искомая реализация. Но как её
использовать, так и не дошел. Ткните носом, если не трудно.

TCustomFileRun = class(TCustomAction) private FBrowse: Boolean; FDirectory: TFileName; FFile: TFileName; FHInst: HInst; FParentHWnd: THandle; FParameters: String; FOperation: String; FShowCmd: TShowCmd; FBrowseDlg: TOpenDialog; FParentControl: TWinControl; procedure SetBrowseDlg(const Value: TOpenDialog); procedure SetParentControl(const Value: TWinControl); protected procedure Notification(AComponent: TComponent; Operation: TOperation); override; public constructor Create(AOwner: TComponent); override; procedure ExecuteTarget(Target: TObject); override; function HandlesTarget(Target: TObject): Boolean; override; procedure SetupBrowseDialog; property HInst: HInst read FHInst; procedure UpdateTarget(Target: TObject); override; property Browse: Boolean read FBrowse write FBrowse; property BrowseDlg: TOpenDialog read FBrowseDlg write SetBrowseDlg; property Directory: TFileName read FDirectory write FDirectory; property FileName: TFileName read FFile write FFile; property Operation: String read FOperation write FOperation; property ParentControl: TWinControl read FParentControl write SetParentControl; property Parameters: String read FParameters write FParameters; property ShowCmd: TShowCmd read FShowCmd write FShowCmd; end;

здесь все есть

delphiworld.narod.ru

Там всё есть ;)

Использование TFileRun Найти похожие ветки