Delphi-Help

Главная Статьи Файлы Как отобразить свойства файла?

Как отобразить свойства файла?

Оцените материал
(0 голосов)


Как отобразить свойства файла?

uses
  ..., ShellAPI;
 
procedure TForm1.ShowFileProperties(const FileName: string);
var
  ShellExecuteInfo: TShellExecuteInfo;
begin
   // Инициализация структуры TShellExecuteInfo
   FillChar( ShellExecuteInfo, SizeOf( TShellExecuteInfo ), 0 );
   // Заполнение структуры TShellExecuteInfo
   ShellExecuteInfo.cbSize := SizeOf( TShellExecuteInfo );
   ShellExecuteInfo.lpFile := PChar( FileName );
   ShellExecuteInfo.lpVerb := 'properties';
   ShellExecuteInfo.fMask := SEE_MASK_INVOKEIDLIST;
   // Отображение свойств файла
   ShellExecuteEx( @ShellExecuteInfo );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowFileProperties( 'c:\autoexec.bat' );
end;

Или немного иначе

uses
  ..., ShellAPI;
 
procedure TForm1.ShowPropertiesDialog(FName: string);
var
  SExInfo: TSHELLEXECUTEINFO;
begin
   ZeroMemory( Addr( SExInfo ), SizeOf( SExInfo ) );
   SExInfo.cbSize := SizeOf( SExInfo );
   SExInfo.lpFile := PChar( FName );
   SExInfo.lpVerb := 'properties';
   SExInfo.fMask := SEE_MASK_INVOKEIDLIST;
   ShellExecuteEx( Addr( SExInfo ) );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowPropertiesDialog( 'c:\autoexec.bat' );
end;
Прочитано 5394 раз

Авторизация



Счетчики