|
ｿｽ@ｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽAｿｽeｿｽLｿｽXｿｽgｿｽﾉ更ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾗにゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
DelphiｿｽｿｽDｿｽｿｽ 2009/05/14(ｿｽｿｽ) 17:24:26
ｿｽﾂ具ｿｽｿｽｿｽWinXP SP3ｿｽ@TurboDelphi2006ｿｽiｿｽｿｽｿｽｿｽｿｽﾅ）ｿｽﾅゑｿｽｿｽB
ｿｽﾈ前ｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾇ暦ｿｽｿｽ¥ｿｽtｿｽgｿｽﾌ全ｿｽﾊ会ｿｽｿｽﾇゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾅ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽA
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh(ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ)ｿｽﾅゑｿｽｿｽB
FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsString := Datetostr(FileDateToDateTime(fileage(strpas(filename))));
ｿｽhｿｽｿｽｿｽbｿｽNｿｽAｿｽｿｽｿｽhｿｽhｿｽｿｽｿｽbｿｽvｿｽﾅ取得ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFileageｿｽﾅ更ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽﾉ出ｿｽｿｽｿｽｿｽlｿｽﾉゑｿｽｿｽｿｽﾗに、Filedｿｽﾌ型ｿｽｿｽStringｿｽﾉ変ゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈ前ｿｽｿｽDatetimeｿｽ^ｿｽﾅゑｿｽｿｽｿｽｿｽB
filenameｿｽﾌ型ｿｽﾍ、FileName: array [0..255] of Char;
ｿｽﾅゑｿｽｿｽB
ｿｽﾈ前ｿｽiDatetimeｿｽ^ｿｽﾌ趣ｿｽｿｽjｿｽﾍ撰ｿｽｿｽｿｽﾉ作動ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽ¥ｿｽtｿｽgｿｽﾏ更ｿｽｿｽA
ｿｽuｿｽｿｽｿｽtｿｽﾉ変奇ｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽlｿｽｿｽｿｽnｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽv
ｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄ、ｿｽｿｽｿｽtｿｽｿｽ謫ｾｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉ更ｿｽVｿｽOｿｽﾌソｿｽtｿｽgｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽoｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾃゑｿｽｿｽ¥ｿｽtｿｽgｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽ
FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsDateTime := FileDateToDateTime(fileage(strpas(filename)));
ｿｽｿｽｿｽﾝはどゑｿｽｿｽｿｽﾌソｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽxｿｽｿｽｿｽｿｽﾄゑｿｽｿｽLｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽOｿｽﾉエｿｽｿｽｿｽ[ｿｽﾅ止ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
FileDateToDateTime(fileage(strpas(filename)));
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽLｿｽﾆ難ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽqｿｽﾘゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾇ記ｿｽﾅゑｿｽｿｽB
ｿｽEｿｽCｿｽｿｽｿｽXｿｽﾎ搾ｿｽ¥ｿｽtｿｽgｿｽﾍウｿｽCｿｽｿｽｿｽXｿｽZｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽOｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽﾈ前ｿｽAｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで）
DelphiｿｽｿｽｿｽﾌゑｿｽAｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾂゑｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽ'oleaut32.dll'ｿｽﾌアｿｽhｿｽｿｽｿｽXｿｽ@770D4945ｿｽ@ｿｽﾅアｿｽhｿｽｿｽｿｽX734F1E88ｿｽﾉ対ゑｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ違反ｿｽｿｽｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽEｿｽCｿｽｿｽｿｽXｿｽ¥ｿｽtｿｽgｿｽｿｽmｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽXｿｽOｿｽﾉ変ゑｿｽｿｽﾄゑｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽCｿｽﾉはなゑｿｽｿｽｿｽｿｽﾌで追記ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽEｿｽCｿｽｿｽｿｽXｿｽ¥ｿｽtｿｽgｿｽﾆ奇ｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽﾗのエｿｽｿｽｿｽ[ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍゑｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾅはゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
igy 2009/05/14(ｿｽｿｽ) 18:44:35
> FileDateToDateTime(fileage(strpas(filename)));
>ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽLｿｽﾆ難ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾆゑｿｽｿｽﾌ、
filename
strpas(filename)
fileage(strpas(filename))
ｿｽﾌ難ｿｽeｿｽﾍ、ｿｽﾇのようｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
DelphiｿｽｿｽDｿｽｿｽ 2009/05/15(ｿｽｿｽ) 11:20:18
igyｿｽｿｽｿｽ早托ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽA
ｿｽlｿｽﾍ以会ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
C:¥Documents and Settings¥XXX¥ｿｽfｿｽXｿｽNｿｽgｿｽbｿｽv¥ｿｽｿｽｿｽｿｽ¥35.JPG
ｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽ@2008ｿｽN12ｿｽｿｽ22ｿｽｿｽｿｽA15:53:28
ｿｽｿｽigyｿｽｿｽｿｽｿｽﾖの返難ｿｽｿｽｿｽｿｽｿｽ
filenameｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽFｿｽｿｽCharｿｽ^ｿｽﾌまま値ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
strpas(filename)ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽFC:¥Documents and Settings¥XXX¥ｿｽfｿｽXｿｽNｿｽgｿｽbｿｽv¥ｿｽｿｽｿｽｿｽ
fileage(strpas(filename))ｿｽ@ｿｽF1899/12/29
ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾌ取得ｿｽｿｽｿｽoｿｽｿｽｿｽﾄなゑｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽE
ｿｽ‾ｿｽXｿｽｿｽｿｽﾛゑｿｽｿｽEｿｽEｿｽEｿｽG
ｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ髟費ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉ登ｿｽ^ｿｽｿｽｿｽ黷ｽｿｽl
ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ(Fieldｿｽｿｽｿｽ齒)ｿｽ@C:¥Documents and Settings¥XXX¥ｿｽfｿｽXｿｽNｿｽgｿｽbｿｽv
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽ@ｿｽ@2009/05/06 12:12:00ｿｽiｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽﾂ前ｿｽﾌ撰ｿｽｿｽｿｽﾉ登ｿｽ^ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ更ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽj
ｿｽｿｽｿｽﾊの登ｿｽ^ｿｽｿｽｿｽ@ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ正擾ｿｽﾉ登ｿｽ^ｿｽｿｽｿｽ黷ｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾌ値ｿｽﾅゑｿｽｿｽB
ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ(Fieldｿｽｿｽｿｽ齒)ｿｽ@C:¥Documents and Settings¥XXX¥ｿｽfｿｽXｿｽNｿｽgｿｽbｿｽv¥ｿｽｿｽｿｽｿｽ
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽ@35.jpg
ｿｽXｿｽVｿｽｿｽｿｽｿｽｿｽ@ｿｽ@2008/12/22 15:53:28
ｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌバｿｽOｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽE
ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽﾒ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾌは難ｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾙ常がｿｽｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽNｿｽhｿｽｿｽｿｽbｿｽvｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽ
ｿｽﾏ撰ｿｽｿｽ齬
var
s:string='';//ｿｽ鞫懶ｿｽ¥ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽ
s1:string='';//ｿｽfｿｽWｿｽJｿｽｿｽｿｽJｿｽ[ｿｽhｿｽﾌフｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽ
s2:string='';//ｿｽ鞫懶ｿｽﾌ保托ｿｽｿｽｿｽﾌ大元ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ
s3:string='';//ｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽ
s4:string='';//ｿｽ鞫懶ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽ
s5:string='ｿｽｿｽｿｽｿｽｿｽｿｽ';//ｿｽ齊橸ｿｽiｿｽ[ｿｽﾏ撰ｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽp
s6:string='ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ';//ｿｽｿｽｿｽｿｽｿｽTｿｽuｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽ
s7:string='';//ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽｿｽhｿｽｿｽｿｽbｿｽNｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽp
s8:string='';//ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽiｿｽ[ｿｽﾏ撰ｿｽｿｽｿｽｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽｿｽp
x1,y1,x2,y2:integer;//ｿｽｿｽｿｽWｿｽﾏ撰ｿｽ
count1:integer=0;//ｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ大数ｿｽLｿｽ^ｿｽp
count2:integer=0;//ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽLｿｽ^ｿｽpｿｽﾏ撰ｿｽ
sw1:boolean=false;//ｿｽhｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽtｿｽｿｽｿｽO
sw2:boolean=false;//ｿｽｿｽｿｽWｿｽ謫ｾｿｽtｿｽｿｽｿｽO
sw3:boolean=false;//ｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽO
sw4:boolean=false;//ｿｽ鞫懶ｿｽｿｽ¥ｿｽｿｽｿｽtｿｽｿｽｿｽO
ｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾌ出ｿｽｿｽhｿｽｿｽｿｽbｿｽNｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽoｿｽOｿｽﾅ止ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽ未ｿｽmｿｽFｿｽﾌ包ｿｽｿｽｿｽｿｽﾅバｿｽOｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ髞､ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ)
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
FileName: array [0..255] of Char;
I, Num: Word;
begin
DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
s8 := strpas(FileName) + '¥';
form12.ShowModal;//ｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ齬暦ｿｽﾌプｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽ¥ｿｽｿｽ
if InputQuery('ｿｽﾊ真ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', s5) then
else
exit;
Num := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
with datamodule7.table1 do begin
last;
edit;
s4 := inttostr(FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsInteger + 1);
if not directoryexists(s2 + '¥' + s4) then //ｿｽwｿｽ閧ｵｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
createdir(s2 + '¥' + s4) else begin end; //ｿｽｿｽｿｽｿｽｿｽｿｽﾎ搾ｿｽｿｽ
for I := 0 to Num - 1 do begin
DragQueryFile(Msg.Drop, I, FileName, SizeOf(FileName));
FieldByName('ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ').AsString := s2 + '¥'+ s4;
FieldByName('ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ').AsString := extractfilename(strpas(FileName));
FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString := S4;
FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsString := datetimetostr(FileDateToDateTime(fileage(strpas(filename))));//ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽ
FieldByName('ｿｽｿｽｿｽｿｽｿｽｿｽ').AsString := s5;
FieldByName('ｿｽ齒').AsString := extractfiledir(strpas(filename));
post;
copyfile(filename,allocpchar(s2 + '¥'+ s4 + '¥' + extractfilename(filename)), false);
Append;
end;
end;
DragFinish(Msg.Drop);
s5 := 'ｿｽｿｽｿｽｿｽｿｽｿｽ';
end;
ｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽﾅ画像ｿｽｿｽｿｽ闕橸ｿｽｿｽﾅゑｿｽｿｽ髟費ｿｽｿｽｿｽiFieldｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾈ前ｿｽﾉ擾ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽFieldｿｽﾏ更ｿｽｿｽAｿｽｿｽﾙど撰ｿｽｿｽ動ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽj
ｿｽｿｽｿｽ鞫懶ｿｽﾌデｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽoｿｽ^ｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽ動ｿｽ部ｿｽｿｽｿｽj
ｿｽｿｽｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅデｿｽWｿｽJｿｽｿｽｿｽJｿｽ[ｿｽhｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽﾌブｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.autosetClick(Sender: TObject);
var
sr:TSearchRec;
res:integer;
begin
if not sw1 then
exit;
//ｿｽfｿｽWｿｽJｿｽｿｽｿｽJｿｽ[ｿｽhｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
with datamodule7 do begin
try
if not directoryexists(s2 + '¥' + s4) then //ｿｽwｿｽ閧ｵｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
createdir(s2 + '¥' + s4) else begin end; //ｿｽｿｽｿｽｿｽｿｽｿｽﾎ搾ｿｽｿｽ
res := findfirst(s1 + '¥*.JPG',faAnyfile,sr); //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽn
table1.edit;
while res = 0 do
begin
table1.FieldByName('ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ').AsString := s2 + '¥'+ s4;
table1.FieldByName('ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ').AsString := sr.Name;
table1.FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString := S4;
table1.FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsString := datetimetostr(FileDateToDateTime(fileage(S1 + '¥' + sr.Name)));
table1.FieldByName('ｿｽｿｽｿｽｿｽｿｽｿｽ').AsString := s5;
table1.FieldByName('ｿｽ齒').AsString := s7 + '¥' + s5;
table1.post;
table1.Append;
copyfile(allocpchar(S1 + '¥' +sr.name),allocpchar(s2 + '¥'+ s4 + '¥' + sr.name), false);
res := findnext(sr);
end;
findclose(sr);
except
end;
StrDispose(ps);
s5 := 'ｿｽｿｽｿｽｿｽｿｽｿｽ';
end;
end;
ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾟて趣ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝミｿｽXｿｽ竓ｨｿｽ痰｢ｿｽﾝ定がｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽEｿｽG
ｿｽｿｽｿｽﾈゑｿｽﾌ抵ｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽiｿｽQｿｽQｿｽjｿｽｿｽｿｽB
DelphiｿｽｿｽDｿｽｿｽ 2009/05/15(ｿｽｿｽ) 17:10:55
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽSｿｽﾈ趣ｿｽｿｽｿｽｿｽﾌ考ｿｽｿｽｿｽ痰｢ｿｽﾅゑｿｽｿｽｿｽｿｽGｿｽG
ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆドｿｽｿｽｿｽbｿｽNｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽA
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ直接ドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽﾌゑｿｽA
ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽﾌと奇ｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽG
ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽvｿｽｿｽｿｽ痰｢ｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽG
ｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽiｿｽQｿｽQｿｽjｿｽｿｽｿｽB
DelphiｿｽｿｽDｿｽｿｽ 2009/05/18(ｿｽｿｽ) 16:29:23
ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌと、
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾆに擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽｿｽｿｽgｿｽﾝ搾ｿｽｿｽｿｽﾅ、
ｿｽﾅ終ｿｽIｿｽﾉは以会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
igyｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
FileName: array [0..255] of Char;
I, Num: Word;
sr:tsearchrec;
res:integer;
begin
DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
if '.jpg' = extractfileext(extractfilename(strpas(FileName)))then
begin
//ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾆドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
s8 := extractfilepath(strpas(FileName)) + '¥';
form12.ShowModal;//ｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ齬暦ｿｽﾌプｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽ¥ｿｽｿｽ
if InputQuery('ｿｽﾊ真ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', s5) then
else
exit;
Num := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
with datamodule7.table1 do begin
last;
s4 := FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString;
s4 := inttostr(FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsInteger + 1);
append;
edit;
if not directoryexists(s2 + '¥' + s4) then //ｿｽwｿｽ閧ｵｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
createdir(s2 + '¥' + s4) else begin end; //ｿｽｿｽｿｽｿｽｿｽｿｽﾎ搾ｿｽｿｽ
for I := 0 to Num - 1 do begin
DragQueryFile(Msg.Drop, I, FileName, SizeOf(FileName));
FieldByName('ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ').AsString := s2 + '¥'+ s4;
FieldByName('ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ').AsString := extractfilename(strpas(FileName));
FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString := S4;
FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsString := datetimetostr(FileDateToDateTime(fileage(strpas(filename))));
FieldByName('ｿｽｿｽｿｽｿｽｿｽｿｽ').AsString := s5;
FieldByName('ｿｽ齒').AsString := extractfiledir(strpas(filename));
post;
copyfile(filename,allocpchar(s2 + '¥'+ s4 + '¥' + extractfilename(filename)), false);
Append;
end;
end;
DragFinish(Msg.Drop);
s5 := 'ｿｽｿｽｿｽｿｽｿｽｿｽ';
exit;
end;
//ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾆドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
s8 := strpas(FileName) + '¥';
form12.ShowModal;
s5 := extractfilename(strpas(FileName));
if InputQuery('ｿｽﾊ真ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', 'ｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ', s5) then
else
exit;
{ ｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽ黷ｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾌ取得 }
count1 := 0;
memo2.Lines.Clear;
DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
res := findfirst(filename + '¥*.jpg',faAnyFile,sr);
datamodule7.table1.last;
s4 := datamodule7.table1.FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString;
s4 := inttostr(datamodule7.table1.FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsInteger + 1);
datamodule7.table1.Append;
datamodule7.table1.edit;
if not directoryexists(s2 + '¥' + s4) then //ｿｽwｿｽ閧ｵｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
createdir(s2 + '¥' + s4) else begin end; //ｿｽｿｽｿｽｿｽｿｽｿｽﾎ搾ｿｽｿｽ
while res = 0 do begin
memo2.Lines.Add(strpas(FileName) +'¥'+sr.Name);
res := findnext(sr);
with datamodule7.table1 do begin
FieldByName('ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ').AsString := s2 + '¥'+ s4;
FieldByName('ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ').AsString := extractfilename(memo2.Lines[count1]);
FieldByName('ｿｽiｿｽｿｽｿｽoｿｽ[').AsString := S4;
FieldByName('ｿｽBｿｽeｿｽｿｽｿｽｿｽ').AsString := datetimetostr(FileDateToDateTime(fileage(memo2.Lines[count1])));
FieldByName('ｿｽｿｽｿｽｿｽｿｽｿｽ').AsString := s5;
FieldByName('ｿｽ齒').AsString := strpas(FileName);
post;
Append;
copyfile(allocpchar(memo2.Lines[count1]),allocpchar(s2 + '¥'+ s4 + '¥' + extractfilename(memo2.Lines[count1])), false);
count1 := count1 + 1;
end;
end;
findclose(sr);
sw5 := true;
{ ｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽﾌ終ｿｽｿｽ }
DragFinish(Msg.Drop);
StrDispose(ps);
s5 := 'ｿｽｿｽｿｽｿｽｿｽｿｽ';
end;
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ^^;
igyｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽvｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ^^ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽiｿｽQｿｽQｿｽjｿｽｿｽｿｽB
