Discussion :

[shell13010]

Salut a tous

J'ai une question qui doit etre bizarre

Mais je suis actuellement entrain de faire un programme pour sécuriser les

fichiers qui seront supprimer mais, j'ai un problème qui surviens qui est de

faire glisser le fichier sur l'icone de mon programme et ainsi savoir quel fichier a etais

lancer sur mon Tedit??

en gros mon but et de faire glisser le fichier et que mon Tedit intercepte directement le chemin du fichier..

Je pense que c'est faisable mais le problème c'est que j'ai pas trouver de solution ..

En ésperant que vous auriez compris le but de ma question ...

Sur se bonne journée a tous ..

[Andry]

Si j'ai bien compris, tu fais un glisser/deposer du fichier sur ton programme qui est lancé et tu veux recupérer le chemin du fichier.
Humm, je pense que tu vas avoir besoin de l'unité Dropfiles.pas de Paul THOT.
Recupere cette unité et suit ce qui est indiqué dedans pour l'utilisation.
C'est assez simple à mettre en place.

A+

[shell13010]

Salut Andry

Oui c'est exactement se que je chercher donc je te remercie

mais j'aurais une derniere question..

Comment je pourrais faire pour intercepter avant d' ouvrir mon programme pour qu'a l'ouverture le chemin du fichier que j'ai fait glisser avant de lancer le prog soit sur mon Tedit donc es possible?

sur se merci pour ton aide

[Andry]

Re.
Vas voir peut être du coté de ParamCount et ParamStr() pour les arguments de commande passé sur ton application.
Sinon, si ton application est déjà ouverte lors du glisser/deposer, l'unité que j'ai cité ci-dessus feras bien l'affaire.

[mick605]

T'as de la chance, j'étais justement sur cette page :
http://delphi.developpez.com/faq/?pa...tion#paramprog

Bonne chance !

[shell13010]

re Andry

voila se que j'ai fait a sa a marcher sans probleme

donc voila pour se que sa interesse:

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
..........
edit1.Text:=ParamStr(1);
end;