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

Вниз

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

← →
dp200 ©   (2005-05-19 11:24) [0]

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

---

← →
Ega23 ©   (2005-05-19 11:27) [1]


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;


---

← →
КиТаЯц ©   (2005-05-19 12:46) [2]

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

---

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

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

Наверх

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