Discussion :

[Vinceee38]

Bonjour à tous,

J'ai besoin de votre aide , je vous explique mon problème:

Je viens de creer un programme en delphi 6 qui permet de restaurer les base de donnée .bak dans SQL Serveur.

je voudrais que lorsque je fasse un clique droit sur un fichier .bak qu'il y ait une option "restaurer" qui appelle mon programme avec le chemin du fichier sur lequel j'ai fait un clique droit en parametre...

Seulement comment mettre le chemin de ce fichier en parametre ???? Existe t'il une technique ? ou une autre méthode ?? merci d'avance

[ShaiLeTroll]

Euh, tu devrais regarder comment est associé l'extension .txt à notepad, et reproduire la même chose pour un fichier .bak

Explorer
Outils | Options des Dossiers
Onglet Types de Fichiers

Sinon, pour ajouter un menu à la WinRar, je l'ai vu trainer ce mois ci ...

ou encore, voir si cette astuce, pourrait te donner d'autres idées : http://vcallies.developpez.com/delphi/astuces//


En fin, dans Delphi, voir ParamStr qui contiendra la liste des paramètres par Exemple "Restore C:\Truc.bak"

[qi130]

Je pense que ce genre de manip est du ressort du forum Windows : menu contextuel de l'explorateur // "ouvrir avec", etc...

Il faut surement installer 1 ou plusieurs clés dans la BDR, et même si cela peut se faire en Delphi, l'identification des clés est un préalable

[ero-sennin]

Salut, il y a un moment, j'avais fait une application de ce genre ...

Pour ma part, j'avais fait une procédure EcrireReg... dont voici le code :

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
procedure TForm1.EcrireReg(Ext:String);
var
cle:string;
begin
  with reg do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    OpenKey('\.'+Ext,true);
    if (ReadString('')<>'')then
    cle:=ReadString('')
    else
    begin
    WriteString('',Ext);
    cle:=Ext;
    end;
 
    CloseKey;
 
    OpenKey(cle+'\shell\open with MonProg',true);
    WriteString('', '&Ouvrir le fichier avec MonProg');
    CloseKey;
 
    OpenKey(cle+'\shell\open with FastOpen\command', True);
    WriteString('', ExtractFilePath(ParamStr(0))+'MonProg.exe %1');
    CloseKey;
  end;
end;

Et pour l'utiliser, voici un exemple :

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
var
begin
EcrireReg('pas');
end;

J'avais aussi d'autres fonctions utile :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.DeleteKeyReg(Ext:string);
var
cle:string;
begin
  with reg do
  begin
  RootKey:=HKEY_CLASSES_ROOT;
  OpenKey('\.'+Ext,false);
  cle:=ReadString('');
  CloseKey;
  if DeleteKey(cle+'\shell\open with MonProg')then
  CloseKey;
  end;
end;

et

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
function TForm1.KeyAlreadyExist(Ext:string):Boolean;
var
cle:string;
begin
  with reg do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    if (OpenKey('\.'+Ext,false))then
    begin
      if (ReadString('')<>'')then
      cle:=ReadString('');
      CloseKey;
      if (OpenKey(cle+'\shell\open with MonProg\command',false))then
      result:=true
      else
      result:=false;
      CloseKey;
    end
    else
    result:=false;
    CloseKey;
  end;
end;

Petit exemple :

Code :

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

1
2
3
4
5
6
 
 
If(KeyAlreadyExist('pas'))then
DeleteKeyReg('pas')
else
EcrireReg('pas');

Normalement cela fonctionne ...
J'espère que cela répond à ta question

[Vinceee38]

En fin, dans Delphi, voir ParamStr

J'ai deja utilisé ParamStr mais le souci c'est qu'il faut qu'automatiquement quand je fais un clique droit que le chemin soit passé en parametre (le chemin du fichier sur lequel j'ai fait un clique droit)

Salut, il y a un moment, j'avais fait une application de ce genre ...

Pour ma part, j'avais fait une procédure EcrireReg...
J'espère que cela répond à ta question

Merci bcp mais pour faire cela j'ai utilisé un programme Fast Explorer 2006 qui fait tout ca automatiquement avec une interface. (il ecrit dans la base de donnée)

Si vous avez une solution pour passer le chemin en parametre ... je suis preneur ...

[Pedro]

Salut

J'ai deja utilisé ParamStr mais le souci c'est qu'il faut qu'automatiquement quand je fais un clique droit que le chemin soit passé en parametre (le chemin du fichier sur lequel j'ai fait un clique droit)

Dans ce cas-là, tu n'as qu'à utiliser ExtractFilePath sur le fichier passé en paramètre

[evarisnea]

attention tout de même aux fichiers *.bak car ceux ci sont généralement utilisés pour des sauvegardes de toutes sortes, pas uniquement pour les sauvegardes de ta base de données

[Vinceee38]

oui mais en utilisant ExtractFilePath(ParamStr(0)) est ce qu'il me renvoit aussi le nom du fichier ??

Exemple: C:\test\nom_de_la_base.bak ???

merci d'avance

attention tout de même aux fichiers *.bak car ceux ci sont généralement utilisés pour des sauvegardes de toutes sortes, pas uniquement pour les sauvegardes de ta base de données

oui je sais mais vu que ca sera à moi de faire un clique dessus je serai de quelle sauvegarde il s'agit

[Clorish]

ya pas 36 solutions en fait
Coté exe : ParamStr et ParamCount sont indispensable pour recuperer l'eventuel parametre et le traiter.
Ensuite coté systeme, tu as pleins de facons de faire, comem cite plus haut : Association de fichiers, entrees dans la BdR, etc ...