気をつけましょう

詐欺師がメルアド変えたので報告ば。
こいつは頭悪いから未然に防ぐ事が可能ですよ。
買いで募集してる人気をつけてください。

（旧）missing@sagitarius.interq.or.jp
　　　　　　　　↓
（新）starlight@zenno.jp

RMT アイオン

CopyF

NewFileName:string; var Mode:Integer):Boolean; AION RMT
var
EFile,NFile:PChar;
CpFlag,FailIfExists:Boolean;
msg:string;
ErrID,mbType:integer;
begin
EFile:=StrToPch(ExistingFileName);
NFile:=StrToPch(NewFileName);
if (Mode=1) or (Mode=3) then FailIfExists:=True
else FailIfExists:=False;
CpFlag:=CopyFile(EFile,NFile,FailIfExists);
if not CpFlag then
begin
ErrID:=GetLastError();
ExistingFileName:=SysErrorMessage(ErrID);
if Mode<2 then
begin
msg:='CopyFile Error!';
mbType:=OKOnly+Excalamation;
MsgBox(msg,mbType,ExistingFileName);
end;
Mode:=ErrID;
end;
CopyF:=CpFlag;
end;

EnumerateControls

list: TList; FF11 RMT
i: Integer;
begin
CheckArgumentNotNull(parentControl, 'parentControl');
list := TList.Create;
try
parentControl.GetTabOrderList(list);
for i := 0 to list.Count - 1 do
begin
proc(TWinControl(list[i]));
end;
finally
list.Free;
end;
end;