名前
題名
▼ りおりおさん > こんにちは。 > > なにも問題なさそうですけど。 > > --------------- Exe --------------------- > > function ShowTestForm(hOwner:HWND):HWND;stdcall; > external 'TestDll.dll' name 'ShowTestForm'; > > function ShowSubForm(hOwner:HWND):HWND;stdcall; > external 'TestDll.dll' name 'ShowSubForm'; > > procedure TForm1.Button1Click(Sender: TObject); > begin > ShowTestForm(Application.Handle); > end; > > procedure TForm1.Button2Click(Sender: TObject); > begin > ShowSubForm(Application.Handle); > end; > > ---------------- DLL -------------------- > > --------------- project > > library TestDll; > > uses > Forms, > Windows, > Controls, > DllMain in 'DllMain.pas' {DllForm}, > DllUnit2 in 'DllUnit2.pas' {DllSubForm}; > > function ShowTestForm(hOwner:HWND):HWND;stdcall; > begin > //Application.Handle := hOwner; > DllForm := TDllForm.Create(Application); > result := DllForm.Handle; > DllForm.Show; > //Application.Handle := 0; > end; > > function ShowSubForm(hOwner:HWND):HWND;stdcall; > begin > //Application.Handle := hOwner; > DllSubForm := TDllSubForm.Create(Application); > result := DllSubForm.Handle; > DllSubForm.Show; > //Application.Handle := 0; > end; > > exports > ShowTestForm, > ShowSubForm; > > begin > end.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link