Existe uma função q faz exatamente o que você quer.
function ExtractShortPathName(const FileName: string): string; Description ExtractShortPathName converts the file name, FileName, to the short 8.3 form. ExtractShortPathName returns an empty string if the file or directory does not exist. The first parameter, FileName, can be a full path name. For example, ExtractShortPathName would convert the full path name: C:\Program Files\Borland\Delphi\Bin\Delphi32.exe to the short form: C:\Progra~1\Borland\Delphi\Bin\Delphi32.exe ----- Original Message ----- From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, June 27, 2006 3:45 PM Subject: [delphi-br] Path através de OpenDialog <http://www.moked.com.br/> Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br <http://www.moked.com.br/> Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação ------------------------------------------------------------------------- Boa Tarde, Pessoal, tem como fazer com q o path capturado através do opendiloag e acessado pelo opendialog.filename fique igual ao q se tem quando seta-se para True a opção ofoldstyledialog??? Exemplo: ofoldstyledialog:= false -> C:\documents and settings\administrador\pasta\arquivo.txt ofoldstyledialog:= true -> C:\docume~1\admini~1\pasta\arquiv~1.txt Ou seja, quero q seja exibido ao usuário a forma nova do opendiloag, porém preciso q o caminho seja dado da forma antiga... Obrigada, Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 Serviços prestados no Brasil na área de segurança pessoal e empresarial: Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< 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] 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
