サルでもできるスロゲー開発

[61 名前は開発中のものです。 2006/05/18(木) 01:53:51 ID:qRHzoNGJ]

>>58
#include "kernel32.as"
Fn="test.dat"
CreateFile varptr(Fn),$80000000,0,0,3,0,0 :Fh = stat
if Fh != -1 {
GetFileSize Fh,varptr(Sh) :Sl = stat ;
sdim ss,Sl+1
ReadFile Fh,varptr(ss),Sl+1,varptr(As),0
mes ss
SetFilePointer Fh,10,0,0 :Sl=20
sdim ss,Sl+1
ReadFile Fh,varptr(ss),Sl+1,varptr(As),0
mes ss
CloseHandle Fh}