摘要：
function FileAge(const FileName: string): Integer;{$IFDEF MSWINDOWS}varHandle: THandle;FindData: TWin32FindData;LocalFileTime: TFileTime;beginHandle := FindFirstFile(PChar(FileName), FindData);if Hand... 阅读全文
阅读排行榜
[delphi函数]RenameFile 文件改名
2009-12-04 22:17 by HYrz的菜园子, 1183 阅读, 收藏,
摘要：
//文件改名 RenameFilevarOldName,NewName: string;beginOldName := 'c:\temp\Old.txt';NewName := 'c:\temp\New.txt'; if RenameFile(OldName,NewName) then ShowMessage('改名成功!');//也可以:SetCurrentDir('c:\temp');OldN... 阅读全文
[delphi函数]FileCreate 建立新文件
2009-12-04 22:18 by HYrz的菜园子, 880 阅读, 收藏,
摘要：
//建立新文件 FileCreatevarFileName: string;i: Integer;beginFileName := 'c:\temp\test.dat';i := FileCreate(FileName);if i>0 then ShowMessage('新文件的句柄是: ' + IntToStr(i))else ShowMessage('创建失败!');end;======... 阅读全文
SetTimer 功能：定时API
2009-11-17 20:39 by HYrz的菜园子, 764 阅读, 收藏,
摘要：
使用API来做定时器是很简单的，主要就是一个SetTimer函数和KillTimer函数，下面是一个简单的例子： var i :Integer = 0;procedure TimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD); stdcall;begin inc(i); Form1.Caption := IntToStr(i);end;proced... 阅读全文
Delphi禁用,启用网卡
2009-11-12 18:23 by HYrz的菜园子, 738 阅读, 收藏,
摘要：
(******************************************************************************* CopyRight (c) By 姚佩云 2004* All Right Reserved* Email : i_rock_1001@163.com http://www.jynx.com.cn/* Date :* New Develop... 阅读全文
浙公网安备 33010602011771号