DIRETO P/ LIXEIRA!!! Urgente!
19/03/2003
0
Olá caros colegas,
Socorrooo, tenho que fazer logo uma pequena aplicação que simplesmente apague todo o conteúdo da lixeira sem mesmo pedir confirmação!
Obrigado, :lol:
Moisés 2003
Socorrooo, tenho que fazer logo uma pequena aplicação que simplesmente apague todo o conteúdo da lixeira sem mesmo pedir confirmação!
Obrigado, :lol:
Moisés 2003
Anonymous
Curtir tópico
+ 0
Responder
Posts
19/03/2003
Afb
Tenho o codigo mas como foi muito dificil para eu fazer temos que ser discretos para estar enviando este codigo fonte caso queira me mande um e-mail.
afb1@bol.com.br
afb1@bol.com.br
Responder
19/03/2003
Dor_poa
uses ShellAPI;
Function DeleteFileWithUndo(sFileName : string ) : boolean;
var
fos : TSHFileOpStruct;
Begin
FillChar( fos, SizeOf( fos ), 0 );
With fos do
begin
wFunc := FO_DELETE;
pFrom := PChar( sFileName );
fFlags := FOF_ALLOWUNDO
or FOF_NOCONFIRMATION
or FOF_SILENT;
end;
Result := ( 0 = ShFileOperation( fos ) );
end;
Function DeleteFileWithUndo(sFileName : string ) : boolean;
var
fos : TSHFileOpStruct;
Begin
FillChar( fos, SizeOf( fos ), 0 );
With fos do
begin
wFunc := FO_DELETE;
pFrom := PChar( sFileName );
fFlags := FOF_ALLOWUNDO
or FOF_NOCONFIRMATION
or FOF_SILENT;
end;
Result := ( 0 = ShFileOperation( fos ) );
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)