Diretório Formato Dos

[Guest Guest]

fala pessoal,

estou precisando de converter meu diretório, exemplo: "c:\arquivos de programas\meu sistema" para o formato DOS, "c:\Arquiv~1\Meusist~1" alguém tem uma funçao do tipo ae?

falou!

[Graymalkin]

Sim, existe a API GetShortPathName para isso. Exemplo:

var resultado : string;
    tam : integer;
begin
  SetLength(resultado, 255);
  tam := GetShortPathName(PChar('c:\arquivos de programas\meu sistema\'), PChar(resultado), length(resultado));
  SetLength(resultado, tam);
  showmessage(resultado);
end;

Abraços,

Graymalkin