Voila j´ai absolument besoin de la fonction inclue dans cette source , mais je n´ai pas encore assez de connaisance pour pouvoir faire les modifications . Ce que je veut c´est que la fonction se lance a l´ouverture du fichier et non OnClick , et si il il reste un dialogue , qu´il se ferme apres execution ( si possible ) .

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Uses
ShlObj, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
CLSID_ActiveDesktop: TGUID= ´{75048700-EF1F-11D0-9888-006097DEACF9}´;
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop:= CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

end.

salut,
bon deja c une procedure et non une fonction ^^
uen procedure ne renvoi pa de valeur contrairement a une fonction.

qu´ est ce ke tu apele l´ ouverture du fichier?
si c l´ ouverture de la fenetre dont tu parle voici ce ki fo faire:

1) tu va voir l´ inspecteur d´ objet ( touche F11).pui tu clike sur son onglet evenement, ensuite tu double - clike sur une zone vide de la fenetre où tu place les bouton et les texte.

2) là ya la fenetre dediteur de code ki apparait,
tu va voir le contenue de la procedure Form1.Button1Click.

tu selectionne :
const
CLSID_ActiveDesktop: TGUID= ´{75048700-EF1F-11D0-9888-006097DEACF9}´;
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop:= CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

tu fé couper. ( Crtl+X)
tu retourne voir la procedure FormCreate qui a été crée kan tu a double cliqué sur la fenetre.
et tu colle le texte, que tu a couper, entre le " begin" et le " end;"

voila maintenent ca sexecute a la creation de la fenetre.

un commentaire cependant, IActiveDesktop ne seré pas TActiveDesktop ?