Ouvrir la boite de dialogue 'propriété d'un fichier'

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
begin
PropertiesDialog(Opendialog1.FileName);
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 846 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur