Открывание файлов из программы.

[Pavia]

Сообщение от BLACK_RAIN

я извращенец, по-этому расскажу извращенный способ:
запускать блокнот через CreateProcess() и запоминать хэндл его процесса. А перед открыванием нового файла, убивать блокнот по хэндлу и запускать новый.

С этим есть проблемы так как закрывается он по ID на не по хэндлу.

var
  newstdin,newstdout,read_stdout,write_stdin:THANDLE;  //дескрипторы

  si:TSTARTUPINFO;
  sa:TSECURITYATTRIBUTES;
  sd:TSECURITYDESCRIPTOR;        //структура security для пайпов
  pin:TPROCESSINFORMATION;
function IsWinNT:boolean;
var osv:TOSVERSIONINFO;
begin
{
  OSVERSIONINFO osv;
  osv.dwOSVersionInfoSize = sizeof(osv);
  GetVersionEx(&osv);
  return (osv.dwPlatformId == VER_PLATFORM_WIN32_NT);
}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Result:=(osv.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;

procedure TerminateBochs;
const
 ExeFileName: string='bochsdbg.exe';
 PROCESS_TERMINATE = $0001;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
 begin
 if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
 UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
 UpperCase(ExeFileName))) then
 TerminateProcess(
 OpenProcess(PROCESS_TERMINATE,
 BOOL(0),
 FProcessEntry32.th32ProcessID),
 0);
 ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
 end;
 CloseHandle(FSnapshotHandle);
end;


procedure StartBochs;
begin
TerminateBochs;
 if (IsWinNT) then        //инициализация security для Windows NT
  begin
    InitializeSecurityDescriptor(@sd,SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(@sd, true, NiL, false);
    sa.lpSecurityDescriptor := @sd;
  end else sa.lpSecurityDescriptor := Nil;

  sa.nLength := sizeof(SECURITY_ATTRIBUTES);
  sa.bInheritHandle := true;       //разрешаем наследование дескрипторов

  if not(CreatePipe(newstdin,write_stdin,@sa,0))then   //создаем пайп
  begin                                                  // для stdin
//    ErrorMessage("CreatePipe");
//    getch();
//    return;

  end;
  if not(CreatePipe(read_stdout,newstdout,@sa,0)) then //создаем пайп
   begin                                        // для stdout
//    ErrorMessage("CreatePipe");
//    getch();
    CloseHandle(newstdin);
    CloseHandle(write_stdin);
//    return;
  end;

  GetStartupInfo(si);      //создаем startupinfo для
                            // дочернего процесса

  {

  Параметр dwFlags сообщает функции CreateProcess
  как именно надо создать процесс.

  STARTF_USESTDHANDLES управляет полями hStd*.
  STARTF_USESHOWWINDOW управляет полем wShowWindow.

  }

  si.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWNORMAL;//SW_HIDE;
  si.hStdOutput := newstdout;
  si.hStdError := newstdout;   //подменяем дескрипторы для
  si.hStdInput := newstdin;    // дочернего процесса

 if IsWinNT=true then

 if not(CreateProcess(nil,'C:\Program Files (x86)\Bochs-2.6.8\bochsdbg.exe  -q -f ".\bochs\bochsrc.bxrc"',Nil,NiL,TRUE,CREATE_NEW_CONSOLE,
// if not(CreateProcess(nil,'C:\Bochs-2.6.9\bochsdbg.exe  -q -f ".\bochs\bochsrc.bxrc"',Nil,NiL,TRUE,CREATE_NEW_CONSOLE,
                     NiL,NiL,si,pin)) then
  begin
    ShowMessage('Ошибка создания процесса Bochs');
    CloseHandle(newstdin);
    CloseHandle(newstdout);
    CloseHandle(read_stdout);
    CloseHandle(write_stdin);
  end;


end;

[BLACK_RAIN]

Сообщение от Pavia

С этим есть проблемы так как закрывается он по ID на не по хэндлу.

перепутал, но это не важно. Смысл понятен. Запомнить результат CreateProcess(), а потом найти и убить процесс. Так вроде можно.

[northener]

Сообщение от Andru_

Мне нужно открывать из программы разные файлы.

И пока никто не спросил зачем? И почему нужно именно вызовом сторонней программы? И почему нужен именно один экземпляр конкретной сторонней программы?

[p51x]

northener, он же вопросом про вьюверы практически ответил. Вьювер хочет написать и думал это сделать вызовом блокнота/просмотрщика картинок/автокада/...

[Andru_]

Сообщение от p51x

А что вам непонятно? Условно и упрощенно: смотрят - файл txt, текст - показывают в мемо, файл jpg, bmp,... картинка - грузять, декодируют, показывают в имадж или так рисуют, и т.д.

С этими понятно.
Но мне нужно как-то организовать быстрый просмотр ещё, как-минимум, акадовских и инвентори файлов.

[p51x]

И? Открываете кадовский файл, парсите его, строите сцену, ... и рисуете.

[Andru_]

Сообщение от p51x

И? Открываете кадовский файл, парсите его, строите сцену, ... и рисуете.

А функциональность? масштабирование, вращение для 3D-моделей?

[Andru_]

У AutoVue от Oracle есть библиотека и компонент вьювера.
Но, к сожалению, на Windows10 AutoVue уже не ставится.

[Andru_]

У меня была программа, с просмотром файлов через AutoVue.
И голова не болела. Теперь на W10 нужно что-то придумать.

[northener]

Сообщение от p51x

northener, он же вопросом про вьюверы практически ответил. Вьювер хочет написать и думал это сделать вызовом

Обломится. Не в том что это невозможно, но в том что "конфетки" не получится.