Код: Выделить всё
function WriteFile(
hFile: THandle;
{ >> } const Buffer,
nNumberOfBytesToWrite: cardinal;
var lpNumberOfBytesWritten: cardinal;
lpOverlapped: variant): boolean; // POverlapped
external 'WriteFile@kernel32 stdcall';
Buffer
был dword
, стал cardinal
именно в него требуется передать указатель:
Код: Выделить всё
procedure Test(S: String);
Writed: Cardinal;
begin
WriteFile(F, PChar(S)^, Length(S), Writed, null);
end;
Каким способом это можно сделать в программе?