这样的DLL怎么写(50分)

  • 主题发起人 主题发起人 bluebird
  • 开始时间 开始时间
B

bluebird

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure WriteMemByByte(P:point;Index:longint;b:byte);

p 内存块首地址
index 内存块的第index个字节位置
byte 要写入的字节
 
procedure WriteMemByByte(P: point
Index: integer
b: byte)
stdcall;
begin
Inc(PChar(P), Index);
PChar(P)^ := Char(b);
end;

exports
WriteMemByByte index 1 name 'WriteMemByByte';

begin
end;
 
redforks:
已经试过了,但还是有点不灵.

bluebird.
 
这么写可以吗?
procedure WriteMemByByte(P: point
Index: integer
b: byte)
stdall;
begin
p := pchar(integer(p)+index);
fillmemory(p,1,b);
end;
 
哦,两种好象都可以,不过有什么不同呢?
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
后退
顶部