ｿｽ@ ｿｽ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

ｿｽけｿｽoｿｽｿｽ 2005/08/12(ｿｽｿｽ) 17:32:55

ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ、ｿｽeｿｽLｿｽXｿｽgｿｽﾉｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽdｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽｿｽJｿｽｿｽｿｽdｿｽlｿｽﾌ為、
ｿｽuI/O ｿｽGｿｽｿｽｿｽ[ (32)ｿｽvｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽoｿｽｿｽｿｽｿｽﾎ「WritelnｿｽvｿｽｿｽgｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ
ｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈにゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

var
  LogFH : TextFile; //ｿｽｿｽｿｽOｿｽp
begin
  AssignFile(LogFH, strLogFile);
  if FileExists(strLogFile) then
     Append(LogFH)   //ｿｽｿｽｿｽOｿｽﾇ会ｿｽ
  else
     Rewrite(LogFH); //ｿｽｿｽｿｽOｿｽVｿｽK
  Writeln(LogFH, 'ｿｽｿｽｿｽOｿｽｿｽe');
  CloseFile(LogFH);
end;

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/12(ｿｽｿｽ) 20:31:55

ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾉアｿｽNｿｽZｿｽXｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
IOｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽｿｽ迴ｭｿｽｿｽｿｽｿｽｿｽﾔゑｿｽuｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽﾄ抵ｿｽｿｽすｿｽ驍ｭｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/12(ｿｽｿｽ) 21:57:06

ｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽdｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAFileOpen ｿｽﾌようｿｽｿｽ PascalｿｽlｿｽCｿｽeｿｽBｿｽuｿｽﾅなゑｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾏ撰ｿｽｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
FileHandle := FileOpen(strLogFile, fmOpenReadWrite or fmShareDenyNone);
ｿｽｿｽPascalｿｽlｿｽCｿｽeｿｽBｿｽuｿｽｿｽTFileStreamｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽﾂ。

moro 2005/08/13(ｿｽy) 00:30:55

ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽOｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽ_ｿｽCｿｽｿｽｿｽNｿｽgｿｽｿｽ">>"ｿｽｿｽｿｽgｿｽｿｽｿｽ驍ｩｿｽｿｽB

ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾟなゑｿｽA
ｿｽﾙゑｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽﾖ止ｿｽｿｽｿｽ驛ゑｿｽ[ｿｽhｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽB
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌオｿｽ[ｿｽvｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ抵ｿｽｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽSleep()ｿｽﾅ茨ｿｽ闔橸ｿｽﾔ待機ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽsｿｽｿｽｿｽB

ｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽ‾ｿｽｿｽｿｽ[ｿｽeｿｽbｿｽNｿｽXｿｽｿｽgｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ擾ｿｽｿｽSｿｽﾒには難しｿｽｿｽｿｽB
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpdndllpro/htm/metrsect.asp

deldel 2005/08/13(ｿｽy) 08:42:57

.iniｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾈら同ｿｽｿｽｿｽﾉアｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾅ、ｿｽFｿｽXｿｽﾆ（ｿｽfｿｽ[ｿｽ^ｿｽﾝ計ｿｽﾈど）ｿｽHｿｽvｿｽｿｽｿｽvｿｽ閧ｻｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽE

ｿｽけｿｽoｿｽｿｽ 2005/08/15(ｿｽｿｽ) 13:05:59

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAmoroｿｽｿｽｿｽｿｽAdeldelｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
AssignFileｿｽEAppendｿｽEWritelnｿｽﾅは、ｿｽｿｽﾍゑｿｽsｿｽﾂ能ｿｽﾈゑｿｽﾅゑｿｽｿｽﾋ。
ｿｽdｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽOｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ鯉ｿｽﾉ茨ｿｽCｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾞようｿｽﾉゑｿｽｿｽ謔､ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

1)ｿｽuCreateFileｿｽESetFilePointerｿｽEWriteFileｿｽECloseHandleｿｽvｿｽｿｽgｿｽｿｽｿｽAｿｽuCreateFileｿｽESetFilePointerｿｽvｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ擾ｿｽｿｽｿｽｿｽPｿｽｿｽ‾ｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽQｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆゑｿｽﾆ、ｿｽｿｽｿｽOｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽｿｽjｿｽさゑｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾍ終ｿｽ_ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ辺ゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽE

2)ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽiｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽ繧ｪｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽjｿｽB

function WriteData(strFileName: string):Boolean;
var
  FileHandle : Integer;
  chrBuf: array[0..2048] of char; //ｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^(ｿｽﾖ撰ｿｽｿｽﾄび出ｿｽｿｽｿｽpｿｽr)
begin
  //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾝ確ｿｽF
  if not FileExists(strIniFile) then
    FileCreate(strFileName)
  else
    FileHandle := FileOpen(strFileName, fmOpenWrite);
  //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
  if FileHandle > 0 then begin
     StrCopy(chrBuf, PChar(strLogBuf));
     FileWrite(FileHandle, chrBuf[0], SizeOf(strLogBuf));
  end;
  //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽNｿｽｿｽｿｽ[ｿｽY
  FileClose(FileHandle);
end;

3)TStrings.SaveToFileｿｽｿｽgｿｽｿｽｿｽﾆ、ｿｽﾈ前ｿｽﾌｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽVｿｽKｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽﾉｿｽｿｽOｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

1ｿｽ`3ｿｽﾌゑｿｽｿｽｿｽｿｽAｿｽﾇれかｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾚゑｿｽｿｽｿｽｿｽﾄ・ｿｽEｿｽE

ｿｽけｿｽoｿｽｿｽ 2005/08/15(ｿｽｿｽ) 13:14:37

ｿｽﾔ違えｿｽｿｽ 2)ｿｽｿｽﾜゑｿｽﾜ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAstrLogBufｿｽﾍ外ｿｽｿｽstringｿｽ^ｿｽﾅ宣言ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAFileWrite(FileHandle, chrBuf[0], SizeOf(strLogBuf));ｿｽｿｽ
FileWrite(FileHandle, chrBuf, SizeOf(strLogBuf));ｿｽﾌ間違いｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB

ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ... 2005/08/15(ｿｽｿｽ) 15:23:10

>ｿｽﾚゑｿｽｿｽｿｽｿｽﾄ・ｿｽEｿｽE
ｿｽﾚゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽﾟとゑｿｽｿｽB
2)ｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾒ通ゑｿｽﾉ難ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは、ｿｽRｿｽ[ｿｽhｿｽﾉ間違いｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽﾍで鯉ｿｽｿｽﾂゑｿｽｿｽoｿｽｿｽｿｽｿｽﾎ「ｿｽけｿｽoｿｽｿｽｿｽvｿｽｿｽｿｽ逕ｼｿｽｿｽOｿｽiｿｽB

ｿｽけｿｽoｿｽｿｽ 2005/08/15(ｿｽｿｽ) 18:27:49

FileWriteｿｽﾌ記ｿｽqｿｽﾔ違いｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽCｿｽｿｽzｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
FileHandle:= FileCreate(strFileName);
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽけ趣ｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽEｿｽ@ｿｽﾚゑｿｽｿｽB

function WriteData(strFileName: string):Boolean;
var
  FileHandle : Integer;
begin
  //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾝ確ｿｽF
  if not FileExists(strIniFile) then
    FileHandle:= FileCreate(strFileName)
  else
    FileHandle := FileOpen(strFileName, fmOpenWrite);
  //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
  if FileHandle > 0 then begin
     FileWrite(FileHandle, PChar(strLogBuf)^, length(strLogBuf));
  end;
  //ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽNｿｽｿｽｿｽ[ｿｽY
  FileClose(FileHandle);
end;

ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟゑｿｽ1)ｿｽｿｽ3)ｿｽﾌ不ｿｽ合ｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾈんかヒｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか？
ｿｽｿｽｿｽいｿｽ調ｿｽﾗてゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾗゑｿｽﾗのキｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
3)ｿｽﾍ会ｿｽｿｽｿｽsｿｽﾂでゑｿｽｿｽｿｽｿｽﾋゑｿｽｿｽEｿｽEｿｽE

ｿｽけｿｽoｿｽｿｽ 2005/08/15(ｿｽｿｽ) 18:48:21

FileExists(strFileName)
ｿｽｿｽｿｽｿｽｿｽﾍ間違いｿｽｿｽｿｽ轤ｯｿｽﾅ危険ｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾄゑｿｽｿｽｿｽｿｽ闥ｼｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
2)ｿｽｿｽｿｽｿｽﾇ追記ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽけｿｽoｿｽｿｽ 2005/08/15(ｿｽｿｽ) 19:31:16

ｿｽｿｽﾍ趣ｿｽｿｽﾍで会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽﾊ包ｿｽﾍ寝ｿｽｿｽｿｽﾒゑｿｽ 2005/08/15(ｿｽｿｽ) 20:19:57

>ｿｽｿｽﾍ趣ｿｽｿｽﾍで会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ心ｿｽｿｽｿｽｿｽｿｽXｿｽoｿｽｿｽｿｽVｿｽCｿｽI

function WriteData(const strFileName, strLogBuf: string): Boolean;
var
  FileHandle : Integer;
begin
  result := False;
  if not FileExists(strFileName) then
    FileHandle := FileCreate(strFileName)
//  FileHandle := CreateFile(PChar(strFileName), GENERIC_WRITE, FILE_SHARE_WRITE, nil,
//    {OPEN_ALWAYS} CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
  else
    FileHandle := FileOpen(strFileName, fmOpenWrite or fmShareDenyNone);
  if FileHandle > 0 then begin
    // ｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽ‾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽdｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊアｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ追会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽv
    SetFilePointer(FileHandle, 0, nil, FILE_END);       // ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
    // ｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽdｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊアｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ追会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅポｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽ
    FileWrite(FileHandle, PChar(strLogBuf)^, Length(strLogBuf));    // ｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
    result := True;
  end;
  FileClose(FileHandle);
end;

ｿｽけｿｽoｿｽｿｽ 2005/08/16(ｿｽｿｽ) 11:06:57

ｿｽﾊ包ｿｽﾍ寝ｿｽｿｽｿｽﾒてゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾙゑｿｽFileSeekｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽASetFilePointerｿｽｿｽgｿｽｿｽｿｽﾎ良ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
DelphiｿｽｿｽAPIｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽzｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

> // ｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽdｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊアｿｽvｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ追会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅポｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽ
ｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
1)ｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾈゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝのタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽvｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽHｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI

Created by board of various Programming Library.