Tamanho do Path

Delphi

29/03/2007

Ola,
Alguem ae sabe alguma função para diminuir o tamanho do Path de um arquivo carregado num EDIT :?: :?:

Ex.: C:\WINDOWS\SYSTEM32\CMD.EXE muda para C:\WINDOWS\...\CMD.EXE.

Abraços.


Nango Xus

Nango Xus

Curtidas 0

Respostas

Titanius

Titanius

29/03/2007

Cara, pode ser que este código te ajude, ele retorna o path temporário do windows, em formato do DOS, exemplo:

Normal.: C:\Documents and Settings\Fellipe\Temp
DOS.: C:\DOCUME~1\Fellipe\Temp

var
  Buffer: array[0..144] of Char;
begin
  GetTempPath(144, Buffer);



[]s


GOSTEI 0
Nango Xus

Nango Xus

29/03/2007

Obrigado!!! :D Vou testar seu código.
Abs.


GOSTEI 0
Rodc

Rodc

29/03/2007

Vê se este lhe serve...
function NomeLongoparaCurto(NomeLongo: String) : String;
begin
    // Acertar tamanho para o nome curto
    SetLength(Result, MAX_PATH);
    if GetShortPathName(PChar(NomeLongo), PChar(Result), Length(Result)) = 0 then
        Result := ´´;
    else
        SetLength(Result, StrLen(PChar(Result)));
end;



GOSTEI 0
POSTAR