Suggestion modification FAQ

**Nicolas Coolman** · 19/06/2009, 11h38

Hello,

Ce message sera à déplacer par un modérateur dans sa bonne rubrique !

Tout d'abord, je tiens à dire un grand bravo à tous les développeurs qui contribuent à la qualité de la FAQ Delphi.

Je voudrais vous faire une suggestion de modification de code pour la FAQ :
Comment sauvegarder la base de registre ?

Première remarque :
-------------------
Son éxécution est contraignante dans le sens où elle oblige à saisir un TimeOut comme paramètre. J'ai testé sur plusieurs stations et cela oblige a ajuster pour chacune d'elle ce paramètre. Dans le cas d'une application diffusée au public cela devient pratiquement impossible à paramétrer un délai standard à moins de mettre un délai de plusieurs dizaines de secondes pour palier tous les cas possibles mais cela pénalise alors ceux qui ont des processeurs rapides. Il est donc préférable d'inclure un 'WAIT_TIMEOUT' au niveau du WaitForSingleObject.

Deuxième remarque :
-------------------
Le curseur de recherche s'efface alors que le traitement n'est pas encore terminé etcela fait penser à un possible plantage mais ce n'est pas le cas.
Il serait préférable d'inclure la gestion du curseur afin d'avoir jusqu'à la fin l'affichage du curseur de recherche.

Voici mon code modifié qui corrige ces deux points.

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
 
//=================================================================
procedure SaveRegister(sFileName : SHortString);
//=================================================================
// sFileName est le chemin et le nom de fichier à créer
//(ex:'C:\TestSave.reg')
Var
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Fin: Boolean;
  oldCursor : TCursor;
 
Begin
 
  //Gestion du curseur
  oldCursor := Screen.Cursor; // On enregistre le curseur utilisé
  Screen.Cursor := crHourglass; // On le remplace par le sablier (ou le cercle pour Vista)
 
  // Mise à zéro de la structure StartInfo
  FillChar(StartInfo, SizeOf(StartInfo), #0);
 
  // Seule la taille est renseignée, toutes les autres options }
  // laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb := SizeOf(StartInfo);
 
  // Lancement de la ligne de commande
  If CreateProcess(Nil, PChar('regedit.exe /se ' +sFileName),
    Nil, Nil, False, 0, Nil, Nil, StartInfo, ProcessInfo) Then begin
 
 
       // L'application est bien lancée, on va en attendre la fin
       // ProcessInfo.hProcess contient le handle du process principal de l'application
       Fin:=False;
       Repeat
         // On attend la fin de l'application
         Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of
           WAIT_OBJECT_0 :Fin:=True; // L'application est terminée, on sort
           WAIT_TIMEOUT  :;          // elle n'est pas terminée, on continue d'attendre
         End;
         //Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée.
         Application.ProcessMessages;
       Until Fin;
 
       //La sauvegarde terminée
       ShowMessage('La sauvegarde du registre est terminée.');
 
       // On Remet le curseur.
       Screen.Cursor := oldCursor;
 
  End
  Else RaiseLastOSError;
 
end;

Bonne journée à tous

**Paul TOTH** · 19/06/2009, 13h46

il serait plus simple de placer le CreateProcess dans un Thread

**Nicolas Coolman** · 19/06/2009, 14h45

Hello Paul TOTH,

Bien sûr mais je n'ai pas voulu modifier profondement cette FAQ, mais juste ce qu'il faut pour qu'elle puisses s'appliquer plus facilement.

A bientôt...