摘要： Win7 配置Apache+PHP+Mysql环境 在学新技术时，配置环境真是个郁闷的事情，很难熬，不过还好网上有很多弟兄的无私奉献对我很有帮助。 第一、安装并配置APACHE（安装到D:\phpapache\Apache2.2） 1、安装时默认安装，Network Domain, Server Name 我填写我的计算机名，Administrator's Email Address区域填你的邮件地址 2、安装完后在安装目录下有个conf文件夹，打开httpd.conf文件进行配置 ·找到 DocumentRoot ，将其设置为你所要存放php, htm等网页文件的文件夹，如 阅读全文

摘要： Apache2.2.4 php5.2.1 mysql 配置方法一.php的安装与调试 由于php是一个zip文件(非install版)，安装较为简单，解压就行。把解压的 php5.1.1-Win32重命名为 php5。并复制到C盘目录下。即安装路径为 c:\php5 1 找到php目录下的 php.ini-dist或 php.ini.recommended文件，重命名为 php.ini并复制到系统盘的windows目录下(以c:\windows为例). 2 再把php目录下的php5ts.dll,libmysql.dll复制到目录 c:\windows\system32下。3 把php5\e. 阅读全文

摘要： Apache音译为阿帕奇，是世界使用排名第一的Web服务器软件。 百度百科 http://baike.baidu.com/view/28283.htm 官方网站： http://www.apache.org/ 什么东西还是自己学着比较舒服，别人教来的永远也不是自己的。继续坎坷，继续求知中，自己对得起自己就好。 ——————记。 下载apache版本：httpd-2.2.17-win32-x86-no_ssl.msi 1、 双击httpd-2.2.17-win32-x86-no_ssl.msi。出现 Windows 标准的软件安装欢迎界面，直接点“Next”继续，出现授权协议，选择“I ac.. 阅读全文

摘要： ((WebBrowser1.Document as IHTMLDocument3).getElementsByName('input_authnum').item(0,'') as IHTMLControlElement).focus; if WebBrowser1.Document <> nil then IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus 刚找到了更简单的方法，也许是最简单的： if WebBrowser1.Document <> 阅读全文

摘要： Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->1unitUnit1;23interface45uses6Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,7Dialogs,ComCtrls,StdCtrls;89type10TForm1=class(TForm)11ListView1:TListView;12procedureFormCreate(Sende 阅读全文

摘要： {取应用程式的版本号程式，如有版本号，返回值为版本号的值，否则返回值为空 返回值的格式为如1.0.0.0 } function GetFileVersion(FileName: string): string; type PVerInfo = ^TVS_FIXEDFILEINFO; TVS_FIXEDFILEINFO = record dwSignature: longint; dwStrucVersion: longint; dwFileVersionMS: longint; dwFileVersionLS: longint; dwFileFlagsMask: longin... 阅读全文

摘要： 查找某目录下的所有文件（1）查找指定扩展名的文件procedure TForm1.Button1Click(Sender: TObject);var sr: TSearchRec;begin ListBox1.Items.Clear ; if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then begin repeat if pos('.xls',lowercase(sr.Name))>0 then ListBox1.Items.Add(sr.Name) ; until FindNext(sr) <> 阅读全文

摘要： 许多时候我们希望程序只有一个实例在运行，而不是多个实例同时运行。 其实完成这一功能有很多种方法，我把自己知道的几种方法简单介绍一下。一 使用全局原子program Project1; uses windows, Forms, Dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} const myatom='我的全局原子方法'; begin if GlobalFindAtom(myatom)=0 then begin GlobalAddAtom(myatom); Application.Initialize; Appl 阅读全文

摘要： 主程序装载脚本procedure TForm1.FormCreate(Sender: TObject);begin fsScript1.Clear; fsScript1.Parent := fsGlobalUnit; fsScript1.AddComponent(Form1); fsScript1.Lines.LoadFromFile('1.txt'); fsScript1.Run;end; 1.txt文件uses 'lang.txt'; //引用公用的语言单元 procedure button1click(sender: tobject);begin show 阅读全文

摘要： procedure GotoRowCol(Row, Col : Integer; RichEdit : TRichEdit);var TextLen, i : Integer;begin if Row > RichEdit.Lines.Count then Exit; TextLen := 0; for i := 0 to Row - 1 do TextLen := TextLen + Length(RichEdit.Lines[i]) + 1; if (Col <= Length(RichEdit.Lines[Row - 1])) and (Col > 0) then Te 阅读全文