En savoir plus sur les raccourcis

Si vous sélectionnez une image BMP, l'éditeur d'image par défaut se lance automatiquement. Dans cet
exemple, nous allons rechercher l'application qui est associée au type de fichiers.


uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
dok,dir:string;
res:array[1..250] of char;
i:Integer;

begin
dok:='1stboot.bmp';
dir:='c:windows';
fillchar(res,sizeof(res),' ');
res[250]:=#13;
i:=FindExecutable(@dok[1],@dir[1],@res[1]);
if i <=32 then
begin
label1.Caption:='';
end
else
begin
label1.Caption:=res;
end;

end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 812 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