alguem pode me ajuda pf

[vaniha 0]

galera eu queria saber oque que eu tenho que modifica nesse codigo do delphi7

 

var

Arq: TResourceStream;

begin

begin

Arq:= TResourceStream.Create(HInstance, 'ai', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Stage\AI\ai.kom');

finally

Arq.Free;

end;

end;

ShowMessage('Ativado com sucesso.');

end;

 

tipo eu criei um hack de auto kill e um de oni hit sendo que os do se chamao ai.kom e por

isso nao da para por na mesma pasta. e nessa parate que eu quero ajuda quero saber o que que eu tenho que modifica para ele i busca o arquivo em outra pasta.

obs: no meu delphi so ta funcionado esse codigo que eu coloquei acima!!

[DarkSj 0]

2 begin?vc fez esse código ou pegou da net?

 

tenta:

var

Arq: TResourceStream;

begin

Arq:= TResourceStream.Create(HInstance, 'ai', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Stage\AI\ai.kom');

finally

Arq.Free;

end;

ShowMessage('Ativado com sucesso.');

end;

[Niik 4]

É o seguinte...

 

Quando você faz o RES você nomeia ele, coloca o tipo do arquivo (KOMFILE) e o Diretório (C:\...).

Faça o Seguinte o Script que você modificou para ser auto kill, coloque outro nome à ele.

 

Ex: akill KOMFILE D:\pasta\nomedoscript.kom

 

Nesse caso o Code Fica Desta maneira

 

var

Arq: TResourceStream;

begin

begin

Arq:= TResourceStream.Create(HInstance, 'akill', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Stage\nomedoscript.kom');

finally

Arq.Free;

end;

end;

ShowMessage('Ativado com sucesso.');

end;

[vaniha 0]

É o seguinte...

 

Quando você faz o RES você nomeia ele, coloca o tipo do arquivo (KOMFILE) e o Diretório (C:\...).

Faça o Seguinte o Script que você modificou para ser auto kill, coloque outro nome à ele.[/font][/color]

 

 

 

Nesse caso o Code Fica Desta maneira

 

[/center]

 

Vlw mano tavo precisando me ajudo muito