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

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

Как програмно открыть файл в конкретном приложении [D6]

dp200 ©   (2005-05-19 11:24:00) 

Как програмно открыть файл в конкретном приложении(не соответствующей ей программе),
а в конкретно заданной

---

КиТаЯц   (2005-05-19 12:46:00) [1]

ShellExecute(handle,'OPEN' , 'пусковой файл программы', 'открываемый файл', nil, SW_SHOWNORMAL);
например
ShellExecute(0, 'OPEN' , 'notepad.exe', 'myprofile .reg', nil, SW_SHOWNORMAL);

---

Ega23   (2005-05-19 11:27:00) [2]


if chbCreateReport.Checked then
 begin
  fn:=ExtractFilePath(Paramstr(0))+'Result.txt';
  AssignFile(F, fn);
  if FileExists(fn) then Append(F) else Rewrite(F);
  WriteLn(F);
  WriteLn(F, DateTimeToStr(Now));
  WriteLn(F,SQL);
  CloseFile(F);
  WinExec(PChar('notepad '+fn),SW_SHOWDEFAULT);
 end;


---

Наверх