Как отредактировать файл с помощью указанного редактора?

Question

В настоящее время я использую следующую функцию, чтобы открыть файл, используя редактор по умолчанию, и убедитесь, что мое приложение ждет, пока пользователь не закроет окно редактора.

function EditAndWait(const AFileName : string) : boolean; 
var 
    Info: TShellExecuteInfo; 
begin 
    FillChar(Info, SizeOf(Info), 0); 
    Info.cbSize := SizeOf(Info); 
    Info.lpVerb := 'edit'; 
    Info.lpFile := PAnsiChar(AFileName); 
    Info.nShow := SW_SHOW; 
    Info.fMask := SEE_MASK_NOCLOSEPROCESS; 
    Result := ShellExecuteEx(@Info); 
    if(Result) and (Info.hProcess <> 0) then 
    begin 
    WaitForSingleObject(Info.hProcess, Infinite); 
    CloseHandle(Info.hProcess); 
    end; 
end; 

Я хотел бы написать аналогичную функцию, которая позволяет указать исполняемый файл редактора для редактирования.

function EditAndWait(const AFileName : string; const AEditor : string) : boolean; 
begin 
    //... 
end; 

Answer 1

Как сказал Дэвид, вам нужно запустить программу редактора и передать файл в качестве параметра.

Существует несколько способов сделать это. Это наиболее похоже на вашу текущую функцию:

function EditAndWait(const AFileName : string; const AEditor : string) : boolean; 
var 
    Info: TShellExecuteInfo; 
begin 
    FillChar(Info, SizeOf(Info), 0); 
    Info.cbSize := SizeOf(Info); 
    Info.lpVerb := 'open'; 
    Info.lpFile := PChar(AEditor); 
    Info.nShow := SW_SHOW; 
    Info.fMask := SEE_MASK_NOCLOSEPROCESS; 
    Info.lpParameters := PChar(AFileName); 
    Result := ShellExecuteEx(@Info); 
    if(Result) and (Info.hProcess <> 0) then 
    begin 
    CloseHandle(Info.hProcess); 
    WaitForSingleObject(Info.hProcess, Infinite); 
    end; 
end;