1.在interface 的 uses 节增加 IniFiles 2.在var 变量定义部分增加一行: inifile:Tinifile; 然后,就可以对变量 inifile进行创建、打开、读取、写入等操作了。 3.打开 ini 文件: inifile:=Tinifile.Create('tmp.ini'); //Create的参数是 ini 文件的路径的字符串 4.读取关键字的值: a:=inifile.Readstring(...
ExtractRes('exefile','myexe','c:\new.exe'); 就把ha1.exe以new.exe为名字保存到C盘根目录下了. function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean; var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.Save...
function WinErasefile(Owner: Integer; WichFiles: string; SendToRecycleBin, Confirm: Boolean): Boolean; //用于将文件直接删除或移动到回收站 var Struct : TSHFileOpStructA; begin FillChar(Struct, SizeOf(Struct), ); While pos(';', WichFiles)> do WichFiles[pos(';', WichFiles)] := #; Wich...
ExtractRes('exefile','myexe','c:/new.exe'); 就把ha1.exe以new.exe为名字保存到C盘根目录下了. function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean; var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.Save...
function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean; var Res: TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.SavetoFile(ResNewName); Result := true; finally ...
IniFiles; {We will get it from the win.ini file} {$ENDIF} {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} function GetProgramAssociation (Ext : string) : string; var {$IFDEF WIN32} reg: TRegistry; s : string; {$ELSE}
Delphi中的INI文件编程http://bbs.why99010.com/thread.jsp?boardid=13&threadid=727 http://www.cncfan.com/cncfan_com_article.asp?art_id=1980&cat_id=74 应用程序级信息http://www.itfat.com/tech/delphitech/delphitech20060305/64359.htmlDelphi经验技巧集锦 ...
Target.Seek(0,soFromEnd); Target.CopyFrom(tmpstream,0); //取得文件路径 ,生成 [INI加密压缩信息文件] filename:=ExtractFilePath(paramstr(0))+'tmp.in_'; inifile:=TInifile.Create(filename); inifile.WriteString('file1','filename',ExtractFileName(vFile)); ...
范例MyFilesExtension := ExtractFileExt(MyFileName);---ExtractFileName 分析字串中的档案名称(只传回档案名称)---Unit SysUtils函数原型 function ExtractFileName(const FileName: string): string;范例procedure TForm1.Button1Click(Sender: TObject); var S: String; P1...
ActivecxGrid.ActiveView.RestoreFromIniFile(FAppIniFile.IniFileName,true, false, [gsoUseFilter..gsoUseSummary], ActivecxGrid.ActiveView.Name + '@' + Self.Name + YourTalbeName); 调入我以前设置的配置文件,系统会出现错误。 请旺仔大侠再看看如何做,我另外开贴给分。