Apr 17, 2002 (Wed) 9:37 - έγDDD http://www.geocities.com/asciimail/filemap.htm ---- use Win32::API; my $CreateFile = new Win32::API('kernel32', 'CreateFile', [P, N, N, P, N, N, P], P); my $lpFileName = 'Sakura'; my $dwDesiredAccess = GENERIC_READ; my $dwShareMode = FILE_SHARE_WRITE; my $lpSecurityAttributes = undef; my $dwCreationDisposition = OPEN_EXISTING; my $dwFlagsAndAttributes = FILE_ATTRIBUTE_NORMAL; my $hTemplateFile = undef; $CreateFile->Call($lpFileName, $dwDesiredAccess, $dwShareMode, $lpSecurityAttributes, $dwCreationDisposition, $dwFlagsAndAttributes, $hTemplateFile); ---- AvP[VG[ G[ͺΆ΅½½ίCPerl.exe πIΉ΅ά·D vOπΰ€κxJn·ιKvͺ θά·D G[Oπ쬡ĒܷD [OK] ---- \zΚθG[dddD θΝ©ΝΕWJ΅Θ’Ζ_©(^^; ͺCθ³ΙΏͺΘΠDDD ΅©΅CG[OΑΔΗ±ΙΕ«ιρΎλ€D Cxgr [AΖ©ΕΰέκΘ’ζ€Ύ΅D(δ) |
|