关于DLL的问题.(100分)

hying95 · 2006-09-24

在DLL中我想动态地创建一个Timer控件,然后给它加一个事件,比如让它每5分钟给一按纽发一鼠标按键消息.请大家看怎样实现?

duhai_lee · 2006-09-24

这还不简单啊。  有很多做法。 1，你只在工程文件中引用相关单元，在载入阶段创建它，并赋给它事件处理函数。 结束时释放就可以了。 2，也可以在dll中加入窗体，或者其他单元控制。

zhaokaien · 2006-09-24

同意

SupermanTm · 2006-09-24

直接用 SetTimer 得了，还搞什么定时器控件啊。

hying95 · 2006-09-24

这是我的DLL文件. library Timerdll; uses  SysUtils,  ExtCtrls,  Classes,  Windows,  Messages; {$R *.res} var  t: ttimer;   procedure FileCopyFile(const sfromFile, sToFile: string); begin  if AnsiCompareFileName(sfromFile, sToFile) <> 0 then    CopyFile(PChar(sfromFile), PChar(sToFile), False); end; begin  t:=Ttimer.Create();//这里的参数怎么填,是不是还得创建一个控件来释放它? end. 楼上的朋友说setTimer怎么弄?

hying95 · 2006-09-25

library Timerdll; uses  SysUtils,  ExtCtrls,  Classes,  Windows,  UBackup in '../设置定时备份/UBackup.pas' {FrmBackup}; {$R *.res} var  TID: Cardinal;   procedure FileCopyFile(const sfromFile, sToFile: string); begin  if AnsiCompareFileName(sfromFile, sToFile) <> 0 then    CopyFile(PChar(sfromFile), PChar(sToFile), False); end; Procedure SnTimer; begin  FileCopyFile('e:/gms/user/common/pattern/0.000','f:/gms/user/common/pattern/0.000');  KillTimer(0,TID);//如果不在这里释放,在其它地方如何释放? End; Exports ShowBackup; begin  TID:=SetTimer(0,0,0,@SnTimer); end.

hying95 · 2006-09-25

我这个DLL准备给一个没有源码,不能更新的程序加一个自动保存功能,我已把它加入到程序中,并在原程序里添加了事件处理代码,当执行我的DLL中的窗口时窗口中的定时器能把程序中取得焦点的文件备份到另一地方,窗体是模态的,但关掉窗口后,定时器也关了,我这个DLL是静态调用,我想在加载DLL时,就打开定时器,让它备份文件. 请大家帮帮我?

hying95 · 2006-09-26

没人回答,自己顶下!

风林 · 2006-09-26

去查查以下四个关键字，你就会明白了。    DLL_PROCESS_ATTACH:    DLL_PROCESS_DETACH:    DLL_THREAD_ATTACH:    DLL_THREAD_DETACH:

qiu5211 · 2006-09-26

你动态创建一个timer ，然后在定义一个实践的处理过程，然后把timer的事件关联到你定义的处理过程，就可以了，如果实在不行的话，你可以在dll总定义form，然后在form中加timer 和相关的处理过程

SP229 · 2006-09-28

