[ajuda]Extrair(invisivel) Apos Download

[Jlcs157 0]

estou criando um launcher para um game.

 

estou com uma duvida , não sei fazer esse sistema de extrair o arquivo após baixar !

 

function DownloadFile(Source, Dest: string): Boolean;

begin

try

Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;

except

Result := False;

end;

end;

 

Chamando ..

begin

if DownloadFile (memo1.lines.strings[4], 'Server.rar') then

MessageBoxA(handle,'Server Atualizado Com Sucesso !','Server Atualizado Com Sucesso !',64)

else

MessageBoxA(handle,'Server Não Foi Atualizado!','Erro',64) ;

end;

 

preciso fazer assim quando ele baxa esse arquivo ele irá extrair onde ele estiver e irá se auto excluir ; alguem pode fazer isso para min ?

[Lukasmart7 1]

Você Pode Pesquisar Pelo Um Componente Ou Utilizar o 'unrar.dll'.

Uma Sugestão!

Utilize Um Componente Completo Para Fazer Download Porque Assim Trava o Programa!

[Drakar~ 1]

Simples, crie um arquivo SFX no Winrar, ai nas Propriedades do SFX você seleciona Substituir Arquivos e Ocultar todo o Processo. Fázia isso para Instalar vírus na escola, rsrsr