2012年8月24日
Delphi结束指定进程...
摘要： uses Tlhelp32; //在工程中引入单元Tlhelp32//使用函数前，请在工程的前面对函数进行声明，截图如下///Delphi结束指定进程函数function TForm1.EndProcess(ExeFileName:string):integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32:TProcessEntry32;begin Result := 0; FSnapshotHandle := Creat... 阅读全文
posted @ 2012-08-24 20:29 氺〤魚Oo。 阅读(206) 评论(0) 推荐(0) 编辑
Delphi移动无标题窗体...
摘要： 在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可//--------Delphi移动无标题窗体------------------------------------procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(Self.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);end;//////////////////... 阅读全文
posted @ 2012-08-24 18:55 氺〤魚Oo。 阅读(184) 评论(0) 推荐(0) 编辑