Como eu fasso para cria um ejetor de script com o delphi?

[vaniha 0]

Tipo eu ja sei fazer mas o que eu sei faser nao da para as pessoas muda o diretorio

tipo quando eu boto esse codigo

 

Var

Arq: TResourceStream;

begin

Arq:= TResourceStream.Create(HInstance, 'ai1', 'KOMFILE1');

try

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

finally

Arq.Free;

end;

ShowMessage('Autokill Ativado com sucesso');

end;

 

da erro

eu queria sabe como eu fasso para cria um ejetor de script que de pra modifica o diretorio e que funcione?

[Jake_Lonx 2]

Área errada.

Fechado [ x ]