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/)
-   -   Clipboard RemoteDesktop (https://www.delphipraxis.net/206697-clipboard-remotedesktop.html)

Gruber_Hans_12345 20. Jan 2021 08:17

Clipboard RemoteDesktop
 
Hallo ich bin auf der Suche wie ich in einen Remote App bzw über Remote Desktop Files reinziehen kann.

Wenn ich das in den explorer mache, dann funktioniert alles und kann das File kopieren.

Hätte probiert den CF_FILEDESCRIPTORW auszulesen, er sagt mir da zwar das es einen gibt, aber wenn ich den dann öffnen will bekomme ich den Fehler DV_E_FORMATETC.
Delphi-Quellcode:
   
function ContainFormat(ADataObject: IDataObject; AFormat: TClipFormat; ATymed: Longint; AAspect: LongInt = DVASPECT_CONTENT; AIndex: LongInt = -1): Boolean;
var Format: TFormatEtc;
begin
  ZeroMemory(@Format, SizeOf(Format));
  Format.cfFormat := AFormat;
  Format.dwAspect := AAspect;
  Format.lindex := AIndex;
  Format.tymed := ATymed;
  Result := ADataObject.QueryGetData(Format) = S_OK;
end;

if OleGetClipboard(DataObject) = S_OK then begin
            with FE do begin
                cfFormat   := CF_FILEDESCRIPTORW;
                ptd        := nil;
                dwAspect   := DVASPECT_CONTENT;
                lindex     := -1;
                tymed      := TYMED_HGLOBAL;
            end;
            ZeroMemory(@StreamData, SizeOf(StreamData));
            temp   := DataObject.GetData(FE, Medium);

            Memo1.Lines.Add('Error :'+IntToHex(temp));
wobei Das QueryGetData TRUE liefert ...

hat das schon mal wer geschafft?


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:47 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