INI为
[info]
1234567=5SxHp0V1f77wPOD5BmW2Cw==
2432233=5SxHp0V1f77wPOD5BmW2Cw==
[qqpath]
path=D:\qq\QQ.exe
要求点击一个button自动登陆2个QQ,,求思路,我现在主要不知道怎么把QQ号读到字符串中去?
[info]
1234567=5SxHp0V1f77wPOD5BmW2Cw==
2432233=5SxHp0V1f77wPOD5BmW2Cw==
[qqpath]
path=D:\qq\QQ.exe
要求点击一个button自动登陆2个QQ,,求思路,我现在主要不知道怎么把QQ号读到字符串中去?
解决方案 »
- delphi 自带得 Panel可关闭可停靠demo 是哪个目录?
- [分享]圖像處理軟件---CNC PhotoEdit 1.0.1
- 如何打开另一程序后让那个程序继续执行自己退出?
- 又是一个动态数组的问题?
- 怎样和SQL Server数据库进行连接?
- 请教使用bde administrator的问题。
- 求短信猫接受短信的PDU解码程序,哪位大哥有的话,麻烦发我一下, 谢谢了!
- delphi 滚动条问题
- 如何改变窗体(Form)标题栏中的字体
- 特殊的showmodal问题。
- 同一个地址,为什么我使用HTTP的GET方法获得的内容与直接在浏览器输入后获的内容不一样呢?
- 关于interbase文件版本支持的问题
Function ReadConfig(IniSetFileName,SectionName,ValueName:String):String;
Var
IniHandle:TIniFile;
Begin
If FileExists(ExtractFilePath(Application.ExeName)+IniSetFileName) Then
Begin
IniHandle := TIniFile.Create(ExtractFilePath(Application.ExeName)+IniSetFileName);
Result:=IniHandle.ReadString(SectionName,ValueName,'');
IniHandle.free;
End
Else
MessageDLG('读配置文件'+ExtractFilePath(Application.ExeName) + IniSetFileName+'不存在',MtError,[Mbyes],0);
end;
uses IniFilesprocedure TForm1.Button1Click(Sender: TObject);
var
F: TIniFile;
s: TStringList;
begin
F := TIniFile.Create('c:\1.ini');
s := TStringList.Create;
try
F.ReadSectionValues('info',s);
ShowMessage(s.Text);
finally
F.Free;
s.Free;
end;
end;