123

//需要引用 TLHelp32单元//根据 进程名结束进程 //调用 EndProcess('QQ2013')procedure EndProcess(AFileName: string);const PROCESS_TERMINATE = $0001;var ExeFileName: String; ContinueLoop: BOOL; FSnapshotHandle

procedure TForm1.Button2Click(Sender: TObject);Var Reg: TRegistry;begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.DeleteKey('.386'); Reg.CloseKey; Reg.Free;E

GetLastError()返回值列表:〖0〗-操作成功完成。〖1〗-功能错误。〖2〗-系统找不到指定的文件。〖3〗-系统找不到指定的路径。〖4〗-系统无法打开文件。〖5〗-拒绝访问。〖6〗-句柄无效。〖7〗-存储控制块被损坏。〖8〗-存储空间不足，无法处理此命令。〖9〗-存储控制块地址无效。〖10〗-环境错误。〖11〗-试图加载格式错误的程序。

Accsee数据库创建及建表Function Create_AC_Table(): Integer;var Cat: Olevariant; Tadoq: TADOQuery;begin If Not FileExists(Fle) then Begin Cat := CreateOleobject('ADOX.Catalog'); Cat.Create('

//调用方法 Delay(1000);procedure TForm1.Delay(msecs: integer);var Tick: DWord; Event: THandle;begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs);

//需要引用 JPEG单元 直接从内存显示图片 Var Jpg: TJPEGImage; Begin IdHTTP1.Get(Gz.Groups[1], Stream); Jpg := TJPEGImage.Create; Stream.Position := 0; Jpg.LoadFromStream(Stream); Image3.Pic

//删除当前行for i:=ListView1.Items.Count-1 downto 0 Doif ListView1.Items[i].Caption = Edit1.Text thenbeginListView1.Items.Item[i].Delete();end;//添加数据Var wIp: String; wPort: Word; wItem: TListI

//静默导入注册表 ShellExecute(0, 'Open', 'regedit.exe', '/s Wizard.reg', 'c:\', SW_HIDE);

Form1.FormStyle := fsStayOnTop; // 窗体在最定层

SendMessage(Myhwnd, WM_KEYDOWN, VK_TAB, 1); // 发送Tab键SendMessage(Myhwnd, WM_KEYUP, VK_TAB, 1);SendMessage(Myhwnd, WM_KEYDOWN, VK_RETURN, 1); // 发送Enter键SendMessage(Myhwnd, WM_KEYUP, VK_RETURN, 0)

//目录保存路径procedure TForm2.Button1Click(Sender: TObject);vars:string;begin if SelectDirectory('选择文件夹','',s) then Edit1.Text := s+'\';end;//判断'目录'或'文件'是否存在procedure TForm1.Button1Click(Sender: ...

接收消息========================unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: ...

TDBGridEhOptions选项dgMultiSelect 选择多行dgRowSelect 选择整行dghRowHighlight 显示选择区域OptionsEh选项dghRowHighlight 选中整行高亮//移动指针MemTableEh1.Locate('fname', Tab3_DBGridEh2.Fields[...

function StopServies(sServiceName: String): boolean; // 停止某个服务；var schService: SC_HANDLE; schSCManager: SC_HANDLE; ssStatus: TServiceStatus;begin schSCManager := OpenSCManager(nil, nil, SC_M

EnableWindow //启用或禁用鼠标和键盘输入到指定的窗口或控制。 当输入被禁止时，窗口不接收输入，如鼠标点击和按键。 当输入被启用，窗口接收所有的输入

// 为指定的父窗口枚举子窗口、按钮function EnumChildWndProc(AhWnd: LongInt; AlParam: lParam): boolean; stdcall;var WndClassName: array [0 .. 254] of Char; WndCaption: array [0 .. 254] of Char;begin GetClassN...

1．TOpenDialog组件的典型用法  打开”对话框是用TOpenDialog组件实现的，TOpenDialog组件是非可视组件。  Filter属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮，打开“Filter.Editor”对话框，在“Filter.Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，在设计期

//全选功能procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin If (Shift = [ssCtrl]) And (Key = 65) then Memo1.SelectAll;end;//鼠标点击指定行,显示指定行数据procedure T...

//需要引用单元 shellapifunction DelDirectory(const Source: string): boolean;{ 删除目录 }var fo: TSHFileOpStruct;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELE

//直接转换对应键盘码function InputChar(str: string): Boolean;var i: integer; c: byte;begin for i := 1 to Length(str) do begin c := VkKeyScan(str[i]) and 255; // 输入文字 keybd_event(c, 0, 0, 0);

//OnConnect事件 连接成功后触发//获取IP及端口信息 procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);begin AContext.Connection.Socket.Binding.PeerIP; AContext.Connection.Socket.Binding.PeerPort;end;/

//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);

//居中显示SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)or ES_CENTER);//限制只能输入数字procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);begin if Not(Key i

//多选行取值procedure TForm1.Button1Click(Sender: TObject);Var i: Integer;begin for i := 0 to DBGrid1.SelectedRows.Count - 1 do Begin DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRo

//需要引用单元 'Zip'Var Zf: TZipFile;Begin Zf.ZipDirectoryContents('F:\Test.Zip', 'F:\Test斗战神\'); 将 F:\Test斗战神\ 文件夹内所以文件及子目录压缩到Test.Zipend;

获取Html源码uses mshtml;var iall : IHTMLElement;begin if Assigned(WebBrowser1.Document) then begin iall := (WebBrowser1.Document AS IHTMLDocument2).body; while iall.parentElement <

Gz := TPerlRegEx.Create;      Gz.Subject := Form2.Memo1.Text;      Gz.Options := [preSingleLine];      Gz.RegEx := 'id=name_(.*?)\s.*?title=(.*?)\s.*?(.*?)';      while Gz.MatchAgain doS

procedure TForm1.Button1Click(Sender: TObject);Var Fil: TextFile; Str: String;begin Memo2.Clear; AssignFile(Fil, ExtractFilePath(Application.ExeName) + 'GroupNumber.txt'); Reset(Fil); wh