procedure TForm1.MyQQ1Click(Sender: TObject);
var
qq : Tqq;
h1 : THandle;
begin
h1 := loadlibrary('pqq.dll');
if h1=0 then
raise Edllloaderror.Create('dll装入失败!');
try
@qq := getprocaddress(h1,'showqq');
if not (@qq=nil) then
qq(application.Handle,'MyQQ')
else
raise edllloaderror.Create('函数名无效');
finally
FreeLibrary(h1);
end;
end;