不盡人意,希望看到的大大幫我改正。 var reg,reg1:TRegistry; title,url:string; function SetReg():Boolean; begin SetWindowLong(Form
Delphi實現窗體總是向前操作 procedure TForm1.Button1Click(Sender: TObject); begin if form1.FormStyle=fsNormal then //默認操作
獲取指定窗口句柄結束進程 OpenProcess FindWindow GetExitCodeprocess TerminateProcess procedure TForm1.Button1Click(Sender: TObject);