Pequenas dúvidas :D

[biribahiba 0]

Seguinte gente, como ja mencionei em outro típico, estou fazendo um programa para adicionar mods ao jogo combat arms...

por acaso, tive um problema:

compilo tudo, o programa abre, porém, fica impossível de se clicar nas coisas ( inclusive no botao de fechar!). Nao mostra nada, nem o simbolo de carregando mostra.

 

aqui ta o codigo:

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, ExtCtrls, sSkinProvider, sSkinManager;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

GroupBox1: TGroupBox;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

sSkinManager1: TsSkinManager;

sSkinProvider1: TsSkinProvider;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

DirFile,DirFile2,DirFile3,SemiSniper,SuperKnife,ZumbieHands,NXChamsFile,ColorChamsFile : 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('Diretório existente!')

else

ShowMessage('Diretório Inexistente! Revise a localização!');

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

ColorChamsFile:= '\NX Chams\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez';

DirFile:=Edit1.Text+'\Game\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez';

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+'\Game\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez');

if CopyFile(PChar(NXChamsFile),PChar(DirFile),true) then

ShowMessage('Arquivo copiado com sucesso')

else

ShowMessage('Fail');

end;

 

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ColorChamsFile:= '\NX Chams\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez';

DirFile:=Edit1.Text+'\Game\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez';

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+'\Game\CHARS_T_BODY.rez,CHARS_T_FACE.rez,CHARS_T_HAND.rez, CHARS_T_HEAD.rez, RS.rez');

if CopyFile(PChar(ColorChamsFile),PChar(DirFile),true) then

ShowMessage('Arquivo copiado com sucesso')

else

ShowMessage('Fail');

 

 

end;

 

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

DirFile2:=Edit1.text+'\Game\GUNS_M_PV_MELEE.rez';

SuperKnife:= '\SuperKnife\GUNS_M_PV_MELEE.rez';

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+'\Game\GUNS_M_PV_MELEE.rez');

if CopyFile(PChar(SuperKnife),PChar(DirFile2),true) then

ShowMessage('Arquivo copiado com sucesso')

else

ShowMessage('Fail');

 

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

DirFile2:=Edit1.text+'\Game\GUNS_M_PV_MELEE.rez';

ZumbieHands:= '\ZumbieHands\GUNS_M_PV_MELEE.rez';

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+'\Game\GUNS_M_PV_MELEE.rez');

if CopyFile(PChar(ZumbieHands),PChar(DirFile2),true) then

ShowMessage('Arquivo copiado com sucesso')

else

ShowMessage('Fail');

end;

 

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

SemiSniper := 'GUNS_M_PV_SR.rez,GUNS_T_PV_SR.rez';

DirFile3:=Edit1.text+'\Game\GUNS_M_PV_SR.rez,GUNS_T_PV_SR.rez';

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+'\Game\GUNS_M_PV_SR.rez,GUNS_T_PV_SR.rez');

if CopyFile(PChar(SemiSniper),PChar(DirFile3),true) then

ShowMessage('Arquivo copiado com sucesso')

else

ShowMessage('Fail');

end;

 

end;

end.

 

ainda está em desenvolvimento pois ainda estou na metade, porém, ja ta dando erro ;OOO

help aki galera? vlw

 

caso queiram fazer o download so para conferir o erro vo postar:

 

DOWNLOAD

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

• Entre
• ou
• Cadastre-se

> vai ficar off por 10 minutos já que acabei de upar...

 

SCAN:

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

• Entre
• ou
• Cadastre-se

 

desculpem erros!

aliais,como foi feito no delphi, o ikarus vai achar virus ( ELE SEMPRE ACAHA! ), mas o outro virus que mostrou, nao sei o porque.

 

desde já, agradeço!