Newbie Spellweaver
- Joined
- Jan 19, 2007
- Messages
- 28
- Reaction score
- 13
Hi ,
I had a bit of free time and wanted to do small apps so i did 1 for evp tool (pack/unpak) i made a small aplication to bypass and remove registry so u can use without limits ! i have included the delphi source code ! usit if u need . is safee! please keep copyright . Tanks
How To use ? is simple : Download the tool :
Link :
Extract and in a folder and run Run.exe and that's all!
Note : The app will work only if is in the same folder with Evp.exe
For those who what to make changes or add stull full project is below .
i have used : Delphi Xe 2010 !
Delphi source Code : Download From Here
Raw Code :
I had a bit of free time and wanted to do small apps so i did 1 for evp tool (pack/unpak) i made a small aplication to bypass and remove registry so u can use without limits ! i have included the delphi source code ! usit if u need . is safee! please keep copyright . Tanks
How To use ? is simple : Download the tool :
Link :
You must be registered to see links
Extract and in a folder and run Run.exe and that's all!
Note : The app will work only if is in the same folder with Evp.exe
For those who what to make changes or add stull full project is below .
i have used : Delphi Xe 2010 !
Delphi source Code : Download From Here
Raw Code :
Code:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry,ShellApi;
type
TForm4 = class(TForm)
Button1: TButton;
StaticText1: TStaticText;
procedure Button1Click(Sender: TObject);
procedure StaticText1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
reg := TRegistry.Create(KEY_WRITE);
reg.RootKey := HKEY_CLASSES_ROOT;
reg.DeleteKey('Oz9cbi03\AimVfPyc');
reg.CloseKey();
reg.Free;
ShellExecute(Application.Handle, 'open', PChar('Evp.exe'), Nil, Nil, SW_SHOW);
Application.Destroy;
end;
procedure TForm4.StaticText1Click(Sender: TObject);
begin
ShellExecute(self.WindowHandle,'open','http://dmgteam.net',nil,nil, SW_SHOWNORMAL);
end;
end.
Attachments
You must be registered for see attachments list
Last edited: