Subversion Repositories delphiutils

#F¦¾Q<^ñ˜
FileExtChMain–<rFileExtChMain.dfmK¾Q<pFileExtChMain.pas™¾Q<dSystemfTObject|ê®ìf
AnsiString¶+{Ÿfstring¶+{ŸgTObject.Dispatchµ
ĄgTObject.NewInstance·
ĄgTObject.FreeInstance¸
ĄgCopygLengthg@LStrLenrÅXŸ[û
g      @LStrCopyé`pÅfInteger        ™fÂfBooleanúefPLongintˊÉg@LStrAddRef”`Eg@LStrClr\ª«>g@HandleFinallyé`pÅg
ParamCount-¹{Zg
LoadResString[WbgExitgParamStrrÅöf   PAnsiChar“u½RfPChar“u½Rg@LStrAsg‘Ԝg  @LStrCatNé`pÅg@LStrToPChar$ÉÇg
@LStrArrayClrüŸg      @LStrCat3é`pÅcdSysInitg    HInstanceW6ûKcdWindowsg     SW_NORMAL¯}ç1gMoveFileܸÇgGetLastErrorñöãcdDialogsgShowMessageÞgShowMessageFmtl°Ø¦cdSysUtilsgExtractFileExtÓ¢}GgFormat*¿gExtractFileNameÓ¢}GgDirectoryExists'h'&g
FileExists'h'&gExtractFilePathÓ¢}GcdFormsfTForm!€³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ÓZ2fTCustomFormI].‘gTCustomForm.Closey~C)cdClassesgTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqcdControlsgTWinControl.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(ØïYgTControl.GetTextE×ïYgTWinControl.GetHandleœ;¾ßgTControl.SetTextq×ïYfTWinControlG©GcdStdCtrlsfTEditPõøœfTLabelÝ^L€fTButtonä«IÝg.TEdit3ÉÖîg.TLabelÀ2*Òg.TButtonÇ'/ce        DropFilesgForm2' »³fTForm2:¢³g
TForm2.SetMsgBZ·Kg
TForm2.SetCapCZ·KceShellAPIgShellExecuteˆÙc5
FileExtChMain€_¸ŽÏc5Systemc5SysInit<c5Windows@c5DialogsHc5SysUtilsNc5Forms\c5Classes´c5Controls¾c5StdCtrlsc&.TForm1€¾Gw– *TForm1ˆÛs™D" Form1æéÙ²D"07.2F$5  DropFiles!c5ShellAPI5c3lng_file_not_found%
.JÿÿÿÿThe file "%s" was not found!3lng_is_a_dir%
.Œÿÿÿÿ=A directory has no filename extension which could be changed.(RemoveFileNameExtI!fnfø#Resultfð 
. 
.& 
.cj3
lng_syntax@k%
.8ÿÿÿÿSyntax: %s filename(TForm1.FormShow€”®ÜÁˆ("!Self"!Sender 
i
 nffø 
.cœ
­"(TForm1.Button2Click€”®Üˆ("!Self"!Sendercœ
Å"j3lng_move_error@k%
.tÿÿÿÿ1Could not move file "%s" to "%s". Error code: %d.j3lng_target_already_exists@k%
.„ÿÿÿÿ9The target file "%s" already exists. Rename not possible.(TForm1.Button1Click€”®Üµˆ("!Self"!Sender 
nføcœ
á"(TForm1.GetChoosenExt€    ”®Ü1œ"!Self"#Resultcœ
ñ"(Finalization€é`pÅ\!(cž(
FileExtChMain€!(cžþG"ÅFLiá
e
‘þÐ&,Edit1

œ

",Label1
‘
œ
",Button1
¡
œ
 ",Button2
±
œ

".FormShow
î­ˆœ
".Button2Click
îňœ
".Button1Click
îሜ
",
fÁ
œ
",
eÑ
œ
!".
GetChoosenExtîñœœ
%"cD$€ÿÿÿ E(@l‰LP
j
¥
Ü
xptã
`Edit1d
Label1hButton1lButton2FormShowButton2ClickButton1ClickTForm1TForm1Lh
FileExtChMainU‹ìƒÄðSV3ɉMô‰Uø‰Eü‹Eüè3ÀUh…dÿ0d‰ ‹]ü…Ûtƒë‹Uô‹Eüè‹Eô‰Eð‹uð…ötƒî‹6‹EøP‹Ë+κ
‹Eüè3ÀZYYd‰hŒEôèEüèÃéëè^[‹å]ÃU‹ì¹   jjIuùQSVW‹ð3ÀUhËdÿ0d‰ èH‡EøPU衋è‹EèUìè‹Eì‰EðÆEôEðPUä¸è‹Eä3ÉZè‹Uø¡‹èUà‹Æè‹Uࡋ衋‹ÿ’ü‹ÆèéØ
–p¸
èU܋†pè‹U܍†t苆pè„Àt!Uظè‹EØè‹Æèé|
‹†pè„Àu5UÔ¸è‹EÔP‹†p‰EðÆEôUð3ÉXè‹Æèé8
èHŽÎè‹ØƒëŒ¾C¿Uü‹Çèj
häUÈ¡‹è‹EȍUÌèÿuÌhäEкè‹EÐèPhäÿuühäEĺè‹EÄèPhäU¼¡‹èÿu¼häEÀºè‹EÀèPhè‹ÆèPèGK…HÿÿÿU¸‹†pè‹U¸‹†d苞t…Ûtƒë‹E´P‹ËIº‹†tè‹U´‹†`苆`‹ÿ’Ô3ÀZYYd‰hҍE´ºèEàèEäºèEøºèÃéëÉ_^[‹å]Ãÿÿÿÿ
"openèÃU‹ìƒÄÈS3ɉMà‰Mä‰Mð‰Mø‰Mô‰Mü‹Ø3ÀUha
dÿ0d‰ Uø‹Ãè‹EøPUô‹ƒpè‹UôEüY苃pè„Àu5Uð¸è‹EðP‹ƒp‰EèÆEìUè3ÉXè‹Ãè颋Eüè„Àt/Uä¸è‹EäP‹Eü‰EèÆEìUè3ÉXè‹Ãèëg‹EüèP‹ƒpèPè…ÀuBUà¸è‹EàP‹ƒp‰EÈÆEÌ‹Eü‰EÐÆEÔè‰EØÆE܍UȹXè‹Ãè3ÀZYYd‰hh
EàºèEðºèÃéëÞ[‹å]ÃU‹ìjjSV‹ò‹Ø3ÀUhpdÿ0d‰ Uü‹ƒ`èƒ}üu       ‹ÆèëUø‹ƒ`è‹Mø‹Æºˆè3ÀZYYd‰hwEøºèÃéëë^[YY]Ãÿÿÿÿ
.U‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
Ãmye
e
e
i
e
e
e
`
º
–
˜

œ


”
À
j
¼
x
z
€
ô
¶
Š
¸
~

Ä
Â
Æ
æ
Ò
t
Ö
è
ê
v
ì
‚
î
ð
ò
†
„
ö
Œ
ø
Þ
à
â
ä
¦
b
È
d
f
h
Ê
Ì
l
n
Î
Ð
Ô
|
Ø
Ú
Ü
ž
¨
ª
Ž
p
r
ˆ
’
š
 
¢
¤




ez
­
Å&
á4


i
i
e
^,}
>…
>. 
:PN
""$¥
>­2
­&&¬®T,
¥
(R%-ú%1
%"²*,P2V
…
(J² X
}
(8L²&&6,
­¬®Z
­46
­
­46
­¬®
­46
­ü9,TþLþ6
­8"88$HŲ
Ñ
>Ù
>áB
á ñ$:X
}
(8L²X
Ù
(2L²66D
Ñ
(@F*L²
á88$ñ"
ñ(ú" ú
ñ
:
ñ8$6ý
ý
q
ý$
q
hL}R|^F¦2
 8*
R
,™ô8hÄ
VPR
L<„h6(:ʑ%’"“Rbiiiii­Ti
Å ¸iá" Âi i$i$ñ*(
i(m0}D…FJ‘J•L±µT¥X¹\½^)
ýh)ýj°yýl
½ý²ÉïHa͸åéÂíÆÑÊÙÌõùý!”J  02­À˜p±F±Åþ±Ù±5þ±I±Eþ±Y¹á
¹Áþ±9
þÅ@ÉÉ
þá€påVåIþå]åAþåIååþñp0õ6ù6õ^þõpõªþý  a