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

← →
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);

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

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

--
Regards, LVT.

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

Орешник?

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

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