|
#1
|
|||
|
|||
WriteFile
Код:
procedure TForm1.Button1Click(Sender: TObject); var str:string; written:cardinal; begin str:='Test - Тест'; WriteFile(H_File,str,Length(str),written,nil); FileClose(H_File); end; procedure TForm1.FormCreate(Sender: TObject); begin H_File:=CreateFileW('D:\test.txt',GENERIC_WRITE,FILE_SHARE_READ, nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); if (GetLastError()=INVALID_HANDLE_VALUE) then ShowMessage('Не удалось создать файл'); end; |