Code: Alles auswählen
If File$
cd.COPYDATASTRUCT
cd\dwData=#WMCD_OpenFile
cd\cbData=Len(File$)
cd\lpData=@File$
SendMessage_(RunOneWin,#WM_COPYDATA,MainWin,cd)
EndIf#wmcd_openfile ist eine Konstante mit beliebigen wert. Bei WM_Copydata ist da meines Wissens nach keine festen definitionen und für den eigenen gebrauch völlig freigegebn.
in WindowCallback muß folgendes rein:
Code: Alles auswählen
select message
Case #WM_COPYDATA
*cd.COPYDATASTRUCT=lParam
Result=#False
Select *cd\dwData
case #WMCD_OpenFile
If *cd\lpData
autoload$= PeekS(*cd\lpData,*cd\cbData)
endif