;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
璇籌NI鏂囦欢 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> Delphi >> 绋嬪簭搴旂敤 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

璇籌NI鏂囦欢

鍙戝竷: 2008-6-26 20:32 |  浣滆: admin |   鏌ョ湅: 14娆

width="84%">璇籌NI鏂囦欢

function GetINIfile(lpAppNameL,lpKeyName,lpDefault:string;

lpsize:integer;lpFileName:string):string;

{璇诲彇ini鏂囦欢鍑芥暟}

var f:textfile;

sn:string;

begin

assignfile(f,lpFileName);

reset(f);

repeat

readln(f,sn);

if sn='['+lpAppNameL+']' then

begin

readln(f,sn);

while(copy(sn,1,1)<>'[')or(not(eof(f)))do

begin

if copy(sn,1,pos('=',sn)-1)=lpKeyName then

begin

GetINIfile:=copy(sn,pos('=',sn)+1,lpsize);

exit;

end;

readln(f,sn);

end;

end

else GetINIfile:=lpDefault;

until eof(f);

closefile(f);

end;

{------------}

Timeout:=GetINIfile('MailSetup','Timeout','0',5,prgpath+'\CNMSet.ini');

鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