Delphi 環境変数を含むファイルパスをフルパスへ変換

Delphiで、環境変数を含むファイルパスをフルパスへ変換

view plainprint?

1. function ExpandEnvironmentFileName(APath: string): string;  
2. var L: Integer;  
3. begin  
4.     L := ExpandEnvironmentStrings(PChar(APath), nil, 0);  
5.     SetLength(Result, L * 2);  
6.     ExpandEnvironmentStrings(PChar(APath), PChar(Result), L * 2);  
7.     Result := StrPas(PChar(Result));  
8. end;  

function ExpandEnvironmentFileName(APath: string): string;
var L: Integer;
begin
    L := ExpandEnvironmentStrings(PChar(APath), nil, 0);
    SetLength(Result, L * 2);
    ExpandEnvironmentStrings(PChar(APath), PChar(Result), L * 2);
    Result := StrPas(PChar(Result));
end;