Here is the code show how to call dll(Existing 'RYDLL32.DLL' in the SDK directly in Delphi 


function Rockey(func: WORD; handle: PWORD; lp1,lp2: PDWORD; p1,p2,p3,p4: PWORD; var buffer): WORD; stdcall; external 'RYDLL32.DLL'

 

procedure TForm1.Button1Click(Sender: TObject);
var
 //Rockey: TRockey;
 ryHandle: THandle;
 rt: word;
 handle: word;
 lp1,lp2: dword;
 p1,p2,p3,p4: word;
 buffer: array [0..1024] of byte;
begin
 try
 {
  ryHandle:=LoadLibrary('RYDLL32.DLL');                                        // <-- no problem
  if ryHandle<>0 then begin
   @Rockey:=GetProcAddress(ryHandle,'Rockey');                    // <-- no problem
  }
   p1:=$c44c; p2:=$c8f8; p3:=0; p4:=0;                                // <-- test passwords (actual program used actual passwords)
   handle:=0; lp1:=0; lp2:=0;
   FillChar(buffer,length(buffer),0);
   rt:=Rockey(1,@handle,@lp1,@lp2,@p1,@p2,@p3,@p4,buffer);    
   if(rt=0) then
    MessageBox(form1.Handle,'ok','ok',MB_OK);



Support@rockey.com.my