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;