Dateityp ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Im Windows-Explorer wird jeder Dateityp mit einem kurzen Text beschrieben. Dieser Text lässt sich mit folgender Funktion ermitteln:
uses ShellApi;
function GetFileTypename(const Filename: string): string;
var Info: TSHFileInfo;
begin
if SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(Info), SHGFI_TYPENAME) 0 then
Result := Info.szTypeName
else
Result := '';
end;
function GetFileTypename(const Filename: string): string;
var Info: TSHFileInfo;
begin
if SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(Info), SHGFI_TYPENAME) 0 then
Result := Info.szTypeName
else
Result := '';
end;