やる夫AA録2

var

S1, S2, S3, F, C : String;
label a;

begin

F := ( 'C:\toseiaa.txt' );
if FileExists( F ) = true then;

else
begin
MessageBox('コピー元のファイルが存在しません' , 'error' , MB_OK);
exit;
end;

S1 := FileName;
if S1 = '' then exit;
FileOpenA( F );
ActionExecuteOfString('w2chCopyText');
C := GetClipbrdText;
if S1 = F then exit;
ActionExecuteOfString('windCloseThis');
S2 := FileName;
if S1 = S2 then

begin
InputStr( C );
exit;
end

a:
if S3 = S2 then exit;
ActionExecuteOfString('windNext')
S3 := FileName;
if S1 = S3 then

begin
InputStr( C );
exit;
end

else
begin
goto a;
end;

end.\