Discussion :

[touhami]

Bonjour a tous,
Peut on détecter par Programme Delphi que Interbase et Installé sur son PC ?
Bon developpement a tous.

[qi130]

Quelle version ?

Le client, le serveur, les 2 ?

[touhami]

Bonjour,
je veux les 2 Version.
merci pour votre réponse.

[touhami]

Bonjour,
j'ai trouver la solution

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
procedure TFMain.BitBtn1Click(Sender: TObject);
Var
  lRegistry: TRegistry;
  lStartUpInfo: STARTUPINFO;
  lSecurityAttr: SECURITY_ATTRIBUTES;
  lProcessInfo: PROCESS_INFORMATION;
  lEXEName: String;
  lArray: Array[0..255] Of char;
 
begin
  lRegistry := TRegistry.Create;
  Try
    Screen.Cursor := crHourglass;
    lRegistry.RootKey := HKEY_LOCAL_MACHINE;
    If Not lRegistry.OpenKey('Software\Borland\InterBase\CurrentVersion',
False) Then
      ShowMessage('InterBase server N''est pas Installé.')
    Else
      ShowMessage('InterBase est Installé.')
  Finally
    lRegistry.Free;
    Screen.Cursor := crDefault;
  End;
 
end;