Criar Arquivo do Winrar SFX pelo Delphi?? Dando ERRO
Bom galera,
Já obtive algumas dicas de algumas pessoas.... mas não esta fumegando
o procendimento que estou usando é o seguinte...
procedure TFPrincipal.BitBtn1Click(Sender: TObject);
var
Dir:String;
begin
dir:=extractFilepath(application.exename)+´Dados\´;
if WinExec32(´winrar a Atualizacao -sfx -ep ´+dir+´Medico.gdb´, sw_show) then Showmessage(´achou´) else Showmessage(´n achou´);
end;
simplesmente não acontece nada, ou melhor, esta retornando false a função...
então se puderem me ajudar, agradeço desde já
Já obtive algumas dicas de algumas pessoas.... mas não esta fumegando
o procendimento que estou usando é o seguinte...
procedure TFPrincipal.BitBtn1Click(Sender: TObject);
var
Dir:String;
begin
dir:=extractFilepath(application.exename)+´Dados\´;
if WinExec32(´winrar a Atualizacao -sfx -ep ´+dir+´Medico.gdb´, sw_show) then Showmessage(´achou´) else Showmessage(´n achou´);
end;
simplesmente não acontece nada, ou melhor, esta retornando false a função...
então se puderem me ajudar, agradeço desde já
Alexspaes
Curtidas 0
Respostas
Dedi
22/10/2004
AlexSPaes,
se o arquivo ´Medico.gdb´ realmente esta dentro da pasta dados.
faça o teste copie para a pasta do aplicativo o WinRAR.exe e o Default.SFX,ou então adicione ao patch do windows o diretorio do winrar.
se o arquivo ´Medico.gdb´ realmente esta dentro da pasta dados.
faça o teste copie para a pasta do aplicativo o WinRAR.exe e o Default.SFX,ou então adicione ao patch do windows o diretorio do winrar.
GOSTEI 0