我才通过编译的DLL library _NewSize; uses  SysUtils,  Windows,  Dialogs,  inifiles,  Classes,  UBackup in '../设置定时备份/UBackup.pas' {FrmBackup}; {$R *.res} var  ini,Pini: tinifile;  TimerBackup, TimerSave, TimerOn: Cardinal; //定时器变量  H: hWnd; //PDS窗口句柄  TBackup,TSave: Integer;  //BHnd: Hwnd;  S,P,BackupPath,filename,sDir,aCaption: string; //文件路径  SaveExit: Pointer;  StartSave: Bool=False;  StartBackup: Bool=False;  SaveBool: Bool=False;  BackupBool: Bool=false; procedure LibExit; begin  // 库退出时的处理  KillTimer(0,TimerBackup);  KillTimer(0,TimerOn);  ExitProc := SaveExit;  // 恢复退出链 end; Function MCopyFile(var sourcefile:string; targetfile:string):boolean; var  s,t:Tfilestream; begin  MCopyFile:=True;  s:=Tfilestream.Create(sourcefile,fmopenread);  try    Try      t:=Tfilestream.Create(Targetfile,fmopenwrite or fmcreate);      try        t.CopyFrom(s,s.size);      finally        t.free;      end;    finally      s.free;    end;  except    MCopyFile:=False;  end; end; //提取字符串中指定子字符串后的字符串 function After(Str,S:string): string ; var f: Word; begin  f:=pos(s,str);  if F=0 then  After:=''  else  After:=COPY(Str,F+1,length(str)-length(s)); end; procedure Call_PicShow();stdcall; Var  dllName,FuncName:string;  LibHandle:HWND;  DName:Function():bool;stdcall; begin  dllName:='_NewRule.dll';  FuncName:='PicShow';  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ dllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in'+ dllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    DName();  finally    FreeLibrary(LibHandle);  end; end; procedure Call_NewSize();stdcall; Var  dllName,FuncName: string;  LibHandle:HWND;  DName:Function:bool;stdcall; begin  dllName:='_NewRule.dll';  FuncName:='NewSize';  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ DllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in '+ DllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    DName;  finally    FreeLibrary(LibHandle);  end; end; procedure Call_PicSearch();stdcall; Var  dllName,FuncName: string;  LibHandle:HWND;  DName:Function:bool;stdcall; begin  dllName:='_NewRule.dll';  FuncName:='PicSearch';  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ DllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in '+ DllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    DName;  finally    FreeLibrary(LibHandle);  end; end; procedure Call_TajimaDGML();stdcall; var  s: string; begin  s:=ini.ReadString('Programs','TajimaDGML','E:/DGMLWin/bin/DG.exe');  WinExec(Pchar(s),5); end; procedure Call_BiaoZhunSize();StdCall; Var  dllName,FuncName: string;  LibHandle:HWND;  DName:Function:bool;stdcall; begin  dllName:='_JJGSize32.dll';  FuncName:='BiaoZhunCC';  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ DllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in '+ DllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    DName;  finally    FreeLibrary(LibHandle);  end; end; procedure CallDll_BZCC();stdcall; Var  dllName,FuncName: string;  LibHandle,fwnd:HWND;  DName:Function(AHandle:THandle):bool;stdcall; begin  dllName:='_JJGSize32.dll';  FuncName:='ShowFrom';  fwnd:=findwindow('TMDIForm',nil);  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ dllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in'+ dllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    if fwnd<>0 then    DName(fwnd);  finally    FreeLibrary(LibHandle);  end; end; procedure CallDll_E();Stdcall; Var  dllName,FuncName: string;  LibHandle:HWND;  DName:Function:bool;stdcall; begin  dllName:='_NewRule.dll';  FuncName:='ShowNarrate';  LibHandle:=LoadLibrary(pchar(dllName));  if LibHandle<32 then  begin    MessageBox(0,pchar('Not Found'+ DllName),'Error',0);    Exit;  end;  @DName:=GetProcAddress(LibHandle,pchar(FuncName));  if @DName=NIL then  begin    MessageBox(0,pchar('Not Found '+FuncName+' in '+ DllName),'Error',0);    FreeLibrary(LibHandle);    Exit;  end;  try    DName;  finally    FreeLibrary(LibHandle);  end; end; procedure CallDll_F();stdcall; begin  ShowBackup; end; procedure Call_Capture();stdcall; var  s:string; begin  s:=ini.ReadString('Programs','Capture','');  s:=after(s,',');  WinExec(pchar(s),5); end; procedure Call_Order();stdcall; var  s:string; begin  s:=ini.ReadString('Programs','Order','');  s:=after(s,',');  WinExec(pchar(s),5); end; procedure Call_Layout();stdcall; var  s:string; begin  s:=ini.ReadString('Programs','LayoutMarker','');  s:=after(s,',');  WinExec(pchar(s),5); end; procedure Call_Plotter();stdcall; var  s:string; begin  s:=ini.ReadString('Programs','OutputManager','');  s:=after(s,',');  WinExec(pchar(s),5); end; procedure pTest; Begin  StartBackup:=Pini.ReadBool('Program','chkBackup',False);  StartSave:=Pini.ReadBool('Program','chkSave',False);  if StartBackup=true then  begin    h:=findwindow('TMDIForm',nil);    if h<>0 then    begin      aCaption:=EIGetWinText(GetFocusedChildWindow(h));      filename:=after(aCaption,'>');      sDir:=before(aCaption,'-');    end;    if pos('>',aCaption)<>0 then    begin      P:=BackupPath+'/'+sDir+'/Pattern';      if not DirectoryExists(P) then      begin        if ForceDirectories(P) then  //创建多级目录        forceDirectories(P);      end;      BackupBool:=true;      if StartSave=true then      SaveBool:=true;    end;  end; End; Procedure TBackupOn; Begin  if BackupBool=true then  begin    s:=SJDir(ExpandFileName('_NewSize.dll'),2)+'/User/'+sDir+'/Pattern/'+filename;    //执行代码；    FileCopyFile(S,BackupPath+'/'+sDir+'/Pattern/'+filename);  end; End; exports CallDll_BZCC, Call_PicShow, Call_NewSize, Call_PicSearch, Call_BiaoZhunSize, CallDll_E, CallDll_F, Call_Capture, Call_Order, Call_Layout, Call_TajimaDGML, Call_Plotter; begin  //...  // 库加载处理  ini:=tinifile.Create(ExtractFilePath(Paramstr(0))+'Eastmark.ini');  Pini:=tinifile.Create(ExtractFilePath(Paramstr(0))+'Pds.ini');  TBackup:=Pini.ReadInteger('Program','BackupTimes',50000);//备份定时器时间  BackupPath:=Pini.ReadString('Program','BackupPath','F:/Gms/User');  TSave:=Pini.ReadInteger('Program','SaveTimes',50000); //保存定时器时间  TimerBackup:=SetTimer(0,0,TBackup*10000,@TBackupOn);  TimerOn:=SetTimer(0,0,500,@pTest);  ExitProc := @LibExit;  //装入退出过程  SaveExit := ExitProc;  //保存退出链 end.

hying95 · 2006-09-28

多人接受答案了。

关于DLL的问题.(100分)

hying95

Unregistered / Unconfirmed

duhai_lee

Unregistered / Unconfirmed

zhaokaien

Unregistered / Unconfirmed

SupermanTm

Unregistered / Unconfirmed

hying95

Unregistered / Unconfirmed

hying95

Unregistered / Unconfirmed

hying95

Unregistered / Unconfirmed

hying95

Unregistered / Unconfirmed

风林

Unregistered / Unconfirmed

qiu5211

Unregistered / Unconfirmed

SP229

Unregistered / Unconfirmed

hying95

Unregistered / Unconfirmed

Similar threads