ftwsnow

摘要： dpr 为工程文件dfm 为窗体文件pas 为单元文件cfg 配置文件dof 为项目选项文件(一般没用)dcu compiled units文件 ,编译后的单元文件res 资源文件ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的. 一般一个项目要 dpr,dfm,pas文件即可,如果有cfg,res也要(后两个文件很少用到)iPhone是Object C，object-c通常写作objective-c或者obj-c.单一继承：Objective-C不支持多重继承，（同Java和Smalltalk），而C++语言支持多 阅读全文

摘要： procedure TMainFrm.DBGrid2TitleClick(Column: TColumn);var flag:Boolean; tempstr:string;begin tempstr:=Column.Title.Caption; if Pos('▲',tempstr)>0 then flag:=False else flag:=True; if (Pos('▲',tempstr)>0) then tempstr:=Copy(tempstr,1,Pos('▲',tempstr)-1) else if Pos(' 阅读全文

摘要： //加上 Windows单元varhAppMutex: THandle;begin Application.Initialize; hAppMutex := CreateMutex(nil, false,'PaiWeiControl'); if (hAppMutex = 0) then begin MessageBox(0,'创建互斥对象失败!','Error',MB_OK + MB_ICONINFORMATION ); Exit; end; if ((hAppMutex <> 0) and (GetLastError() = ERR 阅读全文

摘要： （一）规则形状（圆形、三角形、方形、菱形）○ ⊙ ◎ ◐ ◑ ｡ ｡ 。° &ordm; o O . · ۰ • ● ◕ ◕ ☉⊕ Θ ✪ ✪ ◣◢ ◤◥ ⊿ ･ ‧ ▫ ▪ □ ▣ ▓ ▒ ░ ▧ ▨ ▤ ▥ ▦ ▩ ◘ ◙ ☒ ■ ▬ 〓 ▀ ▁ ▂ ▃ ▄ ▅ ▆ ▇ █ ▋▌▍▐ ◦ ◊ ♢ ♦ ❖ ◇ ◈ ◆ （二）图形符号♂ ♀ ♠ ♣ ♥ ♦ ♤ ♡ ◇ ♧ ❤ ❥ ☜ ☞ ☎ ☏ ♨ ☺ ☻ ﹡ ＊ ¤ ☼ ☀ ☽ ☾ ☆ ★ ☄ ☁ ☂ ✚ ✟ ✙ ✣ ✤ ✥ ✦ ✧ ✩ ✫ ✬ ✭ ✮ ✯ ✰ ✪ ☆ ★ ❂ ❁ ❀ ✿ ✱ ✲ ✳ ❃ 阅读全文

摘要： procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);var Form1: TForm1;implementation{$R *.dfm}// 任意改变一个控件 ( 拖动、放大、缩小 )procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);var SC_MANIPULATE: Word;begin if (X<=Precisio 阅读全文

摘要： uses TlHelp32Function KillProcess2(TheProcName:String):boolean; //杀死进程(根据进程名）KillProcess2('isqlw.exe');KillProcess2('mmc.exe');Function KillProcess2(TheProcName:String):boolean; //杀死进程(根据进程名）var isOK:Boolean; ProcessHandle:Thandle; ProcessStruct:TProcessEntry32;begin ProcessHandle:=c 阅读全文

摘要： 启动服务： net start 服务名停止服务： net stop 服务名卸载服务： 服务名 -uninstall安装服务：sc create serviceName卸载服务：sc delete serviceNameor check HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServices 在window系统的dos环境下利用sc命令删除系统服务报错：[SC] OpenService FAILED 1060 的话，本质原因是，系统服务的名称和显示的名称不一样。sc delete tlntsvr right1)alerter 错误警报... 阅读全文

摘要： 消息的执行过程hook-->application.OnMessage-->wndproc-->Dispatch( message 定义的procedure ) -->defaulthandler？待核实 阅读全文

摘要： 1 WM_NULL = $0000; 2 WM_CREATE = $0001; {应用程序创建一个窗口} 3 WM_DESTROY = $0002; {一个窗口被销毁 } 4 WM_MOVE = $0003; {移动一个窗口} 5 WM_SIZE = $0005; {改变一个窗口的大小 } 6 WM_ACTIVATE = $0006; {一个窗口被激活或失去激活状态；} 7 WM_SETFOCUS = $0007; {获得焦点后} 8 WM_KILLFOCUS = $0008; {失去焦点} 9 WM_ENABLE = $000A; ... 阅读全文

摘要： 通过 Application.OnMessage 响应消息:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); {这个自定义过程要复合 Application.OnMessage 的参数格式} procedure MyMessage(var Msg... 阅读全文