[delphi 6] path clique droit

Version imprimable

25/06/2007, 15h51
Vinceee38

[delphi 6] path clique droit

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
25/06/2007, 17h04
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"
25/06/2007, 17h07
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 :lol:

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:

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:

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

J'avais aussi d'autres fonctions utile :

Code:

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;

Code:

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:

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 :)

26/06/2007, 09h00
Vinceee38

Citation:

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)

Citation:

Envoyé par 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...
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 ...
26/06/2007, 09h34
Pedro

Salut :)

Citation:

Envoyé par Vinceee38

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 ;)
26/06/2007, 09h38
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 ...
26/06/2007, 09h41
evarisnea

:salut:
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 ;)
26/06/2007, 09h46
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

Citation:

Envoyé par evarisnea

:salut:
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 ;)
26/06/2007, 09h48
Pedro

Euh faudrait lire les réponses qu'on te donne quand même ;)
En particulier quand Clorish te parle de ParamStr et ParamCount ;) Si tu fais :f1: dessus, tu comprendras :)

Personne ne t'as parlé de Application.Exename. SI tu appliques ExtractFilePath là-dessus, tu auras le répertoire où se trouve ton application. Logique implacable!
26/06/2007, 09h49
Vinceee38

jsuis désolé j'avais pas vu sa réponse :( merci jvais essayer

Pedro du calme lol j'avais édité mon message avant de voir le tiens :) en remplacant avec ParamStr(0) ;)

j'ai une question qui me chagrine par contre :

Cela va extraire le chemin et le nom du fichier du programme (en cours ) appellé par mon clique droit non ? pas celui sur lequel j'ai fait le clique droit ?

(j'espere me tromper )

Citation:

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

Oui j'aimerai pouvoir faire comme ca mais comment passer le fichier en parametre justement ?
26/06/2007, 10h09
Pedro

Citation:

Envoyé par Vinceee38

jsuis désolé j'avais pas vu sa réponse :( merci jvais essayer

Pedro du calme lol j'avais édité mon message avant de voir le tiens :) en remplacant avec ParamStr(0) ;)

Je suis tout à fait calme :D

Citation:

Envoyé par Vinceee38

j'ai une question qui me chagrine par contre :

Cela va extraire le chemin et le nom du fichier du programme (en cours ) appellé par mon clique droit non ? pas celui sur lequel j'ai fait le clique droit ?

(j'espere me tromper )

Oui j'aimerai pouvoir faire comme ca mais comment passer le fichier en parametre justement ?

Et donc je réitère: :f1: avec ParamStr. ;)
Tu aurais découvert que ParamStr(0) renvoie l'exécutable et ParamStr(1) renvoie le premier paramètre (donc en l'occurence, ton fichier bak si tu as correctement paramétré ta liaison dans la BdR). Quand à ParamCount, il renvoie, comme son nom l'indique, le nombre de paramètres passés lors du lancement ;)
26/06/2007, 10h30
Vinceee38

Citation:

Envoyé par Pedro

Je suis tout à fait calme :D
Et donc je réitère: :f1: avec ParamStr. ;)
Tu aurais découvert que ParamStr(0) renvoie l'exécutable et ParamStr(1) renvoie le premier paramètre (donc en l'occurence, ton fichier bak si tu as correctement paramétré ta liaison dans la BdR). Quand à ParamCount, il renvoie, comme son nom l'indique, le nombre de paramètres passés lors du lancement ;)

Je suis désolé d'etre chiant :(

Pour

Citation:

Tu aurais découvert que ParamStr(0) renvoie l'exécutable et ParamStr(1) renvoie le premier paramètre

je le savais déjà !!!!!!!!

je ne savais pas par contre que le premier parametre était le chemin de mon fichier et non le chemin de mon application ;) :D c'est cool ca:yaisse2:

Citation:

si tu as correctement paramétré ta liaison dans la BdR

tu peux m'expliquer stp ?

merci encore

EDIT : C'est bon je croix avoir trouvé , je verifie et jvous dit :) merci poru tout et désolé de mon niveau
26/06/2007, 11h27
Clorish

Citation:

Envoyé par Vinceee38

je ne savais pas par contre que le premier parametre était le chemin de mon fichier et non le chemin de mon application ;) :D c'est cool ca:yaisse2:

LE premier parametre (ID=0) est le chemin complet de l'application avec son nom.
Le chemin du fichier est le 2é parametre (ID=1).

Pour ce qui est du extractfiledir(applciation.exename) il faut faire attention quand meme ... ca ne renvoie que le chemin d'acces de l'applciation et non le chemin d'acces au fichier.
Il me semble que le ficheir bak a peu de chance d'etre dans un des sous repertories de l'applciation ....
De ce fait, ca m'etonenrais que Windows ne transmette pas a l'application le nom du fichier complet ... ce qui ne pose pas de soucis donc.
26/06/2007, 13h11
Pedro
:koi:
Je ne comprends pas où tu bloques:
Tu passes ton fichier bak en paramètre => tu le récupères avec ParamStr(1)
Tu veux son chemin sur le disque => Tu fais:
Code:

1 2 ExtractFilePath(ParamStr(1));
Ca ne va pas comme ça?

[EDIT]

Citation:

Envoyé par Vinceee38

EDIT : C'est bon je croix avoir trouvé , je verifie et jvous dit :) merci poru tout et désolé de mon niveau

Ah j'avais pas vu :oops: Dans ce cas, n'oublie pas de cliquer sur :resolu: ;)
26/06/2007, 14h15
Vinceee38

Merci bcp je ne sais pas si ca peut aider mais voila ma ligne de code :

Code:

req1.SQL.Text := 'RESTORE DATABASE '+Edit3.text+' FROM DISK = ''ParamStr(1)'' WITH NORECOVERY,REPLACE'

voila :) merci à tous
26/06/2007, 17h29
evarisnea

attention à la concaténation des chaines !

Code:

req1.SQL.Text := 'RESTORE DATABASE '+Edit3.text+' FROM DISK = ' + ParamStr(1) + ' WITH NORECOVERY,REPLACE'

;)