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

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

Открыть файл [D6, WinXP]

webpauk ©   (2007-06-07 18:40:00) 

Подскажите как открыть файл, не ассоциированный ни с какой программой.
ShellExecute - не запускает...
нужно стандартный диалог с предложением выбрать файл или поискать в инете

---

webpauk   (2007-06-07 18:58:00) [1]

procedure ExecFile(const cFileName: String);
var
 SEInfo: TShellExecuteInfo;
 ExitCode: DWORD;
 ExecuteFile: string;
begin
 ExecuteFile:=cFileName;
 FillChar(SEInfo, SizeOf(SEInfo), 0);
 SEInfo.cbSize:=SizeOf(TShellExecuteInfo);

 with SEInfo do
 begin
   fMask:=SEE_MASK_NOCLOSEPROCESS;
   Wnd:=Application.Handle;
   lpFile:=PChar(ExecuteFile);
   nShow:=SW_SHOWNORMAL;
 end;

 if ShellExecuteEx(@SEInfo) then
 begin
   repeat
     Application.ProcessMessages;
     GetExitCodeProcess(SEInfo.hProcess, ExitCode);
   until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
 end
 else ShowMessage('Error opening '+cFileName);
end;

вопрос снят

---

webpauk   (2007-06-07 18:48:00) [2]

создай C:\1.fhj и попробуй:
ShellExecute(Handle, 'Open', 'C:\1.fhj', nil, nil, SW_SHOW);

---

Правильный Вася   (2007-06-07 18:42:00) [3]

> ShellExecute - не запускает...

уверен?

---

webpauk   (2007-06-07 18:42:00) [4]

> Правильный Вася   (07.06.07 18:42) [1]

дык да...

---

webpauk   (2007-06-07 18:42:00) [5]

на 2 компах тестил

---

Наверх