Ajuda Projeto Em Delphi

**ruancarlos33** · 13 de Outubro 2012

Bom Gente a Minha ideia é criar um limpa logs automatico para GC, mais como assim altomatico? tipow apenas na primeira vez que você executalo ele vai gerar uma ini pra guardar as informações do diretorio do seu grand chase ai sempre que voce abrir ele ja vai automatico e nao precisa vc procurar. So que contem tabem a função de executar o launcher do gc apos apagar os logs.. porem essa função so funciona se eu procurar novamente o diretorio do Arquivo ou seja somente se eu abrir a janela de busca e selecionalo denovo..

vou postar o codigo abaixo e down do projeto pra vcs verem o problema me deem uma luz pf :)

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, XPMan, IniFiles, ExtCtrls, ExtDlgs, ShellApi;

type

TForm1 = class(TForm)

Label1: TLabel;

XPManifest1: TXPManifest;

OpenDialog1: TOpenDialog;

GroupBox1: TGroupBox;

Edit1: TEdit;

Button3: TButton;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

GroupBox3: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Timer1: TTimer;

Label6: TLabel;

Timer2: TTimer;

Label7: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

arq: TIniFile;

SearchRec : TSearchRec;

num: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if

Edit1.Enabled= False then

begin

Edit1.Enabled:= True ;

Button3.Enabled:= True ;

end

else

Begin

if Edit1.Enabled= True then

Begin

Edit1.Enabled:= False;

Begin

arq := TiniFile.create(ExtractFilePath(ParamStr(0)) + 'Config.ini') ;

Arq.WriteString('Config', 'Diretorio', Edit1.text);

Arq.free;

End;

Button3.Enabled:= False ;

End;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

opendialog1.execute;

Edit1.Text :=ExtractFilePath(opendialog1.FileName);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

arq:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');

num := arq.Readinteger('Config', 'Auto', 0);

if FileExists(ExtractFilePath(ParamStr(0)) + 'Config.ini') then

begin

arq:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');

Edit1.Text := arq.ReadString('Config', 'Diretorio', '');

end

else

begin

arq := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');

arq.WriteString('Config', 'Diretorio', 'C:\Level Up! Games\GrandChase\');

Arq.WriteInteger('Config', 'Auto', 0);

arq.UpdateFile;

Edit1.Text := arq.ReadString('Config', 'Diretorio', '');

end;

procedure TForm1.Button2Click(Sender: TObject);

var Txt : TextFile;

begin

if FileExists(Edit1.Text+'GrandChase.exe') And Edit1.Enabled= False then

Begin

Assignfile (Txt,Edit1.Text+'clientfilelist.Txt');