Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 15 de junho de 2015

DELPHI - Converter nome curto do "DOS" em nome do completo Windows - Convert short name into full Windows name

Reações: 
Converte:


Isso c:\progra~1\micros~1\MoreGa~1

Nisso: c:\Program Files\Microsoft Games\More Games



Uses ShellAPI, SysUtils;
//...
Function GetLongFileName(Const FileName : String) : String; //convert short name into full windows name
var
  aInfo: TSHFileInfo;
begin
  if SHGetFileInfo(PChar(FileName),0,aInfo,Sizeof(aInfo),SHGFI_DISPLAYNAME)<>0 then
     Result:= extractfilepath(Filename)+String(aInfo.szDisplayName)
  else
     Result:= FileName;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer