- //ajouter ceci après implementation
- procedure SHRunDialog(Happli:HWND;Icone:HICON;RepTravail:WideString;Titre:WideString;Description:WideString;Flags:uint);stdcall;external 'shell32.dll' index 61;
-
- //exemple:
- SHRunDialog(GetActiveWindow,application.Icon.Handle ,'c:\','test','desc', $02+$01);
-
- //Les paramètres:
- $01; // enlève le bouton parcourir.
- $02; // pas de selection au départ.
- $04; // determine de repertoir de travai a partir du fichier.
- $08; // pas de label pour la boite d'edition.
//ajouter ceci après implementation
procedure SHRunDialog(Happli:HWND;Icone:HICON;RepTravail:WideString;Titre:WideString;Description:WideString;Flags:uint);stdcall;external 'shell32.dll' index 61;
//exemple:
SHRunDialog(GetActiveWindow,application.Icon.Handle ,'c:\','test','desc', $02+$01);
//Les paramètres:
$01; // enlève le bouton parcourir.
$02; // pas de selection au départ.
$04; // determine de repertoir de travai a partir du fichier.
$08; // pas de label pour la boite d'edition.