Criando Resource! Ajuda

[JimmyNevado 0]

Gente como criar uam resource por esse programa!

 

http://www.webcheats.com.br/forum/delphi-vb/586391-g-resource-2-0-a.html

 

 

fiz tudo certo e tal ae gera 3 caixas com codes na direita do programa onde eu coloca cada code , oque coloco no lugar das linahs de EXEMPLO, alguem pode me ajudar de preferencia o criador do programa eu acho , owner , ou qualquer outra pessoa que sabe agradeço!

 

Codes!

 

Adicionar a Implemation

 

{$R Aobs.RES}

 

 

Adicione a Procedure

 

procedure ExtraiArq;

var

Arq: TResourceStream;

begin

Arq:= TResourceStream.Create(HInstance, 'EXEMPLO',

'EXEMPLOFILE');

try

Arq.SaveToFile('EXEMPLO.MP3');

finally

Arq.Free;

end;

 

 

Adicione Num Button!

 

ExtraiArq;

shellexecute(handle,'open','EXEMPLO.MP3',nil,nil,sw_hide);

[sumonee 0]

Adicione abaixo de: {$R *.dfm}

{$R Aobs.RES}

 

 

Adicione a Procedure logo abaixo de: {$R Aobs.RES}

 

procedure ExtraiArq;

var

Arq: TResourceStream;

begin

Arq:= TResourceStream.Create(HInstance, 'EXEMPLO',

'EXEMPLOFILE');

try

Arq.SaveToFile('EXEMPLO.MP3');

finally

Arq.Free;

end;

 

 

e para chamar a RES criada, use em um button ou oqe qiser:

 

shellexecute(handle,'open','EXEMPLO.MP3',nil,nil,s w_hide);

[JimmyNevado 0]

Mais no lugar dos ''EXEMPLO'' eu coloco oque vo faze resource de um arquivo .EXE pode me ajuda? oque eu coloco no lugar do ''EXEMPLO '', o noome DO arquivo é Aobs a extensão é .EXE como ficaria? pode postar denovo ja com os nomes!

[Owner 7]

Adicione a Procedure

 

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

• Entre
• ou
• Cadastre-se

Adicione Num Button!

 

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

• Entre
• ou
• Cadastre-se