Delphi中WebBrowser控件的bug及解决方案
Delphi语言，无论是从开发速度、还是运行速度、还是编译速度、还是编译之后的执行文件体积，都是数一数二的。因此被作为共享软件、开发产品、制作“绿色软件”的首选。但是，由于诸多原因，Delphi中，有一些控件，存在一些bug。不论广大技术人员如何反应，Delphi官方就是“视而不见”。有问题，人家虽然不给解决，但是，总不能不用这种语言吧，毕竟优点还是大于缺点的。还是“自己动手，丰衣足食”吧。
最近笔者在开发泛东协同管理系统客户端的时候，使用了Delphi中的WebBrowser控件，相信这个控件，是使用最广泛的控件之一，几乎所有与Internet相关的产品，都离不开这个控件。但是这Delphi中的WebBrowser控件，在使用过程中，发现三个Bug。
1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；
2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；
3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。
以上三个问题，是必须解决的。通过查找资料及自己的试验，终于找到了解决办法，将解决方案总结如下：
问题1解决方案：
先声明消息处理函数：
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
在form create时
Application.OnMessage := ApplicationMessage;
函数内容如下：
procedure tfrmhtmlbrowser.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
wb: tembeddedwb;
begin
WB := GetVisibleWebBrowser; //取当前webbrowser控件
if (Msg.message = WM_CLOSE) and (Msg.hwnd = Wb.Handle) then
begin
Self.Close ();//关闭webbrowser后，把相应的窗口关闭
end
相关文档：
此文是根据伴水老大的实例做的小修改！
以下是个人见解，如有错误请指正:)
要想跨进程访问DBGRID，貌似只能用HOOK，写一个DLL想办法注入到目标进程。注入成功后，使DLL与目标进程在同一进程空间中(其内有一些细节问题，请参见代码)，这时可以访问目标进程的VCL组件。并把VCL组件的数据通� ......
#13回车换行
将form2内容加入到form1列表框：在form2里：form1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')将chinese.txt文件内容载入列表框中。但前提是要整个窗体创建时候加载导入，双击整个窗体procedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......
Delphi中Format字符串说明
function Format(const Format: string; const Args: array of const):
string;
Format字符串说明：
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
格式化字符串必须以%开头
(2) [index ":"]
索引指的是Args参数列表中要显示的每一项的序号。比如：Args是
......
Delphi 创建目录及写日志文件
var
TF: TextFile;
LogFile: string;
txt :string;
sysDir:string;
//创建按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(sysdir+'log\') then
createdir(sysdir+'log ......
