Discussion :

[tleboukaka]

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

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

[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 ?

[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

[Andnotor]

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 :

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
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%.