自己对DELPHI学习的一点体会

				我的delphi中公共function(2) (2001年1月2日) 
				
				网友更新  分类:杂类   作者: saoren(推荐)  推荐:saoren   阅读次数:631  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				uses FileCtrl,stdCtrl;
				
				//得到Dir目录中，mask条件（*.exe;*.mdb)的文件，存放到List
				Procedure GetDirectoryFile(Owner:TForm;List:TStrings;Dir,Mask:string);
				var File1:TFileListBox;
				i:integer;
				begin
				file1:=TFileListBox.Create(Owner);
				file1.Parent :=Owner;
				file1.Mask:=Mask;
				file1.Visible :=false;
				file1.Directory :=dir;
				list.BeginUpdate;
				list.Clear;
				for i:=0 to file1.Items.Count-1 do
				list.Add(file1.Items[i]);
				list.EndUpdate;
				file1.free;
				end;
				
				//将系统加入到托盘，像金山词霸那样。
				procedure AddIcon(bAdd:boolean;selfHandle:THandle;msg:UINT;tip:string);
				var FIconData: TNotifyIconData;
				begin
				with FIconData do
				begin
				cbSize := SizeOf(FIconData);
				Wnd := selfHandle;
				uID := $DEDB;
				uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
				hIcon := application.Icon.Handle;
				uCallbackMessage := msg;
				StrCopy(szTip, PChar(tip));
				end;
				if bAdd then
				Shell_NotifyIcon(NIM_Add, @FIconData)
				else
				Shell_notifyIcon(NIM_Delete,@FiconData);
				end;
				//如果不想显示出窗体。
				{
				procedure TForm1.OnCreate(Sender as TObject);
				begin
				Application.ShowMainForm:=false;
				AddIcon(true,self,WM_myCallbackMSG,'my hint');
				ShowWindow(Handle,SW_HIDE);
				end;
				}  
				 
				
				
				--------------------------------------------------------------------------------