[grafmoto]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);

type

  TestRec = record

    id: Integer;

    text: String[32];

  end;

var

  h: THandle;

  dummy: Cardinal;

  buf: TestRec;

begin

  buf.id:=1;

  buf.text:='hello';

  h:=CreateFile('c:\Downloads\test.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);

  WriteFile(h, buf, SizeOf(TestRec), dummy, nil); 

  CloseHandle(h);

end;