Скачать: CL | DM;

Как открыть файл   Найти похожие ветки 

← →
Katya21 ©   (2005-07-29 10:09) [0]

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

---

← →
MBo ©   (2005-07-29 10:14) [1]

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

---

← →
Fay ©   (2005-07-29 10:14) [2]

2 Katya21 ©   (29.07.05 10:09)

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

---

← →
Gydvin ©   (2005-07-29 10:17) [3]

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

---

← →
isasa ©   (2005-07-29 10:19) [4]

Сделай лучше так
Пример открывает хелп-файлы 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;

---

← →
Katya21 ©   (2005-07-29 10:29) [5]

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

---

← →
Leonid Troyanovsky ©   (2005-07-29 10:32) [6]

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


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

--
Regards, LVT.

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

---

← →
IceBeerg ©   (2005-07-29 13:03) [7]

Орешник?

---

← →
Fay ©   (2005-07-29 13:25) [8]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c