Discussion :

[mohfa2001]

Salut tt le monde . Comment je peux utiliser Un program d'Installtion pour Installer mes Composants directement aux IDEs , est ce que vous pouvez me guider SVP .

j'ai meme utilisé le tutoriel : http://sjames.developpez.com/InstallPackage/
j'ai reussi à installer les Packages mais le problem reside au Search Path .
j'ai suivi le tutoriel à la letter mais avec Delphi 7 ( (HKCU,'Software\Borland\Delphi\7.0' ) .
donc ce que j'ai fait :
==== BPL ====

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function GetDPLOutput:string;
var
 p: integer;
begin
  RegQueryStringValue(HKCU, 'Software\Borland\Delphi\7.0\Library', 'Package DPL Output', BPLPath);
  p := Pos('$(DELPHI)', BPLPath);
  if p > 0 then
    BPLPath := DelphiRoot + Copy(BPLPath, 10, Length(BPLPath) - 9);
 
    result := BPLPath;
end;
 
end;

============================
==== DCP ======

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function GetDCPOutput:string;
var
 p: integer;
begin
  RegQueryStringValue(HKCU, 'Software\Borland\Delphi\7.0\Library', 'Package DCP Output', DCPPath);
  p := Pos('$(DELPHI)', DCPPath);
  if p > 0 then
    DCPPath := DelphiRoot + Copy(DCPPath, 10, Length(DCPPath) - 9);
 
    result := DCPPath;
end;

============================
Merçi d'avance .
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[sjrd]

Si tu mettais BPL au lieu de DPL ça irait peut-être mieux

[mohfa2001]

merçi sjrd les composants sont installés correctement mais delphi demande le search path du composants j'ai essayé avec la fonction :
=========== Search Path =========

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
var
SearchPath:String;
 
function GetSearchPath:string;
var
 p: integer;
begin
  RegQueryStringValue(HKCU, 'Software\Borland\Delphi\7.0\Library', 'Search Path', SearchPath);
  p := Pos('$(DELPHI)', SearchPath);
  if p > 0 then
    SearchPath := DelphiRoot + Copy(SearchPath, 10, Length(SearchPath) - 9);
 
    result := SearchPath;
end;

mais le path n'est pas ajouté je sais pas pourqoui .
est ce que tu peux m'aider en me donnant un exemple SVP .

et merçi bcp
[Balises CODE re-rajoutées par Pedro]