|
ｿｽ@ｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽoｿｽﾍの奇ｿｽｿｽｿｽｿｽｿｽﾒつには？
|
ｿｽ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
ｿｽﾍゑｿｽｿｽ 2006/08/20(ｿｽｿｽ) 23:55:06
ｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅ、TStringListｿｽｿｽSaveToFile()ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ発行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽ[ｿｽgPCｿｽﾅ、HDDｿｽﾌ遅ｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾅの運ｿｽpｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾆアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽ[ｿｽYｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽｿｽﾆ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽﾍ、3ｿｽbｿｽﾙど待ゑｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾆ、
ｿｽtｿｽｿｽｿｽ[ｿｽYｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽASaveToFile()ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ、
ｿｽﾎ象のフｿｽ@ｿｽCｿｽｿｽｿｽﾌ保托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽmｿｽFｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽ[ｿｽvｿｽｿｽFileExists(ｿｽｿｽｿｽYｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ)ｿｽｿｽsｿｽｿｽｿｽﾄ、
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ托ｿｽｿｽﾝゑｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽﾄ費ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾅは鯉ｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾍゑｿｽ 2006/08/21(ｿｽｿｽ) 00:14:46
ｿｽuTStringListｿｽｿｽSaveToFile()ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽvｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾉは擾ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽB
(ｿｽVｿｽXｿｽeｿｽｿｽｿｽﾌキｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾉは残ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ)
FBusy := True;
lst.SaveToFile(ｿｽEｿｽEｿｽE);
FBusy := False;
ｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽOnCloseQueryｿｽｿｽFBusyｿｽﾌ費ｿｽｿｽｿｽｿｽｿｽｿｽﾄみては？
ｿｽｿｽﾉゑｿｽ 2006/08/21(ｿｽｿｽ) 10:28:39
ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ包ｿｽｿｽGｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽﾍ別でゑｿｽｿｽｿｽｿｽA
TStringListｿｽｿｽSaveToFile()ｿｽﾌ趣ｿｽｿｽsｿｽｿｽｿｽﾍ托ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽiｿｽIｿｽｿｽｿｽﾜむ）ｿｽｿｽｿｽｿｽｿｽ闕橸ｿｽﾞゑｿｽｿｽﾆは出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ托ｿｽｿｽﾉゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾍゑｿｽｿｽ 2006/08/21(ｿｽｿｽ) 11:24:37
ｿｽMｿｽdｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽmｿｽ[ｿｽgPCｿｽﾌ省電ｿｽﾍｿｽｿｽ[ｿｽhｿｽﾌみで費ｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾛなので、
Delphiｿｽﾉは関係ｿｽﾌなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽTｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
deldel 2006/08/22(ｿｽｿｽ) 08:52:32
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽﾈ会ｿｽｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽsｿｽﾏになゑｿｽﾎ奇ｿｽｿｽSｿｽﾉ作成ｿｽｿｽｿｽ黷ｽｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽﾄまゑｿｽｿｽB
var
SearchRec: TSearchRec;
boFileMakeDone: Boolean;
lwFileSize: Longword;
saFileName: AnsiString;
begin
lwFileSize := 0;
boFileMakeDone := False;
while not boFileMakeDone do begin
FindFirst(saFileName, faAnyFile, SearchRec);
try
if (lwFileSize <> Longword(SearchRec.Size)) or (lwFileSize = 0) then begin
lwFileSize := SearchRec.Size; //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽ謫ｾ
sleep(100); //ｿｽｿｽｿｽｿｽｿｽｿｽﾆ待ゑｿｽ
end else
boFileMakeDone := True; //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾉ作成ｿｽｿｽｿｽ黷ｽ
finally
FindClose(SearchRec);
end;
end;
end;
ｿｽﾍゑｿｽｿｽ 2006/08/23(ｿｽｿｽ) 10:47:47
ｿｽﾇ会ｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽuｿｽTｿｽCｿｽYｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆダｿｽｿｽｿｽﾈのゑｿｽｿｽﾈ？ｿｽv
ｿｽﾈどと考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽﾏ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽvｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾅゑｿｽｿｽｿｽﾎ顛ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
