Intégrer un dictionnaire freeware dans mon application

Version imprimable

18/09/2014, 11h32
tleboukaka

Intégrer un dictionnaire freeware dans mon application

bonjour

je vous demande quelque chose que je n'ai jamais faite
comment puis je faire que mon dictionnaire télécharger gratuitement sur Internet
que je puisse l'Intégrer dans une fiche Delphi, c'est à dire

Citation:

je veux que ce dico ne puisse s'exécuter que depuis le clic d'un bouton de ma Fiche

.

je ne veux pas donner la possibilité à l'utilisateur de lancer ce dico en dehors de mon application
Donc je veux qu'il soit directement lié à mon application.

mon application et le dico doivent être lié
c a d si on ferme mon application que le dico se ferme systématiquement.

Merci de me donner des tuyaux pour la faisabilité de la chose

Eric
18/09/2014, 12h15
Andnotor

Il faudrait être plus précis.
C'est quoi ce dictionnaire, un exécutable ou un simple fichier texte ?
Comment est-il téléchargé, manuellement ou automatiquement par ton application ?
18/09/2014, 15h14
tleboukaka

merci d'avoir réagi
ce dictionnaire est un Executable
je veux qu'il soit exécuter à partir de mon application

A bientôt

Si tu es le créateur de cet exe, le mieux est de surveiller le processus parent.

Voici une petite unité pour arrêter proprement un processus enfant à la fermeture du parent, que le parent soit fermé normalement ou tué par le gestionnaire de tâches.
Ajouter cette unité au projet est suffisant. Il n'y a aucun appel à faire ;)

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit WaitParentProcessTerminated;
 
interface
 
implementation
 
uses Classes, Windows, Forms, TLHelp32;
 
type
  TWaitParentThread = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;
 
{ TWaitParentThread }
 
constructor TWaitParentThread.Create;
begin
  inherited;
  FreeOnTerminate := TRUE;
end;
 
procedure TWaitParentThread.Execute;
var
  Handle   :THandle;
  Process  :TProcessEntry32;
  ParentID :cardinal;
 
begin
  //Recherche le processus parent
  Process.dwSize := SizeOf(Process);
  Handle         := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ParentID       := 0;
 
  if Process32First(Handle, Process) then
  repeat
    if Process.th32ProcessID = GetCurrentProcessID then
    begin
      ParentID := Process.th32ParentProcessID;
      Break;
    end;
  until not Process32Next(Handle, Process);
 
  CloseHandle(Handle);
 
  //Attente de fin
  Handle := OpenProcess(Windows.SYNCHRONIZE, FALSE, ParentID);
 
  if Handle <> 0 then
  begin
    WaitForSingleObject(Handle, INFINITE);
    CloseHandle(Handle);
 
    Synchronize(Application.Terminate);
  end;
end;
 
initialization
  TWaitParentThread.Create;
 
end.

Sur le même principe, tu peux t'assurer que le "lanceur" est bien ton application.

Par contre, si tu n'es pas le créateur de ce dictionnaire, il n'y aura pas de solution vraiment fiable à 100%.