怎么对一个ini文件就行读写操作
如何对一个ini文件就行读写操作
假设在c盘根目录下有一文件，c:\a.ini，已经存在，我想写一个程序，能够在后台记录键盘的操作，然后写到这个ini文件中，我现在设置一个time控件，时间设置为1毫秒，然后每隔1毫秒将键盘的操作记录追加写到ini文件中，该如何写代码？是否还有更好的办法？谢谢。键盘识别的代码已经写好，就是ini追写这个写不出，还请各位请教，谢谢。
------解决方案--------------------
用钩子吧
------解决方案--------------------
用timer精度定位不到1MS
------解决方案--------------------
你这种情况直接写文本文件就可以了。没有必要用INI
------解决方案--------------------
是的，写文本就好了， 另外不要太快写文本，可以把记录先放到程序， 2-3秒再写追加到文件，不然很多电脑会卡的， 而且文本行数也控制不要超过比如1000行，超过备份一个，然后清空重写，文件大了也会卡。
------解决方案--------------------
/////////////////////////////// 1 输出txt.log 一般调试用/////////////////////////
procedure Out_txt_log(txt_path_name,txt_content:string);
//两个参数，第一个例：'f:/123.txt' 第二个是文本内容。
var
f : textfile;
n : integer;
begin
if not log_Switch then exit; //根据开关是否输出异常
try
//if fileexists(txt_path_name) then 判断文件是否存在
n:= filecreate(txt_path_name);
fileclose(n);
assignfile(f,txt_path_name);
append(f);
writeln(f,txt_content);
closefile(f);
except
end;
end;
/////////////////////////////// 1 输出txt.log 一般调试用/////////////////////////
/////////////////////////////// 2 输出txt.log 一般调试用/////////////////////////
procedure AppendFile(aFileName,aContent:String);
var
StrList:TStringList;
begin
if not log_Switch then exit; //根据开关是否输出异常
try
StrList:=TStringList.Create;
//有则追加
if FileExists(aFileName) then StrList.LoadFromFile(aFileName);
if strlist.Count >15 then StrList.text:=''; //大于50行清空，避免文件过大卡屏
StrList.Add('//开始log-------------------------------------------------');
StrList.Add(aContent);
StrList.Add(formatDateTime('YYYY-MM-DD-HH:MM:SS',now)); //加入时间
StrList.Add('//-------------------------------------------------结束log'+#13); //加两个空行
StrList.SaveToFile(aFileName);
StrList.Free;
except
end;
end;
/////////////////////////////// 2 输出txt.log 一般调试用/////////////////////////
------解决方案--------------------
你不用钩子而用定时器？定时器想精确记录键盘操作是不可能的。
------解决方案--------------------
------解决方案--------------------
钩子就是触发器一样，按了某一个键就会响应，用Timer可能会有漏掉的情况，键盘钩子网上找一下一些书上也有，至于要记录在哪里这个看你喜欢了，只要能记录到就行了。
------解决方案--------------------
至少不要用定时器频繁的写，这样的思路是不对的
------解决方案--------------------
思路是错误的，使用钩子吧，不然用Timer是记录不了键盘的按键的！
假设在c盘根目录下有一文件，c:\a.ini，已经存在，我想写一个程序，能够在后台记录键盘的操作，然后写到这个ini文件中，我现在设置一个time控件，时间设置为1毫秒，然后每隔1毫秒将键盘的操作记录追加写到ini文件中，该如何写代码？是否还有更好的办法？谢谢。键盘识别的代码已经写好，就是ini追写这个写不出，还请各位请教，谢谢。
------解决方案--------------------
用钩子吧
------解决方案--------------------
用timer精度定位不到1MS
------解决方案--------------------
你这种情况直接写文本文件就可以了。没有必要用INI
------解决方案--------------------
是的，写文本就好了， 另外不要太快写文本，可以把记录先放到程序， 2-3秒再写追加到文件，不然很多电脑会卡的， 而且文本行数也控制不要超过比如1000行，超过备份一个，然后清空重写，文件大了也会卡。
------解决方案--------------------
/////////////////////////////// 1 输出txt.log 一般调试用/////////////////////////
procedure Out_txt_log(txt_path_name,txt_content:string);
//两个参数，第一个例：'f:/123.txt' 第二个是文本内容。
var
f : textfile;
n : integer;
begin
if not log_Switch then exit; //根据开关是否输出异常
try
//if fileexists(txt_path_name) then 判断文件是否存在
n:= filecreate(txt_path_name);
fileclose(n);
assignfile(f,txt_path_name);
append(f);
writeln(f,txt_content);
closefile(f);
except
end;
end;
/////////////////////////////// 1 输出txt.log 一般调试用/////////////////////////
/////////////////////////////// 2 输出txt.log 一般调试用/////////////////////////
procedure AppendFile(aFileName,aContent:String);
var
StrList:TStringList;
begin
if not log_Switch then exit; //根据开关是否输出异常
try
StrList:=TStringList.Create;
//有则追加
if FileExists(aFileName) then StrList.LoadFromFile(aFileName);
if strlist.Count >15 then StrList.text:=''; //大于50行清空，避免文件过大卡屏
StrList.Add('//开始log-------------------------------------------------');
StrList.Add(aContent);
StrList.Add(formatDateTime('YYYY-MM-DD-HH:MM:SS',now)); //加入时间
StrList.Add('//-------------------------------------------------结束log'+#13); //加两个空行
StrList.SaveToFile(aFileName);
StrList.Free;
except
end;
end;
/////////////////////////////// 2 输出txt.log 一般调试用/////////////////////////
------解决方案--------------------
你不用钩子而用定时器？定时器想精确记录键盘操作是不可能的。
------解决方案--------------------
------解决方案--------------------
钩子就是触发器一样，按了某一个键就会响应，用Timer可能会有漏掉的情况，键盘钩子网上找一下一些书上也有，至于要记录在哪里这个看你喜欢了，只要能记录到就行了。
------解决方案--------------------
至少不要用定时器频繁的写，这样的思路是不对的
------解决方案--------------------
思路是错误的，使用钩子吧，不然用Timer是记录不了键盘的按键的！