delphi7 写的，只加了简单的ASPack v2.12 的壳，带网络验证，希望大家能破出密码。。无网络程序退出，密码错程序退出，程序自校验不通过退出。。。没加上防调试。

DCC32 参数说明
它的編譯器參數如下：
选项　　　　描述
Aunit=alias 设置单元别名
B　　　　　 编译所有单元
CC　　　　　编译控制台程序
CG　　　　　编译图形界面程序
Ddefines　　编译条件符号定义
Epath　　　 可执行文件输出路径
Foffset　　 查找运行期间错误
GD　　　　　生成完整.Map文件
GP　　　　　生成.Map文件Public段

Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序，第一个参数（索引号为零）表示应用程序本身的文件名（包括完整的路径），这个 String 参数由函数 ParamStr(0) 返回。
顺便说一句，Delphi 提供了分析文件名的多个函数，如果你需要从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：

ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“\”

    
1. Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名
    
2.  
    
3. ?
    
4. 文件名函数 　　
   &nbs

//判断文件是否存在 FileExists
//判断文件夹是否存在 DirectoryExists
//删除文件 DeleteFile; Windows.DeleteFile
//删除文件夹 RemoveDir; RemoveDirectory
//获取当前文件夹 GetCurrentDir
//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
//获取指定驱动器的当前路径名 Ge

1.既然是windows平台上, 就用shell API吧. 下面是一个例子:

PHP 代码:

uses ShellAPI;



function DeleteDirectory(const sDir : string) : Boolean;

var

 &

本例通过注册表控制

注:使用注册表要有User 子句中添加 Registry 单元

1. procedure TForm1.Button1Click(Sender: TObject);


2. var

用shellExecute 打开一个文件夹，那如何打开一个文件夹并选中指定的文件呢。

下面一个函数就可以就可以做到：

filepath:=F:手机相关winceMicrosoft Pocket PC 2003 SDK.msi;

ShellExecute(0, nil, PChar(‘explorer.exe’),PChar(‘/e, ‘+ ‘/select, ‘ + filepath), nil, SW_NORMAL);