| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/29 9:52:44 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我用copyfile(pchar(''e:\win.ini''),pchar(''c:\WINNT\win.ini''),true);都不能成功，快绝望了，有谁知道怎么办啊;;;;e:\win.ini是我已经自己改好的文件，哎，连覆盖都不行!!! 我就想在这个文件中的mci extensions下加入dat=MPEGVideo ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:14:00 | ||||
| 1楼： | 直接在c:\WINNT\win.ini文件中加不行么？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:15:54 | ||||
| 2楼： | 可户要求不能通过手动加，只能在程序中实现,直接加我试过了，不行，好象不是那么简单的 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:30:06 | ||||
| 3楼： | 可以呀！ procedure TForm1.BitBtn1Click(Sender: TObject); var my_ini : tinifile; begin my_ini :=tinifile.Create('C:\WINDOWS\win.ini'); my_ini.WriteString('MCI Extensions.BAK','test','test0'); my_ini.Destroy ; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:38:17 | ||||
| 4楼： | 这个是可以啊 你换成 procedure TForm1.BitBtn1Click(Sender: TObject); var my_ini : tinifile; begin my_ini :=tinifile.Create('C:\WINNT\win.ini'); my_ini.WriteString('mci extensions','dat','MPEGVideo'); my_ini.Destroy ; end; 试试看 对了，你是98吧，我这里可是2000啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:49:34 | ||||
| 5楼： | 是有点怪，在'mci extensions'这个小节里不能加，你分析一下是不是这个小节不让加，这里面的内容从'MCI Extensions.BAK'小节得来？ 我用的是windows 2003 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 10:55:25 | ||||
| 6楼： | 呵呵 有关函数的帮助我也看了 但看不懂，要是有中文的帮助就好了 我实在是没有办法了 后来我想通过直接用自己改好的文件覆盖掉，可是还是不行 哎 真没想到会有这种事~~ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 11:15:53 | ||||
| 7楼： | 控制INI文件 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考： {方法一：用 Windows API 函数} ① 从.INI文件中获取字符串 var strResult:array[0..30] of Char; begin GetPrivateProfileString(' desktop ', 'wallpaper', 'c:\windows\newwall.bmp' , strResult, 100, 'c:\windows\win.ini' ); edit1.text:=strResult; //显示取得字符串 end; ② 从.INI文件中获取整数 var nResult: integer; begin nResult := GetPrivateProfileString(' desktop ', ' tilewallpaper', 0 , 'c:\windows\win.ini' ); edit1.text:=intostr(nResult); //显示取得整数 end; ③ 向.INI文件写入字符串 WritePrivateProfileString('desktop', 'wallpaper', strWrite ,'c:\windows\win.ini'); { 方法二：使用TiniFile进行读写 } ① 从.INI文件中读字符串 var MyIni: TIniFile; begin MyIni := TIniFile.Create('c:\windows\win.ini'); edit1.text:=MyIni.ReadString('Desktop', 'Wallpaper', ''); end; ② 向.INI文件中写入字符串 var MyIni: TIniFile; begin MyIni := TIniFile.Create('c:\windows\win.ini'); MyIni.WriteString('desktop', 'wallpaper', 'c:\a.bmp'); end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 11:22:35 | ||||
| 8楼： | 都试过了，不行 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
