Discussion :

[Frenchbeast]

Bonjour la liste

Dans une structure TCMInvokeCommandInfo renvoyée dans la fonction incokecommand d'une extension de shell context menu.

je souhaiterais récupérer la chaine de caratctère de la ligne de commande du menu contextuel.

Il est indiqué dans l'aide Microsoft que lpverb contient la chaîne de caractère, mais je n'arrive vraiment pas à la récupérer

Pourriez-vous m'aider svp ??

Help !!! Merci d'avance

[PyRoFlo]

Peut-être qu'avec un bout de code...

[Frenchbeast]

Voici ma fonction extraite de la demo activex de Delphi

C:\Program Files\Borland\Delphi7\Demos\ActiveX\ShellExt\contmenu.dpr

Je bataille depuis deux semaine avec ce problème ... Je dois passer à côté de quelque chose

Voici le lien vers l'explication de Microsoft :

http://msdn.microsoft.com/library/de...nuhandlers.asp

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
54
55
56
//------------------ Example Start ---------------------
function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
resourcestring
  sPathError = 'Error setting current directory';
const
  MAX_SIZE = 50;
var
  H: THandle;
  PrevDir: string;
  idCmd : UINT;
begin
  //-- Make sure we are not being called by an application
  if (HiWord(Integer(lpici.lpVerb)) <> 0) then
  begin
    Result:=E_FAIL;
  end
  else
  begin
    //-- Retrieve Command Id
    idCmd := LoWord(Lpici.lpVerb);
    Result := S_OK;
 
    //-- Execute the command specified by lpici.lpVerb related to idCmd
    PrevDir := GetCurrentDir;
    try
      if not SetCurrentDir(ExtractFilePath(FFileName)) then
        raise Exception.CreateRes(@sPathError);
 
      H := 0;
 
      //---- C'est là que j'ai un problème ;-( -----
     ShowMessage('Try to execute command'+lpici.lpverb);
 
      if idCmd=0 then
        begin
           //Do somthing
        end
      else if idCmd=1 then
        begin
          //do smthing elz
        end
      else if (idCmd>=3) then
      begin
         //do smthing elz again
      end;
 
      if (H < 32) then
        MessageBox(lpici.hWnd, 'Error executing Application', 'Error', MB_ICONERROR or MB_OK);
      Result := NOERROR;
    finally
      SetCurrentDir(PrevDir);
    end;
  end;
end;
 
//---------------- Example End -----------------//

Merci d'avance pour vos idées car je sèche vraiment ....

[PyRoFlo]

La constante MAX_SIZE n'est pas utilisée.

Pour le moment je ne vois pas de réponse à ton problème, que se passe t-il lorsque tu exécutes cette ligne ? (le ShowMessage())

[Frenchbeast]

En ce qui concerne MAX_SIZE, c'est un reliquat d'un test avec strcopy et un tableau de char. Donc ne pas tenir compte de cette constante.

Sinon ShowMessage(lpici.lpverb) affiche une chaîne vide ....

C'est mon problème ...

[cpdump]

lpici.lpverb est peut être un Pchar, dans ce cas il faudrait faire
ShowMessage(string(lpici.lpverb))

[Frenchbeast]

Euh ben non ...

ShowMessage(String(lpici.lpverb)) => ChaÎne vide ...

[cpdump]

En fait lpVerb est un entier pas une chaine. ce lien peut te donner des idées:

http://www.raize.com/DevTools/DelphiByDesign/Articles/DbD47.htm

[Frenchbeast]

Merci bcps pour le lien ... Mais je l'ai déjà parcouru ...

Ils n'utilisent que la propriété d'identifiant du menu.
Ils ne montrent pas comment récupérer la chaîne de caractère.

Merci quand même.

[Frenchbeast]

Pour finir sur le sujet et pour accélérer le développement en attente de la solution ...

Je créé un tableau associatif afin de récupérer la chaîne correspondante à l'identifiant.

Ce qui m'affranchit de la récupération dynamique.

Merci à tous pour vos idées.