Datei in die Zwischenablage kopieren

[marco2007]

Uff

Ich hoffe, jemand hat da einen Tip...

[RSBasic]

Code: Alles auswählen

ExtractIcon_(0,"DeineZip.zip",0)

[marco2007]

Uff again

Wie kombiniere ich das jetzt?

Edit:
Ich bin mir nicht ganz sicher, ob das funktioniert (sprich das Richtige ist), ich möchte ja nicht das Icon via SetclipboardImage() platzieren, sondern die koplette Datei einfügen...

Kennt sich jemand mit dem (VB6) zufällig aus?

http://groups.google.at/group/microsoft ... f22d0b1620

[marco2007]

Geht da vielleicht etwas mit PureDisphelper?

[mk-soft]

Ein Icon zu kopieren ist es nicht. Es handelt sich um eine Ole Object oder Paket.
Es befindet sich also die gesamte Datei im Word Dokument als Ole Object.

[marco2007]

Herzlichen Dank an Sparkie!!

Code: Alles auswählen

Procedure CopyFile2ClipBoard(file.s) 
  clipFile = 0 
  If OpenClipboard_(0) 
    EmptyClipboard_() 
    hGlobal = GlobalAlloc_(#GHND, SizeOf(DROPFILES) + Len(file)  + 2) 
    If hGlobal 
      *lpGlobal.DROPFILES = GlobalLock_(hGlobal) 
      ZeroMemory_(*lpGlobal, SizeOf(DROPFILES)) 
      *lpGlobal\pFiles = SizeOf(DROPFILES) 
      *lpGlobal\fWide = 0 
      *lpGlobal\fNC = 0 
      *lpGlobal\pt\x = 0 
      *lpGlobal\pt\y = 0 
      CopyMemory_((*lpGlobal + SizeOf(DROPFILES)), @file, Len(file) + 2) 
      GlobalUnlock_(hGlobal) 
      If SetClipboardData_(#CF_HDROP, hGlobal) 
        ;SetClipboardData_(#CF_TEXT, file) 
        clipFile = #True 
      EndIf 
    EndIf 
    CloseClipboard_() 
  EndIf 
  ProcedureReturn clipFile 
EndProcedure 

file2copy.s = OpenFileRequester("Select file to copy to the ClipBoard", "", "All files|*.*", 0)  
If file2copy 
  CopyFile2ClipBoard(file2copy) 
  ;RunProgram("Wordpad") 
EndIf 

Ich habe das ganze nämlich auch im Englischen Forum gepostet.....
http://www.purebasic.fr/english/viewtop ... 855#216855