var
mas : byte absolute $9C:$F26E;
begin
writeln(mas);
readln;
end.
var
mas: farpointer;
begin
mas:= ptr($9c, $f26e);
WriteLn(byte(mas^));
end.
var
mas: farpointer;
begin
mas:= ptr(0, $6e);
WriteLn(byte(mas^));
end.
const
msg: String = '1234567890';
var
mas: String;
begin
move(msg, mas, length(msg)+1);
WriteLn(mas);
end.
push si
push di
push ds
cld
mov cx,[byte_count]
lds si,[source_addr]
les di,[destination_addr]
rep movsb
pop ds
pop di
pop si
BOOL WriteProcessMemory(
HANDLE hProcess, // handle to process
LPVOID lpBaseAddress, // base of memory area
LPCVOID lpBuffer, // data buffer
SIZE_T nSize, // count of bytes to write
SIZE_T * lpNumberOfBytesWritten // count of bytes written
);
BOOL ReadProcessMemory(
HANDLE hProcess, // handle to the process
LPCVOID lpBaseAddress, // base of memory area
LPVOID lpBuffer, // data buffer
SIZE_T nSize, // number of bytes to read
SIZE_T * lpNumberOfBytesRead // number of bytes read
);
BOOL ReadProcessMemory(
HANDLE hProcess, // handle to the process
LPCVOID lpBaseAddress, // base of memory area
LPVOID lpBuffer, // data buffer
SIZE_T nSize, // number of bytes to read
SIZE_T * lpNumberOfBytesRead // number of bytes read
);
BOOL WriteProcessMemory(
HANDLE hProcess, // handle to process
LPVOID lpBaseAddress, // base of memory area
LPCVOID lpBuffer, // data buffer
SIZE_T nSize, // count of bytes to write
SIZE_T * lpNumberOfBytesWritten // count of bytes written
);
program test;
{$X+} { расширенный синтаксис }
const
s : string = '1234567890';
al: array[0..5] of longint = ( 1234, 5678, 90123, 45678, 901234, 567890 );
var
pc : ^char;
pl : ^longint;
i : integer;
begin
pc := @s[1];
for i := 0 to 5 do begin
write( pc^, ' ' );
inc( pc ); { к следующему символу строки }
end;
writeln;
pl := @al[0];
for i := 0 to 5 do begin
write( pl^, ' ' );
inc( pl ); { к следующему элементу массива }
end;
writeln;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.