Ajuda

[pedrokkklol 0]

var

Stream: TResourceStream;

begin

Stream := TResourceStream.Create(hInstance,

'TUTO', RT_RCDATA);

try

Stream.SaveToFile('c:\diretorio\arquivo_extraido.ext'); (queria que aqui ele pegasse o s sDirectoryEdit1.text + o TUTU.exe e salvase no path que esta definito no sdirectoryedit) =(

finally

Stream.Free;

end;

 

ajuda ai plz

[Lacy 6]

Primeiramente você terá que adicionar um "edit"

e adicionar o seguinte código:

 

( Retire o Begin e cole o code )

 

var

Arq: TResourceStream;

s: string;

begin

s := sedit1.Text;

Arq:= TResourceStream.Create(HInstance, 'NomedaRESMRS', 'MRS'); // se for Exe coloque assim (HInstance, 'NomedaRESEXE', 'EXE' )

 

try

Arq.SaveToFile(s+'\NomedaRES.exe');

Arq.Free;

application.MessageBox('Mensagem apos Clickar no Button','Ativado',MB_ok)

except

Arq.Free;

ShowMessage('erro ao ativar');

end;

[edoO~' 1]

digamos que vc usou a função do sDirectoryEdit1.text....

 

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

• Entre
• ou
• Cadastre-se

[lightedu 1]

Tem que colocar um edita como ja foi falado.