Форум: "WinAPI";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];

Вниз

Не могу запустить файл   Найти похожие ветки 

← →
sicilla ©   (2006-05-30 12:41) [0]

Добрый день! есть такой код запуска любого файла с ожиданием завершения работы с файлом:
function StartAssociatedExe(FileName: string; var ErrorCode: Cardinal): Boolean;
var
  Prg: string;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
begin
    SetLength(Prg, MAX_PATH);
    Result := False;
    ErrorCode := FindExecutable(PChar(FileName), nil, PChar(Prg));
    if ErrorCode >= 32 then
    begin
         SetLength(Prg, StrLen(PChar(Prg)));
         FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
         with StartupInfo do
              begin
                   cb := SizeOf(TStartupInfo);
                   wShowWindow := SW_SHOW;
              end;
         if CreateProcess(PChar(Prg), PChar(Format("%s %s", [Prg, FileName])),
            nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
         begin
              WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
              GetExitCodeProcess(ProcessInfo.hProcess, ErrorCode);
              CloseHandle(ProcessInfo.hProcess);
              CloseHandle(ProcessInfo.hThread);
              Result := True;
         end
         else ErrorCode := GetLastError;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  ErrorCode: Cardinal;
begin
    StartAssociatedExe("c:\Документ Microsoft Word.doc", ErrorCode);
    showmessage("Выполнение закончено");
end;
При запуске Word говорит, что не может найти файл. В чем тут загвоздка? Помогите пожалуйста

---

← →
Dmitrij_K   (2006-05-30 12:52) [1]

if CreateProcess(nil, PChar(Format(""%s" "%s"", [Prg, FileName])),

---

← →
sicilla ©   (2006-05-30 12:58) [2]

Супер! Спасибо огромное!

---

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

Форум: "WinAPI";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.056 c