Tirar messagem de Aviso do Windows

Delphi

17/08/2005

Bem pessoal estou Utilizando o Seguinte Codigo para copiar pastas ele funciona q é uma blz, mas agora queria tirar as msg do windows perguntando se deseja substituir o arquivo Tal pelo tal arquivo, como faço isso aproveitando esse meu codigo?

FillChar(SH, SizeOf(SH), 0);
SH.Wnd := Handle;
SH.wFunc := FO_Copy;
SH.pFrom := PAnsiChar(ListaOrigem.Path + ´\*.*´+ #0);
SH.pTo := PAnsiChar(ListaDestino.Path);
SH.fFlags := FOF_Allowundo;
SHFileOperation(SH);

Desde já agradeço a Todos


Marcal

Marcal

Curtidas 0

Respostas

Marcal

Marcal

17/08/2005

Nossa o pessoal do grupo sabe até atualizar um Computador com ele Desligado e não sabe tirar a mensagem do Windows. me ajudem ai


GOSTEI 0
Adriano Santos

Adriano Santos

17/08/2005

qual o tipo de variavel esta usando para SH?


GOSTEI 0
Adriano Santos

Adriano Santos

17/08/2005

Deixa quieto consegui:

É só dar uma ´estadinha´ né amigo ???!! Não custa pesquisar...

Trecho de codigo de ShellApi

  {$EXTERNALSYM FO_MOVE}
  FO_MOVE           = $0001;
  {$EXTERNALSYM FO_COPY}
  FO_COPY           = $0002;
  {$EXTERNALSYM FO_DELETE}
  FO_DELETE         = $0003;
  {$EXTERNALSYM FO_RENAME}
  FO_RENAME         = $0004;

  {$EXTERNALSYM FOF_RENAMEONCOLLISION}
  FOF_RENAMEONCOLLISION      = $0008;
  {$EXTERNALSYM FOF_NOCONFIRMATION}
  FOF_NOCONFIRMATION         = $0010;  { Don´t prompt the user. }



use no seu fonte assim se preferir

SH.wFunc := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION or FOF_FILESONLY or FOF_NOCONFIRMATION;



GOSTEI 0
Adriano Santos

Adriano Santos

17/08/2005

Desculpe coloquei o trecho incorreto:

SH.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION or FOF_FILESONLY or FOF_NOCONFIRMATION;



GOSTEI 0
POSTAR