一个简单问题

Question

怎样为项目添加密码。

Answer 1

啥意思，不让别人打开你的项目吗，delphi好像没这个功能，借助其他工具吧

Answer 2

既然你说是简单问题，那我也就往最简单的地方想了。
窗口上放一个edit和一个button，然后把这些代码贴上。
代码如下。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text<>'hehe' then                    //hehe就是你要设置的密码，不是hehe就报错
  begin
    showmessage('Invalid Password');            
  end;
end;end.
我阴阴的笑了。
哼哼。

Answer 3

1、为项目所在的目录加权限
2、项目所在目录加密
3、只提供dcu，不提供pas

Answer 4

建议你采用代码管理工具去处理，比如 vnc 等，通过这东西，你即能保证代码的安全（也就是你说的加密咯），又能确保代码的完整性

Answer 5

保护源代码？
使用完，winrar加密压缩到u盘，然后清除原目录（如果项目目录是建立在ramdisk上就最好，重启之后什么都没有了）