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 Do if ListView1.Items[i].Caption = Edit1.Text then begin ListView1.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: ...

TDBGridEh Options选项 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...

//需要引用单元 shellapi function 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.Zip end;

获取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 do S

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