External exception EEEFACE. WTF? O_o

[yoshimidzo]

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

ооо. теперь еще выпадает BORdbk70.dll

после перезагрузки то же самое вылезло

переустановка не помогла

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

[Nightmareterrible]

Тоже страдал от этой проблемы. ShellExecute на файлах PDF. Решено при помощи танцев с бубнами

procedure exec1(Filename: string);

  function RunMyApp(my_app: string; my_wait: bool): bool;
  // http://www.sql.ru/forum/273134/zapusk-programmy-ispolzuya-createprocess
  // и
  // http://otvety.google.ru/otvety/thread?tid=711adc007d13d112
  var
    StartInfo: TStartUpInfo;
    ProcInfo: TProcessInformation;
    createOK: Boolean;

  begin
    FillChar(StartInfo, SizeOf(TStartUpInfo), #0);
    FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
    StartInfo.cb := SizeOf(TStartUpInfo);
    StartInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartInfo.wShowWindow := SW_SHOWNORMAL;

    UniqueString(my_app); // this make the magic.
    createOK := CreateProcess(Nil, pchar(my_app), Nil, Nil, false,
      CREATE_NEW_PROCESS_GROUP + HIGH_PRIORITY_CLASS, NIL, NIL, StartInfo, ProcInfo);
    Result := createOK;
    try
      CloseHandle(ProcInfo.hThread);
    except
      ;
    end;
    if my_wait = true then
      WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    try
      CloseHandle(ProcInfo.hProcess);
    except
      ;
    end;
  end;

var
  fh: THandle;
  buf: string;
  nulPos: Integer;
begin
  SetLength(buf, 255);
  FillChar(buf[1], 255, #0);
  fh := FindExecutable(PWideChar(Filename), nil, @buf[1]);
  if fh > 32 then
  begin
    nulPos := Pos(#0, buf);
    if nulPos > 0 then
      buf := copy(buf, 1, nulPos - 1);
    RunMyApp('"' + buf + '" ' + '"' + Filename + '"', false);
  end
  else
    ntSmetaForm.InfoMessage(SysErrorMessage(GetlastError));
end;

Использование:
Exec1('c:\123.PDF');