(Erro)

[.:Luis:. 0]

Bem eu to fazeno um hacker pra GC + poren quando eu aperto injetar ele da erro...!

 

 

 

Codigo!

 

------------

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls;

 

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

TabSheet2: TTabSheet;

Button3: TButton;

Button4: TButton;

TabSheet3: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

TabSheet4: TTabSheet;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

arquivo: String;

diretorio: String;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Enabled = false then

Edit1.Enabled:=true else

Edit1.Enabled:=false;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if DirectoryExists(Edit1.Text) then

showmessage('Diretorio Existente') else

showmessage('Diretorio não Existente');

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

if Edit1.Enabled = false then begin

diretorio:=Edit1.Text+'\stage\ai\ai.kom';

arquivo:='ori\ai.kom';

if copyFile(PChar(arquivo),PChar(diretorio),false) then

showmessage('Auto Kill ativado com Sucesso') else

showmessage('Erro au Injetar Auto kill');

end else

Showmessage('Verifique se você aperto o botão Verifivar e Salvar')

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

if Edit1.Enabled = false then begin

diretorio:=Edit1.Text+'\stage\ai\ai.kom';

arquivo:='mod\ai.kom';

if copyFile(PChar(arquivo),PChar(diretorio),false) then

showmessage('Auto Kill ativado com Sucesso') else

showmessage('Erro');

end else

Showmessage('Verifique se você aperto o botão Verifivar e Salvar')

end;

 

end.

 

---------

Ajuda eu!

[~EvilCode 93]

Que erro ocorre? ¬¬'

[.:Luis:. 0]

E bem simples Quando eu entro no G.C ele nao dexa eu mudar para a ai.kom modificada /+ eu fiz tudo sertinho na boa do jeito que o cara mando eu ate refiz\LOL.

 

Baixa ele ai e ve =

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Scaner =

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Se tiver nome melhor que Truilos augem tbm fala ae !_!

[iMelo~' 18]

Voce pode ter esquecido de por

a .res na pasta do projeto e como

o PChar precisa dele pode dar erro.