Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизКак открыть файл Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.063 c