syslistview32 的一些高级应用技巧，收藏起来，以备后用。

» 阅读该日志全文...

替换“详细地址”中含有 “桂王桥西街66号”的字符为“桂王桥西街七家巷2号”

update aipu_main set 详细地址=REPLACE(详细地址,'桂王桥西街66号','桂王桥西街七家巷2号') where 详细地址 like '%桂王桥西街66号%'

最近比较烦，很快又要到年底了，今年又有什么收获呢？ 突然觉得今年过的好快，一晃就过了多半了，事情太多，烦心的事也很多。

希望烦恼快快过去，每一天都开心，工作顺利，生意兴隆。

要想Maxthon浏览器使用Gecko核心，首先你必须给Maxthon浏览器安装一个名为Mozilla ActiveX Control的插件，这样它才能真正调用Gecko核心。在安装时最好选择默认路径，然后重启Maxthon浏览器，点击“文件” － “新建” － “使用Gecko核心”选项后，重启Maxthon浏览器就可以更换为Gecko核心了，而且只需一次设置即可，只要以后不取消“使用Gecko核心”前面的对勾，Maxthon浏览器就会一直使用该核心。

　　Gecko虽然在速度和安全方面有所提升，但是在使用Gecko核心上还存在很多问题。

　　Gecko核心是Mozilla, Firefox以及早先的网景浏览器所使用的内核。由于目前大多数网页在制作的时候都是以针对IE浏览器设定的规范来开发的，所以在使用Gecko核心浏览这些网页时就会因不兼容造成显示错误或某些功能失效的情况。

　　可能是在开发者开发Gecko核心的时候还没有出现鼠标滚轮横行天下的局面，Gecko核心还不支持鼠标滚轮，并且还不能使用超级拖放等功能。

一首很好听的音乐，听听吧。

» 阅读该日志全文...

You can accomplish this without using a TOpenDialog component. First, add FileCtrl to the Uses. Now the SelectDirectory function can be used. Drop a TButton component on your Form. Place the following code in the button's onClick event to get a demonstration of how this function works:

~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject) ;
const
     SELDIRHELP = 1000;
var
   dir: String;
begin
   dir := 'C:';
   if SelectDirectory(
        dir,
        [sdAllowCreate,
        sdPerformCreate,
        sdPrompt],
        SELDIRHELP
      ) then
     Button1.Caption := dir;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

From Zarko Gajic,
Your Guide to Delphi Programming.
FREE Newsletter. Sign Up Now!
Here's how to add a button to Interner Explorer toolbar:
1. ButtonText = Text at the bottom of the button
2. MenuText = The tools menu item with a reference to your program.
3. MenuStatusbar = *Ignore*
4. CLSID = Your unique classID. You can use GUIDTOSTRING to create a new CLSID (for each button).
5. Default Visible := Display it.
6. Exec := Your program path to execute.
7. Hoticon := (Mouse Over Event) ImageIndex in shell32.dll
8. Icon := ImageIndex in shell32.dll

After you run the code below, start a new instance of IE. You might need to go to View | Toolbars | Customize and move your button from "Available toolbar buttons" to "Current toolbar buttons"

~~~~~~~~~~~~~~~~~~~~~~~~~
procedure CreateExplorerButton;
const
// the same explanation as for the CLSID
TagID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
ProgramPath: string;
RegKeyPath: string;
begin
ProgramPath := 'c:\folder\exename.exe';
Reg := TRegistry.Create;
try
with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
RegKeyPath := 'Software\Microsoft\Internet Explorer\Extensions';
OpenKey(RegKeyPath + TagID, True) ;
WriteString('ButtonText', 'Your program Button text') ;
WriteString('MenuText', 'Your program Menu text') ;
WriteString('MenuStatusBar', 'Run Script') ;
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}') ;
WriteString('Default Visible', 'Yes') ;
WriteString('Exec', ProgramPath) ;
WriteString('HotIcon', ',4') ;
WriteString('Icon', ',4') ;
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

.webbrowser如何查看网页源码
比如：webbrowser显示的网页是‘www.hao123.net’的站点，我要如何写
才能得到该站点的HTML源代码。
如IE点右键就可以查看源代码。
2.还有用什么控件可以发送POST请求

» 阅读该日志全文...

5年前的今天：
20:55 一架飞机撞上世贸中心
21:08 第二架飞机撞上世贸中心
21:47 五角大楼疑遭飞机撞击
22:03 世贸中心一栋大楼倒塌
22:29 世贸中心另一大楼倒塌
22:54 宾夕法尼亚一飞机坠毁
23:25 布什就恐怖事件发表讲话

» 阅读该日志全文...

今天又是一年一度的教师节，祝天下所有辛勤耕耘的老师们：节日快乐！！

» 阅读该日志全文...