Foros Club Delphi - Ver Mensaje Individual

[enecumene] · #4 29-04-2008

Bueno prueba de esta manera a ver, ojo, lo estoy haciendo al vuelo no tengo delphi en mano:

Código Delphi [-]procedure TForm1.Button2Click(Sender: TObject);
var
hMod : THandle;
begin
        hMod := LoadLibrary('fpctl.dll');
        if (hMod = 0) then Exit;
        @Hola := GetProcAddress(hMod, 'Hola');
        if @Hola  nil then Hola;
        FreeLibrary(hMod);
end;

Saludos.