Delphi在Vasta/win 7下获取权限
毕竟Win32程序的开发，Delphi还是有顽强的生命力的。
操作步骤如下：
1.建立 res 文件
建立一个文本文件，名字可以自己起，我这里叫：UAC.manifest，内容：
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
建立文本文件，名为 UAC.rc，内容：
1 24 UAC.manifest
编译成 uac.res 文件，运行：
brcc32 uac.rc -fouac.res
2.在代码中引入
打开项目文件，加入
{$R uac.res}
3.编译程序
这时程序就支持 VISTA 了，在运行的时候，会弹出 WINDOWS 的提示框，询问用户是否允许以管理员身份运行。
通过我自己实践，在Delphi7下面是可以的，但是在Delphi2009下面测试没有通过。
相关文档：
虽是原创，但是是参考过别人的作品，然后自己重新写的，目的是要给初学者一个更容易明白。
用DELPHI创建DLL文件，封装窗体的实现方法实例：
即一个程序不再是单一的一个EXE文件了，而是由一个EXE文件加N个DLL文件组成，这样做的原因是方便以后的维护与更新，也是跨平台开发的重要一步。
1， 打开DELPHI，新建一个Dl ......
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
一、创建和释放TRegistry对象
1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；
2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。
二 ......
function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......
以下是在网上收集的一些对无类型参数的说明.个人理解无类型变量就是一个指针.
象Delphi中function Read(var Buffer; Count: Longint): Longint; override;象Buffer这样没有类型的参数究竟应该怎么给参数？？？？
这说明Buffer是通过地址方式传递的，一般说来只 ......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......
