Этот код показывает диалоговое окно стандартных свойств файла, как в проводнике Windows

 

Code:

{ This code shows the standard file properties dialog like in Windows Explorer }

 

uses

shellapi;

 

// Thanks to Peter Below (TeamB) for this code

procedure PropertiesDialog(FileName: string);

var

sei: TShellExecuteInfo;

begin

FillChar(sei, SizeOf(sei), 0);

sei.cbSize := SizeOf(sei);

sei.lpFile := PChar(FileName);

sei.lpVerb := 'properties';

sei.fMask := SEE_MASK_INVOKEIDLIST;

ShellExecuteEx(@sei);

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute then

PropertiesDialog(Opendialog1.FileName);

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить