[Dúvida] Delphi7

[matopormata 730]

Boa noite, minha dúvida é o seguinte:

Fiz uma .res de um programa popular, já fiz a declarara a .RES na Unit agora queria saber que código eu ponho no botão para executa o programa que está na .res

 

Espero que responda-me o mais rápido que puder

[PissedOff 0]

então forever alone, isso pode te ajudar:

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

• Entre
• ou
• Cadastre-se

 

e não enche mais o saco

[matopormata 730]

Isso ira mim ajudar muito, mas gostaria que alguém respondesse com suas próprias palavras ou seja mas fácil de compreender. Ou poste o código exato !

Tenham um bom dia.

[~GabrielD 6]

Procure em como extrair a resource e em seguida como abrir... TResourceStream e ShellExecute

[Meladinho. ♥ 0]

voce quer que a res execute ? Como se fosse uma form ? Digo voce coloca res de uma dll e quer que ela abra via TResourceStream é isso ?

[matopormata 730]

Olha fiz uma .res que nem faz em script de GC mais ao inves de ser os arquivos KOMFILE eu fiz em EXEFILE ai eu queria saber como fazer para o botão executar esse programa que está no .res.

Sou iniciante em Delphi por isso pessoa a ajuda de quem quiser colabora :suando:

 

Olha o Código que eu iria usar:

Var PathToSave : String;

Res : TResourceStream;//Classe específica do Delphi

//para manipulação de recursos

Begin

PathToSave := 'C:\RECURSO\IMAGEM.JPG'; //Caminho para extração

If not FileExists(PathToSave) Then

Begin

Res := TResourceStream.Create(Hinstance, 'Jogos', 'EXEFILE');

//extrai a imagem e armazena na memória caso não exista

Try

Res.SavetoFile(PathToSave);//Salva imagem no caminho especificado

Finally

Res.Free;

End;

End;

End;

 

 

só que eu teria que usar shellexecute para abrir o programa, e eu não sei qual é o disco local dessa pessoa ai teria que por um edit.txt isso ocuparia muito espaço do programa então eu queria saber um modo de executar o programa que está na .res sem a necessidade de tudo isso.

 

Irei testar esse código para ver se funciona mais caso alguém saiba outra forma fico grato se dizer-me:

 

Var PathToSave : String;

Res : TResourceStream;

Begin

PathToSave := 'C:\RECURSO\IMAGEM.JPG';

If not FileExists(PathToSave) Then

Begin

Res := TResourceStream.Create(Hinstance, 'Jogos', 'EXEFILE');

Try

Res.SavetoFile(PathToSave);

Finally

Res.Free;

End;

End;

End;

 

begin

ShowMessage('Extraindo o arquivo Jogos.exe');

Extrai_exe;

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.