604
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE hDll;
hDll = LoadLibrary("C:\\Users\\yuwp\\Desktop\\titlebtn\\Debug\\Project2.dll");
if (!hDll)
{
int i = GetLastError();
return;
}
fShowForm = (void _stdcall (*)(void *, void *, void *))GetProcAddress(hDll, "ShowForm");
if (!fShowForm)
{
int i = GetLastError();
return;
}
Form2 = new TForm2(Application);
Form2->WindowState = wsNormal;
Form2->BorderStyle = Forms::bsNone;
Form2->Visible = True;
LockWindowUpdate(this->Handle);
fShowForm(Form2, Application, Screen);
LockWindowUpdate(NULL);
}
extern "C" __declspec(dllexport) void _stdcall ShowForm(void *pFather, void *pApp, void *pScr)
{
Application = (TApplication *)pApp;
Screen = (TScreen *)pScr;
Form3 = new TForm3(Application);
Form3->Parent = (TWinControl *)pFather;
Form3->Align = alClient;
Form3->Visible = true;
return;
}