21-06-2011, 08:33 PM
index of procedure=2345
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
dll_Handle: THandle;
?Calculation@Fproj@@mngty@k: procedure(w, n, u: Char);
Begin
dll_Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) +
'nameofdll.Dll'));
If dll_Handle <> 0 Then
@?Calculation@Fproj@@mngty@k := GetProcAddress(dll_Handle,
'?Calculation@Fproj@@mngty@k');
If @?Calculation@Fproj@@mngty@k <> Nil Then
?Calculation@Fproj@@mngty@k('A', 'B', 'H'); // Else .... .
FreeLibrary(dll_Handle);
// Else ....;
End;