Salve! Tenta esta função aqui. Acho que deve resolver.
function LongToShortPath(Long: string): string; // // Retorna um Path em formato de nome curto (8 Caracteres) // // Requer a filectrl declarada na clausula uses da unit // var ActualLength: Longint; begin // Result := 'Caminho inválido ou não encontrado'; // if directoryexists(Long) then begin SetLength(Result, Length(Long) + 1); ActualLength := GetShortPathName(PChar(Long), PChar(Result), Length(Result)); SetLength(Result, ActualLength); end // end; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: Wilson Valdevite [mailto:[EMAIL PROTECTED] > Enviada em: quarta-feira, 22 de junho de 2005 15:53 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Caminho do Executável > > > Galera, estou precisando pegar o caminho do executável, mas > se o diretório possuir mais de 8 letras preciso que me > retorne o nome do MS-DOS com 8 letras no máximo. Existe algum > comando que faça isso? Estou usando o ExtractFilePath, mas em > 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
