Delphi-Help

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;