unit1.pas

内嵌dll的加密。。。没看懂是个什么意思。是收集来的。一直丢电脑里!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OBFileStore;

const
  DLLNAME : String = 'JMDLL.DLL';
  PRONAME : String = 'pTestPassword';

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    OBFileStore1: TOBFileStore;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  AHandle : THandle;
  Proc : procedure(AHandle : THandle;Password : String); stdcall;
begin
  OBFileStore1.Files.Items[0].SaveToFile(DLLNAME);
  AHandle := LoadLibrary(pChar(DLLNAME));
  if AHandle <> 0 then
  begin
    try
      @Proc := GetProcAddress(AHandle,pChar(PRONAME));
      if Assigned(Proc) then Proc(Application.Handle,Edit1.Text);
    finally
      FreeLibrary(AHandle);
      DeleteFile(DLLNAME);
    end;
  end else
    ShowMessage('反正就是不正确啦 !');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Buf : PChar;
begin
  Buf := GetMemory(500);
  GetWindowsDirectory(Buf,499);
  DLLNAME := Buf + '\' + DllName;
  FreeMemory(Buf);
end;

end.