(erro)

[.:Luis:. 0]

Cansado de postar ERRO!!!

 

+ ai vai + um ERRO! < Os ERROS mi amão mas eu n Amo eles !

 

 

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

• Entre
• ou
• Cadastre-se

 

 

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

Codigo entero

 

 

----

unit Unit1a;

 

interface

 

uses

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

Dialogs, StdCtrls, ComCtrls;

 

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;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

arquivo: String;

diretorio:String;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit1.Enabled = false then

Edit1.Enabled:=true else

Edit1.Enabled:=false;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if DirectoryExists(Edit1.Text)

showmessage('Diretorio Existente') else

showmessage('Diretorio não Existente')

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 au ativar Auto kill');

end else

showmessage('Verifique se você salvou o diretorio');

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 desativado') else

showmessage('Erro');

end;

 

end.

 

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

tem + augums erros por pf postes as soluçoes!

 

Linhas em vermelho sam os erros!

[Ryokusei 28]

Isso deve resolver:

 

if DirectoryExists(Edit1.Text) then

showmessage('Diretorio Existente') else

[~EvilCode 93]

Já aqui você esqueceu de um +.

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

• Entre
• ou
• Cadastre-se