Как получить тип файла?

Previous  Top  Next

    
 

 

 

Code:

uses

ShellAPI;

 

function MrsGetFileType(const strFilename: string): string;

var

FileInfo: TSHFileInfo;

begin

FillChar(FileInfo, SizeOf(FileInfo), #0);

SHGetFileInfo(PChar(strFilename), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);

Result := FileInfo.szTypeName;

end;

 

 

// Beispiel:

// Example:

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage('File type is: ' + MrsGetFileType('c:\autoexec.bat'));

end;

 

 

©Drkb::03145

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php