摘要：
代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--//读取与设置文件属性FileGetAttr;FileSetAttrvarFileName:string;Attr:Integer;//属性值是一个整数beginFileName:='c:\temp\... 阅读全文
随笔分类 - Delphi实例
[delphi函数]FileCreate 建立新文件
2009-12-04 22:18 by HYrz的菜园子, 889 阅读, 收藏,
摘要：
//建立新文件 FileCreatevarFileName: string;i: Integer;beginFileName := 'c:\temp\test.dat';i := FileCreate(FileName);if i>0 then ShowMessage('新文件的句柄是: ' + IntToStr(i))else ShowMessage('创建失败!');end;======... 阅读全文
[delphi函数]RenameFile 文件改名
2009-12-04 22:17 by HYrz的菜园子, 1191 阅读, 收藏,
摘要：
//文件改名 RenameFilevarOldName,NewName: string;beginOldName := 'c:\temp\Old.txt';NewName := 'c:\temp\New.txt'; if RenameFile(OldName,NewName) then ShowMessage('改名成功!');//也可以:SetCurrentDir('c:\temp');OldN... 阅读全文
[delphi函数]FileAge 获取文件的创建时间
2009-12-04 22:16 by HYrz的菜园子, 1225 阅读, 收藏,
摘要：
function FileAge(const FileName: string): Integer;{$IFDEF MSWINDOWS}varHandle: THandle;FindData: TWin32FindData;LocalFileTime: TFileTime;beginHandle := FindFirstFile(PChar(FileName), FindData);if Hand... 阅读全文
将文字作为程序的窗体
2009-12-03 18:34 by HYrz的菜园子, 218 阅读, 收藏,
摘要：
var rgn:HRGN;beginBeginPath(Canvas.Handle);//绘制的开始路径 SetBkMode(Canvas.Handle,TRANSPARENT); Canvas.Font.Name:=’宋体’;//设定字体 Canvas.Font.Size:=50;//字的大小 Canvas.Font.Color:=clBlue;//文字的颜色 Canva... 阅读全文
开启和关闭Windows xp 防火墙
2009-11-20 18:23 by HYrz的菜园子, 478 阅读, 收藏,
摘要：
开启和关闭Windows xp 防火墙(delphi编程)[代码] 阅读全文
获取网页源代码的最简单办法
2009-11-20 18:19 by HYrz的菜园子, 467 阅读, 收藏,
摘要：
获取网页源代码的最简单办法，就是利用 WinInet 单元中的函数：[代码]使用时，直接把收到的源代码显示出来：[代码] 阅读全文
转:DELPHI 中如何提升进程令牌
2009-11-15 14:54 by HYrz的菜园子, 494 阅读, 收藏,
摘要：
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下头部请加入:Tlhelp32//提升进程权限为DEBUG权... 阅读全文
ini文件操作实例
2009-11-15 09:25 by HYrz的菜园子, 372 阅读, 收藏,
摘要：
INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个... 阅读全文
自删除
2009-11-15 09:12 by HYrz的菜园子, 359 阅读, 收藏,
摘要：
例一:[代码]以上自删除可能会在SYStem32目录失效，可能是系统保护功能。例二做了一些过改进如下。例二:procedure DelMe;var F: textfile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := 'c:\' +... 阅读全文
浙公网安备 33010602011771号