2012年4月26日
CreateFile,WriteFile,CloseHandle,GetSystemDirectory
摘要： var Qchar:array[0..254] of Char; handle:HFILE; WriteNo:DWORD;begin getsystemDirectory(Qchar,255); handle:=CreateFile('SystemRoot.txt', GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if handle<>INVALID_HANDLE_VALUE then begin if WriteFile(handle,qchar,lstrl... 阅读全文
posted @ 2012-04-26 14:17 ftwsnow 阅读(266) 评论(0) 推荐(0)