Subversion Repositories delphiutils

#5¨¾Q<^ñ˜ DropFiles–<r
DropFiles.dfm»½Q<p..\_Common\DropFiles.pas˽Q<dSystemfTObject|ê®ìfstring¶+{Ÿf
AnsiString¶+{ŸgTObject.Dispatchµ
ĄgTObject.NewInstance·
ĄgTObject.FreeInstance¸
Ąf   PAnsiChar“u½RfPChar“u½Rg@LStrAddRef”`Eg @LStrCatNé`pÅg@LStrToPChar$ÉÇg
@LStrArrayClrüŸg@HandleFinallyé`pÅfInteger        ™fÂfChar#»šg@LStrFromArrayC¡t2g@LStrClr\ª«>gTruevɚøcdSysInitcdWindowsg   SW_NORMAL¯}ç1cdMessagesfTMessageÝ=5gWM_DROPFILESÆøò1cdSysUtilsgExtractFilePathÓ¢}GcdVariantscdClassesgTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqcdGraphicscdControlsgTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint•<¾ßgTWinControl.SetBounds˜<¾ßgTWinControl.Update›<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTWinControl.GetHandleœ;¾ßgTControl.SetTextq×ïYgTControl.GetTextE×ïYcdFormsfTForm!€³5g.TFormT‘‡gTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocusˆ~C)gTCustomForm.SetFocusedControl‰~C)gTCustomForm.ShowModal‹~C)gTCustomForm.WantChildKeyŒ~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgApplicationç_šgTApplication.GetExeNameJÓZ2cdDialogscdStdCtrlsfTMemoÊKg.TMemo­×íœceShellAPIgShellExecuteˆÙg
DragQueryFilexw)!g
DragFinish22w»gDragAcceptFilesdUÌ·c5        DropFiles€_¸ŽÏc5Systemc5SysInit*c5Windows,c5Messages0c5SysUtils6c5Variants:c5Classes<c5GraphicsFc5ControlsHc5FormsŠc5DialogsÞc5StdCtrlsàc&.TForm2€ü
€*TForm2ˆ:¢³ Form2æ' »³.7.2F5ShellAPIæc(TForm2.HandleDroppedFile€@Z·K1ˆ!Self!
acFileNameføcœ
)(TForm2.DropFiles€AZ·KÙˆ!Selffø"msg
%cnMaxFileNameLen
ý 
i nCount 
acFileNamef ñûcœ
5(TForm2.FormCreate€?Z·K(ˆ!Self!Sendercœ
Q(
TForm2.SetMsg€BZ·Kžˆ!Self!
sføcœ
](
TForm2.SetCap€CZ·K1ˆ!Self!
sføcœ
i(Finalization€é`pÅ\!cž(     DropFiles€!cžþG)FD¡

‘þÐ&,Memo1

œ
y.
FormCreate
îQˆœ
}.HandleDroppedFileî)ˆœ
.       DropFiles
Í5ˆœ
….SetMsgî]ˆœ
‰.SetCapîiˆœ
cD€ÿÿÿ @DýùL
"DýùlMLP
b
u
}
d
„
`Memo1

FormCreate
3TForm2
TForm2Lh   DropFilesU‹ì3ÉQQQQQQQS‰Uü‹Ø‹Eüè3ÀUhédÿ0d‰ j
h
Uð¡‹è‹EðUôèÿuôh
Eøºè‹EøèPh
ÿuüh
Eìºè‹EìèPh
U䡋èÿuäh
Eèºè‹EèèPh
‹ÃèPè3ÀZYYd‰hðEäºèÃéëë[‹å]Ãÿÿÿÿ
"openU‹ìÄøþÿÿSVW3ɉøþÿÿ‹ú‰Eü3ÀUh¨dÿ0d‰ hÿ…üþÿÿPjÿ‹GPè‹ØK…Û|AC3öhÿ…üþÿÿPV‹GP荅øþÿÿ•üþÿÿ¹
苕øþÿÿ‹EüèFKu‹GPè3ÀZYYd‰h¯…øþÿÿèÃéëí_^[‹å]ÃS‹Øjÿ‹ÃèPè[ÃU‹ìQS‰Uü‹Ø‹Eüè3ÀUhDdÿ0d‰ ‹Uü‹ƒ`è3ÀZYYd‰hKEüèÃéëð[Y]ÃU‹ìjjjS‰Uü‹Ø‹Eüè3ÀUhtdÿ0d‰ ÿuühˆUô‹ÃèÿuôEøºè‹Uø‹Ãè3ÀZYYd‰h{EôèEøºèÃéëã[‹å]Ãÿÿÿÿ - U‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
Ãmi
 





Ž
B
Ä
Æ

Ê


Â
J
˜
D
¦
¨
®
~
>
¸
@
¬
¾
N
L
P
p
\
¢
`
r
t
¤
v
°
x
z
|
´
²
€
º
‚
h
j
l
n
Ô

R
’
”
–
T
V
š
œ
X
Z
^
ª
b
d
f
Ì
Ö
Ø
¼
ž
 
¶
À
È
Î
Ð
Ò
(
Q&
5
ä


Œ$),
)
)ÚÜ8
)
)
)
)ÚÜ
)
)„è
)D5:
5:ê@ê,$)ì
5&Q„î]
](†
]&i&
i
iˆ †
i&.u
u
!
u
!
,B±P™&|N
.,HôN@BJXґ¶’“:NQ–)@5$ f ]&$ 
$i(&ª&.-1@9=fAjEnIpMrUY–a4[+e m7àqªu´”8)@82-P-9þ5€!p=N
I|EIþEþ==þQ@UU$þ]@2a@a\þi@2mJm¢þu  a