запуск exe

[Manitu]

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

[eoln]

Зная абсолютный адрес запущенной программы можно вычислить относительный.

путь := ExtractFilePath(Application.ExeName) //папка запуска

Ещё один способ (старый)

WinExec(путь, sw_ShowNormal);

[Alter]

WinExec нетак универсален, некоторые файлы, программы запускает некорректно. Используйте ShellExecute или CreateProcess, возможностей больше.

[evg_m]

а посмотрть справку по shellexecute

HINSTANCE ShellExecute(

HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);

один из параметров как раз и есть папка для задания рабочей (относительно которой будут определяться пути)

[Manitu]

неее... тема тут немного другая... абсолютный путь НЕИЗВЕСТЕН...
вот страницы в программе у меня адреса к ним прописаны начиная с той папки, в которой лежит сам экзешник, и независимо от того где лежит эта папка, мы сможем запустить программу и все будет работать. Можно эту папку перенести в любое место, на другой компьютер - и все будет работать.
в том то и дело, что абсолютный путь - слишком легко меняется.
как сделать, чтобы отталкивался адрес к екзешнику, который должен запуститься из приложения, от того места, где запущенное приложение??

[eoln]

путь := ExtractFilePath(Application.ExeName); //папка запуска
путь := путь + '\' + путь_с_той_папки_в_которой_лежит_сам_экзешник + имя_запускаемого_файла;

[B_N]

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

как сделать, чтобы отталкивался адрес к екзешнику, который должен запуститься из приложения, от того места, где запущенное приложение??

Указывайте относительный путь от текущего каталога, скажем, '.\MyDirectory\MyApp.exe'. И пользуйтесь CreateProcess. ShellExecute предназначена в первую очередь для запуска файлов по ассоциациям, элементов меню, виртуальных папок, вроде "Мои документы".

[Manitu]

Хм, пасиба канешно..
А можете еще пожалуста объяснить, что в этом CreateProcess указывать в параметрах, кроме адреса к файлу?..
Не могу найти...

[Serge_Bliznykov]

B_N, а можно я задам свой вопрос в чужой теме?...
меня всегда интересовало и вот, вроде представился шанс уточнить.

Указывайте относительный путь от текущего каталога, скажем, '.\MyDirectory\MyApp.exe'.

подскажите, а чем запись от текущего каталога '.\MyDir\'
отличается от записи 'MyDir\' ? Насколько я понимаю, это полностью идентично? Или есть нюансы?..

[Serge_Bliznykov]

Manitu, вот, если поможет, рабочая программка —пример консольной программы (запаковать файл, вызвав ARJ.exe):

program TestArj;

USES SYSUTILS, Windows;
{$APPTYPE CONSOLE}

procedure PackFile( sFName, sDestPath : string);
var si:TStartupInfo;
    pi:TProcessInformation;
    cmdline:string;

begin
    ZeroMemory(@si,sizeof(si));
    si.cb:=SizeOf(si);
    cmdline:='C:\UTIL\ARCS\arj.exe a currtest c:\temp\*.htm';
    if not CreateProcess( nil, // No module name (use command line).
        PChar(cmdline),  // Command line.
        nil,             // Process handle not inheritable.
        nil,             // Thread handle not inheritable.
        False,           // Set handle inheritance to FALSE.
        0,               // No creation flags.
        nil,             // Use parent's environment block.
        nil,             // Use parent's starting directory.
        si,              // Pointer to STARTUPINFO structure.
        pi )             // Pointer to PROCESS_INFORMATION structure.
       then
        begin
         WriteLn( 'CreateProcess failed. ('+cmdline+')' );
         Exit;
        end;
    WaitForSingleObject( pi.hProcess, INFINITE );
    CloseHandle( pi.hProcess );
    CloseHandle( pi.hThread );
//    WriteLn('Done !');
end;
begin
  ...
  PackFile('',''); 
  ...
end.