Текущий архив: 2007.07.01;
Скачать: CL | DM;

Вниз

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

← →
webpauk   (2007-06-07 18:40) [0]

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

---

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

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

уверен?

---

← →
webpauk   (2007-06-07 18:42) [2]

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

дык да...

---

← →
webpauk   (2007-06-07 18:42) [3]

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

---

← →
webpauk   (2007-06-07 18:48) [4]

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

---

← →
webpauk   (2007-06-07 18:58) [5]

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;

вопрос снят

---

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

Текущий архив: 2007.07.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c