|
le declare el ShowDllFormModal como string compilo bien pero cuando selecciono el dll en el combobox y clickeo no pasa nada, no tira ningun cartel de error pero tampoco se ejecuta el dllform
procedure TForm7.Button1Click(Sender: TObject);
type
tproc= procedure;
var
handle:thandle;
dllname:string;
ShowDllFormModal:string;
proc:tproc;
begin
dllname:= combobox1.Text;
handle:= loadlibrary(pchar(dllname));
proc:= getprocaddress(handle, pchar(ShowDllFormModal));
end;
|