Autor | Thema: Zwischenablage | | Datum:22.05.01 13:15 
(alexander.gall@web.de) | |
Weiß vielleicht jemand, wie ein Profan-Programm eine oder mehrere Dateien in die Zwischenablage kopieren oder eine Datei in der Zwischenablage in einen Ordner einfügen kann? Befehle wie Putclip und Savebmptoclip funktionieren ja nur mit Text und Bitmaps.
Für Hinweise wäre ich sehr dankbar.
|
| | Datum: 23.05.01 16:24 
(Pascalxd@owl-online.de) | |
Hallo Alexander!
Zunächst mal: Nicht die Dateien selbst liegen in der Zwischenablage, sondern nur die Pfade.
Die kannst du hiermit anzeigen lassen:
window 50,50-600,300'***************************
declare a&,a$,Pos&
def OpenClipboard(1) !"USER32","OpenClipboard"
def GetClipboardData(1) !"USER32","GetClipboardData"
def CloseClipboard(0) !"USER32","CloseClipboard"
def EmptyClipboard(0) !"USER32","EmptyClipboard"
OpenClipboard(0)
a&=GetClipboardData(15)
Pos&=20
if a&
while 1
a$=string$(a&,Pos&)
casenot len(a$):break
print a$
Pos&=Pos&+len(a$)+1
endwhile
endif
EmptyClipboard()
CloseClipboard()
print "Ende"
waitkey'****************************************
Falls dein Programm die Position der Dateien *nicht* verändert, kannst du EmptyClipboard auch weglassen. Ist nur für den Fall, daß dein Prog die Datei verschiebt; dann sollte die Option "Einfügen" besser nicht mehr zur Verfügung stehen.
Wie man zwischen kopierten und ausgeschnittenen Pfaden unterscheidet oder Windows eine kopierte/ausgeschnittene Datei vortäuscht, weiß ich aber auch (noch) nicht :-(
HTH
Pascal
|
|
|