么意思博客

首先在 uses中加入 “IniFiles” 单元： 后在全局变量中加入 config:Tinifile; ini文件的创建： config:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Config.ini');//创建INI 并指定了目录 config.WriteString('配置','颜色',''); // 括号中的 配置为小节名 颜色为关键字 后面的值为空 config.WriteString('配置',' ...

获取本机IP（不能获取内网中的外网IP）： uses 中加入 winsock： function GetLocalIP:string; type TaPInAddr = array [0..10] of PInAddr; //用于存储活动的ip地址列表 PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; //store hostname ...

uses 中加入 “Registry,ComObj,ActiveX,ShlObj”: procedure MakeLink(proName,lnkName,Description,position:String); var WorkDir,DestName:String; aReg:TRegistry; aObj:IUnknown; MyLink:IShellLink; MyPFile:IPersistFile; WFileName:WideString; begin //操作注册表: //键 ‘Software\Microsoft\Windows ...

以下几个是获取程序本身的函数： ExtractFilePath(ParamStr(0))；//后加了"\"了 如："c:\1\" ExtractFilePath(Application.ExeName);//后同样加了"\" 如："c:\1\" Application.ExeName;//获取到的是完整的目录+程序文件名 如："c:\1\1.exe" GetCurrentDir //获取 ...

uses 添加 winsock 以下代码已测试可用 function HostToIP(Name: ansistring; var Ip: string): Boolean; //域名转ip var wsdata : TWSAData; hostName : array [0..255] of AnsiChar; hostEnt : PHostEnt; addr :PAnsiChar; begin WSAStartup ($0101, wsdata); try gethostname (hostName ...

到现在还是不了解什么是正则，或许是不懂把。可是找了很多资料，也没有发现可以截取字符中间某段字符的例子。可能是我OUT了，又或者是我自己技术不到家！ 最后没办法，只得放弃正则。 function GetStr(StrSource,StrBegin,StrEnd:string):string; var in_star,in_end:integer; begin in_star:=AnsiPos(strbegin,str ...

以下代码为标准的DELPHI MSSQL语法： 查询数据： procedure TForm1.Button1Click(Sender: TObject); begin with adoquery1 do begin close; sql.Clear; sql.Add('select * from gl') ; open; showmessage('查询成功'); end; end; 插入数据： procedure TForm1.Button2Click(Sender: TObjec ...

先在要调用的单元中的”implementation”加入调用的单元； 如果单元1要打开单元2的窗体，就必须在”implementation”加入被调用的单元名。 如下： implementation uses unit2;{$R *.dfm} 如果两个单元互相调用，就同上（就必须在”implementation”加入被调用的单元名）！ 如下： implementation uses unit1;{$R *.dfm} ...

先在uses中加入调用的单元 “shellapi,” 标准的网页地址连接： procedure TForm1.Label7Click(Sender: TObject); begin ShellExecute(handle,nil,pchar('http://www.XXX.com'),nil,nil,sw_shownormal); end; 标准的EMAIL连接： procedure TForm1.Label8Click(Sender: TObject); begin ShellExecute(handle, ...