Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Problem bei InvokeCommand bzgl. cut und copy (https://www.delphipraxis.net/72593-problem-bei-invokecommand-bzgl-cut-und-copy.html)

robvs 3. Jul 2006 15:03


Problem bei InvokeCommand bzgl. cut und copy
 
Hallo zammen,

ich benutze den InvokeCommand zum Ausführen von diversen Ereignissen aus dem Explorer-Kontextmenü in einem Listview.
Das klappt soweit sehr gut, auch für custom Programme wie WinZip, TextPad, etc, aber eben nur zu 90 %.
Denn auf die Standard-"Verbs" 'cut' und 'copy' erfolgt KEINERLEI Aktion für die gewählten Dateien. Die Rückgabe von InvokeCommand ist jedoch trotzdem S_OK.

Ist einem das Phänomen bekannt oder kann mir jemand Tips geben, ich hab langsam keine Ideen mehr...

Viele Grüße
Rob

PS: Kleiner code snip, vllt bringt es ja was

Delphi-Quellcode:
          FillChar(ICM,SizeOf(ICM),#0);
          ICM.cbSize := Sizeof(ICM);
          ICM.hwnd  := Handle;
          ICM.lpVerb := MakeIntResource(Cardinal(cmd - 1)); //OPTIONAL probiert: ICM.lpVerb := MakeIntResource('copy' {bzw 'cut'});
          ICM.nShow := SW_SHOWNORMAL;
          //ICM.fMask := CMIC_MASK_ASYNCOK;
          Try
            If Assigned(ContextMenu2) Then
            begin
                 ContextMenu2.InvokeCommand(ICM);
            end
               else If Assigned(ContextMenu) Then
                    if ContextMenu.InvokeCommand(ICM) <> S_OK then
                       raise Exception.create('NOT OK 1');

robvs 4. Jul 2006 11:49

...
 
Oder Hat vielleicht jmd eine Idee wie man manuell Dateien ausschneiden kann?


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz