Discussion :

[oneDev]

Bonjour,

(Test effectué avec Delphi 7 sous Windows 10)

J'ai une page HTML sur un serveur local sur lequel j'ai une liste de liens pointants sur différents fichiers.
Je souhaitais utiliser une application pour ouvrir et traiter directement ces fichiers.

J'ouvre mon lien et sélectionne mon appli.

Dans celle-ci j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Items.Add(DateTimeToStr(Now));
 
  for i:=0 to ParamCount-1 do
    ListBox1.Items.Add(ParamStr(i));
end;

Je ne récupère pas le lien sur lequel j'ai cliqué.
Est-ce possible de le faire ? Quelle méthode utiliser ?

[Andnotor]

C'est un peu vague comme description mais si le principe est équivalent à URI Scheme il doit simplement manquer un %1 dans la déclaration HKCR.

[oneDev]

Je viens de comprendre, c'est ma boucle qui n'était pas bonne.
Je viens de modifier, cela fonctionne

Code :

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

for i:=0 to ParamCount do

[ShaiLeTroll]

ParamStr est 1-based
ParamStr(0) c'est le nom du programme et non un paramètre.

[oneDev]

ParamStr est 1-based
ParamStr(0) c'est le nom du programme et non un paramètre.

Oui c'est là que je me suis piégé.