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

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

Использование TFileRun [D7, XP]

Получайник ©   (2006-05-01 19:57:00) 

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

---

Glex   (2006-05-01 23:54:00) [1]

delphiworld.narod.ru

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

---

Gydvin   (2006-05-01 22:52:00) [2]

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;

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

---

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

>>>Мефисто
Ага, в модуль залез, но в разделе 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;

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

---

Мефисто   (2006-05-01 21:25:00) [4]

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

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

---

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

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

---

Гаврила   (2006-05-01 20:38:00) [6]

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

---

Наверх