EditFiles/Script/Events/OnCreate.epp
| URL | |
|---|---|
| Size | 0.41 KiB |
| Last Mod. | 2011-05-28 03:00 |
| File | ファイルをダウンロード |
- 通常モード
- コピペモード
var
F1, F2, S : String;
I: integer;
begin
if not FileExists( AppPath +'LastFiles.ini' ) = true then exit;
repeat;
I := I + 1;
F1 := IniReadStr( AppPath +'LastFiles.ini', 'LastFiles', 'File'+IntToStr(I), '' );
S := IniReadStr( AppPath +'LastFiles.ini', 'LastFiles', 'Num', '' );
FileOpenA( F1 );
until IntToStr(I) = S;
F2 := IniReadStr( AppPath +'LastFiles.ini', 'LastWindow', 'Current', '' );
FileOpenA( F2 );
end.
F1, F2, S : String;
I: integer;
begin
if not FileExists( AppPath +'LastFiles.ini' ) = true then exit;
repeat;
I := I + 1;
F1 := IniReadStr( AppPath +'LastFiles.ini', 'LastFiles', 'File'+IntToStr(I), '' );
S := IniReadStr( AppPath +'LastFiles.ini', 'LastFiles', 'Num', '' );
FileOpenA( F1 );
until IntToStr(I) = S;
F2 := IniReadStr( AppPath +'LastFiles.ini', 'LastWindow', 'Current', '' );
FileOpenA( F2 );
end.
