| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2615 人关注过本帖
标题:请问*.ini文件有什么作用呀?
只看楼主 加入收藏
萧凡
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-5-11
收藏
 问题点数:0 回复次数:12 
请问*.ini文件有什么作用呀?
请问*.ini文件有什么作用呀?
能实现什么功能?
搜索更多相关主题的帖子: ini 文件 
2005-05-13 14:47
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
............

天津网站建设 http://www./
2005-05-13 14:54
cool8413m
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-4-2
收藏
得分:0 
保存你软件的设置什么的阿。。。很有用哦。。
呵呵。。体积小又方便。。。

2005-05-29 15:08
movine
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-7-21
收藏
得分:0 
具体怎么使用,能否给个说明或者例子,如何保存数据和调用。。。不胜感激。。!!急用。
2005-09-03 12:14
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
如:
在"d:\"下新建"autorun.ini"文件
输入如下命令:
[autorun]
icon='图标文件**.ico
并保存,重新开机

[此贴子已经被作者于2005-9-3 14:13:12编辑过]



辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2005-09-03 14:08
yam
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2005-8-29
收藏
得分:0 
那这样以后会怎样呢?
2005-09-03 21:29
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
试一试不就知道拉!

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2005-09-03 22:33
movine
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-7-21
收藏
得分:0 
如何让VB读写此文件呢?能不能具体说明代码?

上面语句的意思我了解,但是不知道VB如何写读此文件,能否说明一下。谢谢!
2005-09-04 20:55
rottenwood
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-9-13
收藏
得分:0 
用FSO,一般的VB资料上都有吧,就是普通的文本文件操作就可以实现。

此情可待成追忆,只是当时已惘然。
2005-09-14 00:16
jxing
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2004-12-3
收藏
得分:0 

这是我保存的一个例子,不过我也是菜鸟,我也看不大懂, Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long

Private r As Long Private entry As String Private iniPath As String

Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String Dim RetStr As String RetStr = String(255, Chr(0)) GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName)) End Function

Private Sub Command1_Click() Text1.Text = GetFromINI("注册信息", "序列号", iniPath) End Sub

Private Sub Command8_Click() End End Sub

Private Sub Command2_Click() Text2.Text = GetFromINI("用户信息", "姓名", iniPath) End Sub

Private Sub Command4_Click() entry$ = Text1.Text r = WritePrivateProfileString("注册信息", "序列号", entry, iniPath) If r <> 1 Then MsgBox "写序列号出错!" End Sub

Private Sub Command5_Click() entry = Text2.Text r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath) If r <> 1 Then MsgBox "写姓名出错!" End Sub

Private Sub Command7_Click() Text1.Text = GetFromINI("注册信息", "序列号", iniPath) Text2.Text = GetFromINI("用户信息", "姓名", iniPath) End Sub

Private Sub Command3_Click() Command4_Click Command5_Click End Sub

Private Sub Command6_Click() Text1.Text = "" Text2.Text = "" End Sub

Private Sub Form_Load() '************************************************************ '* '* 名称 : RWINI32 '* 日期 : 26/3/2000 '* 作者 : 天一工作室 '* 主页 : http://tyvb.126.com '* Email: sst95@21cn.com '* 主要功能: 读写INI文件 '* '************************************************************ iniPath$ = App.Path + "\rwini32.ini" Command7_Click End Sub

Private Sub lblMyMail_Click() ShellExecute hwnd, "open", "", vbNullString, vbNullString, 0 End Sub

Private Sub lblMyWeb_Click() ShellExecute 0, "open", "", vbNullString, vbNullString, 3 End Sub

[此贴子已经被作者于2005-9-16 13:59:54编辑过]

2005-09-16 13:59
快速回复:请问*.ini文件有什么作用呀?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046449 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved