Delphi TPath.GetTempPath wynik jest przycięty

Question

Używam Delphi 2010 i mój program chce uzyskać ścieżkę temp systemu. Używam TPath.GetTempPath i wszystko działa dobrze ... przynajmniej dla mnie i moich współpracowników. Ale na niektórych maszynach klienta ta metoda zwraca przyciętą ścieżkę, która (oczywiście) nie istnieje. Odkryłem, że problem wydaje się być wynikiem wywołania funkcji GetLongPathName().

Kompletny kod wygląda następująco:

[...] 
var 
TmpDir : String; 
Len : Integer; 
begin 

[... Call to GetTempPath succeeds and we have a valid temp directory in short "~" notation in var TmpDir ...] 

Len := GetLongPathName(PChar(TmpDir), nil, 0);  // Len = 37 
    SetLength(TmpDir, Len - 1);       // We want to set the len of TmpDir to 37 - 1. 
    GetLongPathName(PChar(TmpDir), PChar(TmpDir), Len); // Only 32 (instead of 36) characters are copied - so we have a cropped path - But why?! 

end; 
[...] 

Dzieje się tak tylko w niektórych systemach i nie wiem dlaczego. Znalazłem na to paskudne obejście, ale chciałbym się dowiedzieć, co się tutaj dzieje.

Czy ktoś może rzucić trochę światła na to?

Answer 1

Jest tam wzmianka o tej funkcji API systemu Windows na stronach Ojczyzna Bezpieczeństwo:

„Bufor powrót do GetLongPathName() i podobnych funkcji może zwrócić obciętą drogę i prowadzić do trudnych do - znajdź błędy. "

https://buildsecurityin.us-cert.gov/bsi-rules/home/g1/753-BSI.html

Jeśli masz kodu źródłowego, można sprawdzić, czy problem opisany w tym artykule występuje w realizacji Delphi 2010.

Answer 2

Co się stanie, jeśli spróbujesz:

var 
    longpath : string; 

SetLength(longpath,MAX_PATH); 
SetLength(longpath, GetLongPathName(PChar(TmpDir),PChar(LongPath),MAX_PATH)); 

ten pracował dla mnie, wersja skrócona ścieżkę.