急,我用主窗体调用dll(dll中有窗体),在任务栏上那dll的窗体也显示出来了?怎么把他去掉? ( 积分: 50 )

yuting2003 · 2007-11-24

急,我用主窗体调用dll(dll中有窗体),在任务栏上那dll的窗体也显示出来了?怎么把他去掉? 我想让程序运行时候在任务栏上显示主窗体.dll中的窗体不显示, 试了很多的,包括     setwindowpos都不行,怎么回事啊?/ 谁知道?

liyinwei · 2007-11-24

设置 DLL 里面 Application.Handle 为主窗体的 Application.Handle 就可以了. 以下是 DLL 里面借口函数的代码,参考以下就会明白. procedure ShowDllForm(App: THandle);stdcall; var   sHandle: THandle; begin   sHandle := Application.Handle;   Application.Handle := App;   try     frmDLL := TfrmDLL.Create (Application);     try       frmDLL.ShowModal;     finally       frmDLL.Free;     end;   except     on E: Exception do       MessageDlg ('Error in DLLForm: ' +         E.Message, mtError, [mbOK], 0);   end;   Application.Handle := sHandle; end;

yuting2003 · 2007-11-25

楼上的能否说明白点,我的代码是这样的,帮看看有什么问题,在任务栏就无法去掉图标 代码如下: DLL中, procedure OpenMyForm(handle:HWND);stdcall; begin   if(formID=0) then   begin     Application.Handle:=handle;   Application.CreateForm(Tfzrtj, fzrtj);   formID:=1;   end;   fzrtj.Left:=left;    fzrtj.Top:=top;    fzrtj.Width:=white;    fzrtj.Height:=hite;    //office_mianshi.adoquery1.ConnectionString:=db;   fzrtj.ShowModal(); end; 主程序调用dll代码: procedure TForm1.ToolButton2Click(Sender: TObject); type   TOpenMyForm=procedure(handle:THandle);stdcall;   tweizhi=function(n1,n2,n3,n4:Integer):Integer;stdcall;    var   OpenMyForm:TOpenMyForm;   lpFarProc:FARPROC;   weizhi:tweizhi;   top,Left, Width,Height:integer;     sHandle: THandle; begin  if(hComm<>NULL) then  begin   lpFarProc := GetProcAddress(hComm,'weizhi');   if(lpFarProc=nil) then        application.MessageBox('系统严重错误，请修复或重新安装','提示')     else       @weizhi := lpFarProc;        Top:=panel5.Height+panel4.top+panel2.top+50;//(动态改变dll中的窗体大小)        Left:=((panel6.Width-903)div 2)+TreeView1.Width;        Width:=903;        Height:=587;        weizhi(Top,Left,Width,Height);         lpFarProc := GetProcAddress(hComm,'OpenMyForm');     if(lpFarProc=nil) then        application.MessageBox('系统严重错误，请修复或重新安装','提示')     else     begin       @OpenMyForm := lpFarProc; //指针类型转换       OpenMyForm(Application.Handle);     end;  end; end; 可这样调用的时候 dll中窗体的程序运行总在任务栏中显示出来,怎么也去不掉? 楼上的能说的详细点吗?谢谢了

djrj · 2007-11-25

