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

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

Как открыть файл

Katya21 ©   (2005-07-29 10:09:00) 

Есть два Opendialoga одна исполняющая программа другой открываемый файл.Я делала так(после того как файлы выбраны диалогами)
procedure TForm1.БатонClick(Sender: TObject);
var
c,d:string;
begin
c:=form5.Edit1.Text;
d:=opendialog1.FileName;
WinExec('c        d', sw_ShowNormal);
end;
Но не получается

---

Fay   (2005-07-29 13:25:00) [1]

2 IceBeerg ©   (29.07.05 13:03) [7]
На самом деле, да. Правда я не смеялся - был в шоке.
"Утечка хендлов ядра" куда прикольнее звучит! 8)

---

IceBeerg   (2005-07-29 13:03:00) [2]

Орешник?

---

Leonid Troyanovsky   (2005-07-29 10:32:00) [3]

> isasa ©   (29.07.05 10:19) [4]
> Сделай лучше так
> Пример открывает хелп-файлы win32


Если бы оный пример открывался почаще,
то стала бы очевидна утечка хендлов ядра.

--
Regards, LVT.

PS  Чукча-писатель?

---

Katya21   (2005-07-29 10:29:00) [4]

Попробую
А WinExec('Путь имя расширение открываемого файла      Путь имя расширение к открываемому файлу', sw_ShowNormal);

---

isasa   (2005-07-29 10:19:00) [5]

Сделай лучше так
Пример открывает хелп-файлы win32

procedure TForm1.Button1Click(Sender: TObject);
var exeName, chmFile : string;
   ProcInf: TProcessInformation;
   StartupInf: TStartupInfo;
   FResult : boolean;
begin
 OpenDialog.Filter:='Help files (*.chm)|*.CHM';
 if OpenDialog.Execute then begin
   OpenDialog.FileName;
   exeName:='c:\winnt\Hh.exe';
   chmFile:=' '+OpenDialog.FileName; // лидирующий пробел обязательно!!!!
   GetStartupInfo(StartupInf);
   StartupInf.wShowWindow := SW_NORMAL;
   FResult := CreateProcess( PChar(exeName), PChar(chmFile), nil, nil, false,
         NORMAL_PRIORITY_CLASS, nil, nil, StartupInf, ProcInf);
   if FResult then
       ShowMessage('Ok!');
 end;
end;

---

Gydvin   (2005-07-29 10:17:00) [6]

А енто че
procedure TForm1. БатонClick(Sender: TObject);

---

MBo   (2005-07-29 10:14:00) [7]

Ууу, срочно садись за книжки по Паскалю!
Первое приближение:
WinExec(c+' '+d, sw_ShowNormal);

---

Fay   (2005-07-29 10:14:00) [8]

2 Katya21 ©   (29.07.05 10:09)

>> WinExec( 'c        d'
Это шутка?

---

Наверх