如何正確使用Delphi 2009和Unicode字符串調用GetLongPathName？

Question

我需要將舊的Win98短路徑名稱更改爲長路徑名稱。我有一個可以在Delphi 4下正常工作的例程，但是當我升級到Delphi 2009和Unicode時，它不適用於Unicode字符串。

我環顧四周，無法找到與Unicode兼容的版本。

看起來使用的正確程序是GetLongPathName from the WinAPI。但它似乎並沒有在Delphi 2009的SysUtils庫中，我還無法弄清楚如何正確聲明它來訪問WinAPI例程。

此外，它看起來似乎很難打電話，因爲我讀過SO問題：Delphi TPath.GetTempPath result is cropped但這並沒有幫助我達到一壘。

有人能解釋一下如何聲明這個函數並在Delphi 2009中正確傳遞一個Unicode字符串嗎？

Answer 1

當然。你不需要一個單獨的單元，並且可以在任何地方聲明GetLongPathName：

function GetLongPathName(ShortPathName: PChar; LongPathName: PChar; 
    cchBuffer: Integer): Integer; stdcall; external kernel32 name 'GetLongPathNameW'; 

function ExtractLongPathName(const ShortName: string): string; 
begin 
    SetLength(Result, GetLongPathName(PChar(ShortName), nil, 0)); 
    SetLength(Result, GetLongPathName(PChar(ShortName), PChar(Result), length(Result))); 
end; 

procedure Test; 
var 
    ShortPath, LongPath: string; 
begin 
    ShortPath:= ExtractShortPathName('C:\Program Files'); 
    ShowMessage(ShortPath); 
    LongPath:= ExtractLongPathName(ShortPath); 
    ShowMessage(LongPath); 
end;