//DLL代码: library DLL; uses   SysUtils,   Classes, Forms,   DLLForm in 'DLLForm.pas' {FrmDLLChild}; {$R *.res} var   DllApp: TApplication; { 用于初始化：保存DLL本身的Application，然后设置DLL的Application指向Host的Application } procedure InitDLL(App: TApplication); stdcall; begin   DllApp:= Application;   Application:= App; end; { 善后工作：恢复DLL原来的Application } procedure FreeDLL; stdcall; begin   Application:= DllApp; end; { 返回一个窗体对象，这是DLL的主要功能 } function GetDllChildForm(Parent: TComponent): TFrmDLLChild; stdcall; begin   Result:= TFrmDLLChild.Create(Parent); end; exports    InitDLL, FreeDLL, GetDllChildForm; begin end. 在使用DLL的时候，需要注意：首先必须调用InitDLL，并且传递主程序的Application作为参数 //主程序代码: unit MDIMain; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DLLForm, StdCtrls, Menus; type   TFrmMDIMain = class(TForm)     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; function GetDllChildForm(Parent: TComponent): TFrmDllChild; stdcall; external 'dll.dll'; procedure InitDLL(App: TApplication); stdcall; external 'dll.dll'; procedure FreeDLL; stdcall; external 'dll.dll'; var   FrmMDIMain: TFrmMDIMain; implementation {$R *.dfm} procedure TFrmMDIMain.FormCreate(Sender: TObject); begin   InitDLL(Application); //这里传入参数Application end; procedure TFrmMDIMain.FormDestroy(Sender: TObject); begin   FreeDLL; end; procedure TFrmMDIMain.Button1Click(Sender: TObject); var   DForm: TFrmDllChild; begin   DForm:= GetDllChildForm(Self);   DForm.Show; end;

yuting2003 · 2007-11-25

djry看下我的代码,我在OpenMyForm中不是已经传入Application.Handle了吗,可在程序运行后在任务栏中出现2个,一个是主程序,一个是dll中的窗体,请问怎么回事啊? 谢谢了

liyinwei · 2007-11-25

我检查了你的代码,屏蔽了 weizhi 运行,没有发现任何问题. weizhi 的代码贴出来吧.

yuting2003 · 2007-11-25

这是dll中的全部代码: 我在运行时候在任务栏中显示2个,一个是主程序的,一个是dll里窗体的, 我不是让你们找代码错误,我是说怎么解决,让dll里窗体在任务栏中不显示 一个程序在任务栏中显示2个不太好吧, library guanlidll; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   windows,   dialogs,   forms,   SysUtils,   Classes,   fzru in 'fzru.pas' {fzrtj}; {$R *.res} var formid,left,top,white,hite:integer; function weizhi(n1,n2,n3,n4:Integer):Integer;stdcall; begin left:=n2; top:=n1; white:=n3; hite:=n4; end; procedure OpenMyForm(handle:HWND);stdcall; begin   if(formID=0) then   begin     Application.Handle:=handle;   Application.CreateForm(Tfzrtj, fzrtj);   formID:=1;   end;   fzrtj.Left:=left;    fzrtj.Top:=top;    fzrtj.Width:=white;    fzrtj.Height:=hite;    //office_mianshi.adoquery1.ConnectionString:=db;   fzrtj.ShowModal(); end; procedure CloseMyForm();stdcall; begin   if(formID=1) then   begin     fzrtj.Close();     formID:=0;   end; end; exports weizhi, OpenMyForm, CloseMyForm; end.

liyinwei · 2007-11-26

我拷贝了楼主的代码,只增加了以下代码：   hComm: THandle;   hComm := SafeLoadLibrary(guanlidll.dll');   FreeLibrary(hComm); 任务栏上只有主窗体的，没有 DLL 窗体的。 建议楼主检查一下其它地方的代码。 可以的话可以发个 DEMO 我看看 liyinwei@gmail.com

yuting2003 · 2007-11-26

终于发现是delphi 2007本身的问题,我以前写的dll拿来用都没事的,我用delphi 2007编译了下再用,就在任务栏上出现了,郁闷哦,不知道你们谁有在用delphi 2007的

e- · 2007-11-26

dll窗体BorderStyle设为bsToolWindow

yuting2003 · 2007-11-26

谁能确认下,delphi2007下的dll(里面有窗体的)在调用的时候在任务中也显示出来? 也就是说主窗体一个,dll中的窗体也一个?

yuting2003 · 2007-12-10

谢谢大家

急,我用主窗体调用dll(dll中有窗体),在任务栏上那dll的窗体也显示出来了?怎么把他去掉? ( 积分: 50 )

yuting2003

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

djrj

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

e-

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

yuting2003

Unregistered / Unconfirmed

Similar threads