var
i : integer;
begin
i := ShellExecute(0,Nil,'regedit.exe',PChar('/E ' +
ExpandFileName(PastaDesk)),PChar(SysWinDir),SW_HIDE);
if i = 0 then
begin
RemoveRestricoes := True;
ShowMessage('Backup criado com sucesso!');
end
else
ShowMessage('Não foi possível criar um backup correto do "Registro do
precisa.
>
> Att,
> Marcos Douglas
>
> 2008/7/3 silvaburro <[EMAIL PROTECTED]>:
> >
> > Alguém dessa lista poderia me ajudar?
> >
> > Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).
> >
> > Bom, eu seleciono a pasta dese
Alguém dessa lista poderia me ajudar?
Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).
Bom, eu seleciono a pasta desejada, no retorno, eu preciso colocar
numa ListBox todos os arquivos dessa pasta e todos os arquivos das
sub-pastas (se existirem), no ListBox tem que ter o caminho
3 matches
Mail list logo