PureBoard

Verfasst: **20.10.2007 21:58**

Uff

Ich hoffe, jemand hat da einen Tip...

Verfasst: **20.10.2007 22:08**

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

Verfasst: **20.10.2007 22:21**

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

Verfasst: **26.10.2007 19:39**

Geht da vielleicht etwas mit PureDisphelper?

Verfasst: **27.10.2007 02:05**

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.

Verfasst: **31.10.2007 23:12**

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

PureBoard

Datei in die Zwischenablage kopieren