2016年4月16日
使用SetLocaleInfo设置时间后必须调用广播WM_SETTINGCHANGE，通知其他程序格式已经更改
uses messages; Procedure SetDateFormat; //设置系统日期格式var buf:pchar; i:integer; p:DWORD;begin getmem(buf,100); i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值，将取不到 Read More
posted @ 2016-04-16 17:02 findumars Views(723) Comments(0) Diggs(0)
delphi删除只读文件
只读文件就是不能删除的文件，用DeleteFile函数对它来说是毫无意义的，要删除只读文件，只有先改变它的属性。如果你要删除一个文件，最好先作两个方面的考虑： （1）判断该文件的属性。可以用上面提到的FileGetAttr与FileSetAttr函数。如果属性为只读，将它改为存档，然后删除它。 （2 Read More
posted @ 2016-04-16 04:53 findumars Views(1036) Comments(0) Diggs(0)
延迟函数 比sleep效果好
sleep是会阻塞线程的 网上有些延迟函数测试下来还是会阻塞，而接下来推荐的代码则不会 1 2 3 4 5 6 7 8 9 procedure delay(dwMilliseconds:integer); var firsttickcount: longint; begin firsttickcou Read More
posted @ 2016-04-16 04:35 findumars Views(458) Comments(0) Diggs(0)
2016年4月15日
ddd
ddd Read More
posted @ 2016-04-15 20:16 findumars Views(369) Comments(0) Diggs(0)
Delphi 设置文件属性
复制代码uses FileCtrl; procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Read More
posted @ 2016-04-15 05:03 findumars Views(785) Comments(0) Diggs(0)