pour ceux qui s’arrachent les cheveux: solution simple: DESACTIVER UAC
Points concernés: Impossible d’ecrire dans les repertoires: win, sys, program files (!), c:\
impossible d’ecrire dans la base de regsitre en LOCAL MACHINE
[xml]

[/xml]
        
 
enregistrez sous administrator.manifest
Creér ”administrator.rc” qui contient
1 24 “administrator.manifest”
(1 = numero de resource, 24 = type [...]

begin 
  SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  //  Desktop
  SetWindowLong(Handle, GWL_HWNDPARENT, 0);
  // fenetre 
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or
    WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;

 [Run]
 Filename: “{win}\rundll.exe”;
   Parameters: “setupx.dll,InstallHinfSection DefaultInstall 132
MYFILE.INF”
That won’t work on Windows NT/2000 (rundll.exe doesn’t exist). But this
should:
[Run]
Filename: “{win}\rundll.exe”; Parameters: “setupx.dll,InstallHinfSection
DefaultInstall 132 MYFILE.INF”; MinVersion: 1, 0
Filename: “{sys}\rundll32.exe”; Parameters: “setupapi,InstallHinfSection
DefaultInstall 132 MYFILE.INF”; MinVersion: 0, 1

 http://www.vincenzo.net/isxkb/index.php?title=Test_events_example
voir aussi: http://www.vincenzo.net/isxkb/index.php?title=Special:Allpages
 
 
 
 

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,JvDSADialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
const
  ctkMyMark: TDSACheckTextKind = 25;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterDSA(0, ‘Confirm2′, ‘MessageDlg confirmation’, DSARegStore, ctkAsk);
if DSAMessageDlg(
    0,
    ‘Simple confirmation box, standard title2, [...]