Discussion :

[T-B]

Bonjour,

J'ai trouvé dans la Jcl (jclSysinfo.pas) deux fonctions que j'aimerais intégrer dans InnoSetup
les voici :

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
 
function ProgIDExists(const ProgID: string): Boolean;
var
  Tmp: TGUID;
  WideProgID: WideString;
begin
  WideProgID := ProgID;
  Result := Succeeded(CLSIDFromProgID(PWideChar(WideProgID), Tmp));
end;
 
 
function IsOpenOfficeInstalled: Boolean;
begin
  Result := ProgIDExists('com.sun.star.ServiceManager');
end;

Question cela est'il possible ? j'ai bien essayé mais là je coince.


Merci pour votre aide

[Andnotor]

Je n'ai pas essayé avec Inno Setup, mais même si ça n'existe pas, tu peux toujours coder tes fonctions dans une DLL (temporaire) que tu appelles depuis IS. C'est souvent même plus simple.

[T-B]

Merci pour ta réponse je viens de créer ma dll

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
library isooodll;
 
uses
  SysUtils,
  Classes,
  activex;
 
{$R *.res}
 
function ProgIDExists(const ProgID: string): Boolean;
var
  Tmp: TGUID;
  WideProgID: WideString;
begin
  WideProgID := ProgID;
  Result := Succeeded(CLSIDFromProgID(PWideChar(WideProgID), Tmp));
end;
 
function IsOpenOfficeInstall: Boolean; export; stdcall;
begin
  Result := ProgIDExists('com.sun.star.ServiceManager');
end;
 
exports
  IsOpenOfficeInstall;
 
begin
end.

voila comment l'appeler dans inno

Code :

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

1
2
 
function IsOpenOfficeInstall: Boolean; external 'IsOpenOfficeInstall@files:isooodll.dll stdcall';

Merci