DELPHI编程手记

怎样在关闭窗口之前加入确认对话框1.在Form的OnCloseQuery事件里加入以下代码：if Application.MessageBox('Close it now?','Ask',MB_YESNO)=IDYES then CanClose:=TrueelseCanClose:=False;怎样在运行时刻动态生成控件[可视的和不可视的]㈠、可视控件：[以下以TEdit控件为例]1.在Form的Public中定义TEdit控件Edit1:TEdit;2.在需要生成的地方加入以下代码：Edit1:=TEdit.Create(Self);Edit1.Parent:=Form1;?//Set parent to paint the Edit1Edit1.Left?:=20;?//Set postionEdit1.Top:=20;Edit1.Text:='Edit1Text';//Set values....?//Set other property3.使用完毕后，释放分配的资源if?Assigned(Edit1)thenEdit1.Free;?㈡、非可视控件：［以下以TTimer控件为例］1.在Form的Public中定义TTimert控件Timer1:TTimber;2.在需要生成的地方加入以下代码：Timer1:=TTimer.Create(Self);Timer1.OnTimer:=YourAction;//定义自己的OnTimer事件//procedure TForm1.YourAction(Sender:TObject);//是已经定义的响应过程3.使用完毕后，释放分配的资源if?Assigned(Timer1)thenTimer1.Free;?如何获得命令行参数？有关Delphi传入应用程式的命令列参数,请参考以下的说明??1.取得命令列参数的个数:ParamCount函数2.呼叫ParamStr(0),传回执行档的档名(含路径)3.呼叫ParamStr(n),传回第ｎ个参数的内容例子：procedure TForm1.FormCreate(Sender:TObject);varix:integer;beginMemo1.Lines.Clear;if ParamCount=0thenMemo1.Lines.Add('??统??.')elsebeginMemo1.Lines.Add('档名:'+ParamStr(0));for ix:=1to ParamCount doMemo1.Lines.Add(ParamStr(ix));end;end;查阅所有可视窗口标题下面只是举出一个例子提供参考:运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题1.File|New Project开始一个新的工程2.在Form1中安排Button与Memo各一3.在Button1的OnClick事件中撰写程式如下:procedure TForm1.Button1Click(Sender:TObject);varhCurrentWindow:HWnd;szText:array[0..254]of char;beginhCurrentWindow:=GetWindow(Handle,GW_HWNDFIRST);while hCurrentWindow<>0dobeginif GetWindowText(hCurrentWindow,@szText,255)>0then Memo1.Lines.Add(StrPas(@szText));hCurrentWindow:=GetWindow(hCurrentWindow,GW_HWNDNEXT);end;end;在程序中使用自定义的鼠标自订鼠标的部分,在OnLine Help中的说明?没有提到一些细节以下的例子请您参考看看:一.建立工程与一个资源档1.File|New Project2.File|Save Project,将unit1与project1存起来假定是c:\temp目录3.Tools|Image Editor,利用Image Editor新开一个资源档(Fild|New|Resource File<Ok>)4.在这个资源档中新建一个CURSOR_1的CURSOR,设定好它的Hot Spot(Image|Hot Spot)5.将资源档存起来,存档时注意要和上述的Project存在同一个目录,且不要与project的原资源档档名重覆，在本例我们先假定为MyCursor.res二.程序部分6.定义一个常数,这个常数您必须设成大於零的任何整数7.以LoadCursor()函数将自订的鼠标资源load进来以下为源代码//unit.pasunit Unit1;interfaceusesSysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs;constcrMyCursor=1;(*宣告一个常数*)typeTForm1=class(TForm)procedure FormCreate(Sender:TObject);private{Private declarations}public{Public declarations}end;varForm1:TForm1;{$R mycursor.res}//这行$R不可少,否则自订的鼠游标就出不来了implementation{$R*.DFM}procedure TForm1.FormCreate(Sender:TObject);begin//将鼠标资源load进来Screen.Cursors[crMyCursor]:=LoadCursor(hInstance,'CURSOR_1');//指定form1的cursor为自订鼠标Cursor:=crMyCursor;//指定Button1的cursor为自订鼠标Button1.Cursor:=crMyCursor;end;如何执行外部程序[并一直等到它结束]㈠编程语言Delphi1.0，操作系统Window3.1以下是一个执行外部程序ARJ.EXE的例子的部分代码相信看过就会用了。

varsCommandLine:string;bCreateProcess:boolean;lpStartupInfo:TStartupInfo;lpProcessInformation:TProcessInformation;beginsCommandLine:='ARJ.EXE/?';bCreateProcess:=CreateProcessA(nil,PChar(sCommandLine),nil,nil,True,NORMAL_PRIORITY_CLASS,nil,nil,lpStartupInfo,lpProcessInformation);if bCreateProcess thenWaitForSingleObject(lpProcessInformation.hProcess,INFINITE); end;㈡编程语言Delphi3.0，操作系统Window95同样是上面的例子的部分代码varpWindowsList:pointer;hActiveWindow:HWnd;hExeHandle:THandle;beginpWindowsList:=DisableTaskWindows(0);hActiveWindow:=GetActiveWindow;tryhExeHandle:=WinExec('arj.exe/?',SW_SHOWNORMAL);while GetModuleUsage(hExeHandle)<>0doApplication.ProcessMessages;finallyEnableTaskWindows(pWindowsList);SetActiveWindow(hActiveWindow);end;end;//相信你明白了。

题外话：如果执行的是MSDOS外部程序，如何能让它的窗口不显示出来呢?[接上例]：TStartupInfo这个结构中有一个sShowWindow栏位,将之设为SW_HIDE即可,同时,dwFlags标志中至少需含有STARTF_USESHOWWINDOW,否则CreateProcess时,sShowWindow栏位的设定会无效,以下是修改过的程式:varsCommandLine:string;bCreateProcess:boolean;lpStartupInfo:TStartupInfo;lpProcessInformation:TProcessInformation;begin//sCommandLine的内容请视您的情况修改sCommandLine:='Xcopy d:\temp\temp1\*.*d:\temp\temp2/v/y';lpStartupInfo.dwFlags:=STARTF_USESHOWWINDOW;lpStartupInfo.wShowWindow:=SW_HIDE;bCreateProcess:=CreateProcess(nil,PChar(sCommandLine),nil,nil,True,HIGH_PRIORITY_CLASS,nil,nil,lpStartupInfo,lpProcessInformation);if bCreateProcess thenWaitForSingleObject(lpProcessInformation.hProcess,INFINITE);end;//又有进步了如何得知执行的程序所在的目录?说明：Delphi 1.0请用ExtractFilePath(Application.Exename);(因为没有ExtractFileDir()函数)。

Delphi 2.0/3.0的SysUtils单元中有ExtractFileDir与ExtractFilePath两个类似的函数,用哪一个?没有太大的关系。

不过有以下的差别:ExtractFilePath传回值的最後一个字元是反斜杠“/”。

样例代码：procedure TForm1.Button1Click(Sender:TObject);beginShowMessage(ExtractFileDir(Application.Exename));//ie:c:\temp*)ShowMessage(ExtractFilePath(Application.Exename));//ie:c:\temp\*)end;相同点：如果执行文件在根目录下(如：C:\SAMPLE.EXE)的话,两者的传回值相同，且最后一个字符都是“/”。