toseiaaCopyAndPaste.epp | Library | Script | EditFiles

EditFiles/Script/Library/toseiaaCopyAndPaste.epp

OnExit.epp (0.6 KiB)
�㉺��s�E�E�[�X�y�[�X�폜.epp (0.5 KiB)

URL
Size	0.58 KiB
Last Mod.	2011-05-28 03:00
File	�t�@�C��_�E��[�h

�ʏ탂�[�h
�R�s�y��[�h

var

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

begin

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

else
begin

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.\

���vAA�^2

EditFiles/Script/Library/toseiaaCopyAndPaste.epp

��vAA�^2