加载https的站点页面内容的时候记得在窗体上加上IdSSLIOHandlerSocketOpenSSL1

以及idhttp里面IOHandler为IdSSLIOHandlerSocketOpenSSL1

不然老报错IOHandler value is not valid.错..

复制某个目录下面的所有文件到另外一个目录……

» 阅读全文

function DeletePath(mDirName:   string):   Boolean;   {   返回删除指定目录是否成功   } 
var 
    vSearchRec:   TSearchRec; 
    vPathName:   string; 
    K:   Integer; 
begin 
    Result   :=   True; 
    vPathName   :=   mDirName   +   '\*.*'; 
    K   :=   FindFirst(vPathName,   faAnyFile,   vSearchRec); 
    while   K   =   0   do   begin 
        if   (vSearchRec.Attr   and   faDirectory   >   0)   and 
            (Pos(vSearchRec.Name,   '..')   =   0)   then   begin 
            FileSetAttr(mDirName   +   '\'   +   vSearchRec.Name,   faDirectory); 
            Result   :=   DeletePath(mDirName   +   '\'   +   vSearchRec.Name); 
        end   else   if   Pos(vSearchRec.Name,   '..')   =   0   then   begin 
            FileSetAttr(mDirName   +   '\'   +   vSearchRec.Name,   0); 
            Result   :=   DeleteFile(PChar(mDirName   +   '\'   +   vSearchRec.Name)); 
        end; 
        if   not   Result   then   Break; 
        K   :=   FindNext(vSearchRec); 
    end; 
    FindClose(vSearchRec); 
    Result   :=   RemoveDir(mDirName); 
end; 

转自 杨帆BLOG http://www.wesoho.com/article.asp?id=2626 

好文章先给转下来 等有时间再来消化

» 阅读全文

Var  
  SetFrm :TSetes;  
begin 
  SetFrm :=TSetes.Create(nil);  
  SetFrm.ShowModal;  
  if SetFrm.ModalResult =2 then 
  ShowMessage('配置重载成功！');  
end;  

窗体弹出后需要接触到确认与取消按钮 modalresult :=mrOK能返回1 modalresult :=mrCancel能返回2

ShowWindow(Application.Handle ,SW_SHOWMINIMIZED),

用API的不好使

最好不要直接用API，Delphi的窗体（主窗体）是比较特殊的。
1.如果是整个程序要最小化，请使用：Application.Minimize; 恢复使用：Application.Restore;
2.如果是某个窗体要最小化，请使用类似：Form1.WindowState := wsMinimized;最大化使用Form1.WindowState := wsMaximized;恢复正常使用Form1.WindowState := wsNormal;

逛了一下 恰好看到这个对cookie的操作 代码  转载了..

GetWindowRect(handle,Rect)

获得了句柄之后再去获取窗体的坐标然后Rect就是你要的坐标了

很好哩下载的是1.9G的CodeGear™ Delphi® 2009  Version 12.0.3170.16989然后用这个拿去覆盖即可.

今日安装了DELPHI 2006，感觉启动速度和编译速度都强于2005，IDE界面也感觉更亲切，马上把2005卸载了，顺利安装了asphyre，但安装delphiX报错，后发现只需作如下修改即可：

1、在文件DelphiXcfg.inc中添加如下代码

2、在DirectX.pas中将124行

3、DirectX.pas中185-189行

另外我是用电骡下载delphi2006的。