Przerobienie funkcji z c++ na delphi

0

Cześć znalazlem na necie pewna funkcje a mianowicie

BOOL WINAPI ShowNotice(LPCSTR text)
{
DWORD ad=0x00450910;
_asm
{
PUSH text
PUSH 0x004B4484

PUSH 0x0F
CALL ad
ADD ESP, 0x0C
}
return 0;
}

próbowałem ja przerobić na delphi napisałem coś takiego

var
  ad: cardinal ;
  text: LPCSTR;
begin
 ad:=$00450910;
 text:='text' ;

     asm
          PUSH text
          PUSH $004B4484
          PUSH $0F
          CALL ad
          ADD ESP, $0C
    end;
end;

niestety nie działa wie ktoś może gdzie jest błąd ??

0
BOOL WINAPI ShowNotice(LPCSTR text)
{
DWORD ad=0x00450910;
_asm
{
PUSH text
PUSH 0x004B4484

PUSH 0x0F
CALL ad
ADD ESP, 0x0C
}
return 0;
}

tłumaczenie :

function ShowNotice(text : PChar):Boolean; stdcall;
const ad:Cardinal=$00450910;
begin
asm
PUSH text
PUSH 4932740
PUSH 15
CALL ad
ADD ESP, 13
end;
result:=False;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1