function NewGetComputerNameW(lpBuffer:String;nSize:integer):cardinal;stdcall;
type
TNewNewGetComputerNameW= function(lpBuffer:String;nSize:integer):cardinal; stdcall;
begin
Hook[1].UnHook;
result:=TNewNewGetComputerNameW(Hook[1].BaseAddr)(lpBuffer,nSize);
lpBuffer:='abc';
result:=0;
Hook[1].Hook;
end;
