Как использовать PathCombine() из WinAPI в Pascal Script/Inno Setup?

Question

Я пытаюсь выяснить, как использовать функции WinAPI из Pascal Script/Inno Setup. Я не нашел много примеров кода, как это сделать, и я не программист Pascal. Вот что я сделал до сих пор:

Импорт функции

function PathCombine (
    pszPathOut : PChar; 
    pszPathIn : PChar; 
    pszMore : PChar 
) : PChar; 
    external 'PathCombineA@Shlwapi.dll stdcall'; 

и использовать его как это:

function InitializeSetup(): Boolean; 
var 
    a, b,c : PChar; 
    s : string; 
begin 
    SetLength(s, 256); { soon it gets working I'll switch to use MAX_PATH instead of } 
    a := 'C:'; 
    b := 'one\two'; 
    c := PathCombine(s, a, b); 
    MsgBox(s, mbInformation, MB_OK); 
end; 

Выход заключается в следующем:

Ожидаемый результат является:

C: \ один \ два

Я довольно уверен, что я доступ к значениям мусора в памяти, но я не знаю, почему, как это исправить?

Answer 1

Вы не указали, используете ли вы программу Ansi или Unicode Inno Setup.

Но это должно работать в любой версии:

function PathCombine(
    pszPathOut : PAnsiChar; 
    pszPathIn : PAnsiChar; 
    pszMore : PAnsiChar 
) : PAnsiChar; external 'PathCombineA@Shlwapi.dll stdcall'; 

function InitializeSetup(): Boolean; 
var 
    a, b, c: AnsiString; 
begin 
    SetLength(c, 256); { soon it gets working I'll switch to use MAX_PATH instead of } 
    a := 'C:'; 
    b := 'one\two'; 
    PathCombine(c, a, b); 
    MsgBox(c, mbInformation, MB_OK); 
    Result := True; 
end; 

---

Хотя я настоятельно рекомендую вам использовать Unicode version of Inno Setup и PathCombineW вместо этого.

function PathCombine(
    pszPathOut : string; 
    pszPathIn : string; 
    pszMore : string 
) : Cardinal; external 'PathCombineW@Shlwapi.dll stdcall'; 

function InitializeSetup(): Boolean; 
var 
    a, b, c: string; 
begin 
    SetLength(c, 256); { soon it gets working I'll switch to use MAX_PATH instead of } 
    a := 'C:'; 
    b := 'one\two'; 
    PathCombine(c, a, b); 
    MsgBox(c, mbInformation, MB_OK); 
    Result := True; 
end; 

Обратите внимание, что Inno Setup не хватает PWideChar. Хотя он может маршал string до LPTSTR (PWideChar) аргументы функции, он не может маршал LPTSTR возвращаемое значение. Поэтому я использовал Cardinal для типа возврата. Он имеет тот же размер, что и указатель (для char), поэтому стек будет соответствовать. И нам действительно не нужно возвращаемое значение.

Answer 2

я думаю (хотя я не работал с Pascal/Delphi на некоторое время), что проблема заключается в том, что C "струна" (char *) является индекса на основе, в то время как Паскаль строки индекс на основе (байт используется для хранения длины).

Итак, если вы объявить s переменную как:

s: array[0..255] of Char; //Don't forget to change it to MAX_PATH afterwards 

он должен работать. Кроме того, используйте функцию PathCombine так:

PathCombine(s, a, b); 

Там нет необходимости назначить свой результат (который так же, как s) другой переменной (что вы не собираетесь использовать в любом случае).