用delphi7写的程序来给大家练练手,高手莫来了!!1
delphi7 写的,只加了简单的ASPack v2.12 的壳,带网络验证,希望大家能破出密码。。无网络程序退出,密码错程序退出,程序自校验不通过退出。。。没加上防调试。
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) 该函数返回路径名,其结尾字符总是“\”
//判断文件是否存在 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 单元
用shellExecute 打开一个文件夹,那如何打开一个文件夹并选中指定的文件呢。
下面一个函数就可以就可以做到:
filepath:=F:手机相关winceMicrosoft Pocket PC 2003 SDK.msi;
ShellExecute(0, nil, PChar(‘explorer.exe’),PChar(‘/e, ‘+ ‘/select, ‘ + filepath), nil, SW_NORMAL);