Discussion :

[belle5656]

Salut mes amis!

bon bha alors je continue ici!

Bon, j'ai bien avancer, et le resultat commence petit a petit a prendre de la ..Gueule!

J'ai réussi a trouver (tout seul en plus ) le moyen de trouver le nom du nom de la personne qui utilise le système visé!

Maintenant, j'ai un soucis concernat une fonction qui est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function SHEmptyRecycleBin; external  'SHELL32.DLL' name 'SHEmptyRecycleBinA';

quand je veux tester le code, cela m'affiche l'erreur suivante:

[Erreur] Unit1.pas(219): E2023 La fonction nécessite un type de résultat

Comment remedier a cela?

merci!

[ero-sennin]

Salut,

Es-tu aller faire un tour dans la FAQ ?

J'y ai trouvé ceci


[EDIT]

Je parie que tu as oublié de mettre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
function SHEmptyRecycleBin (Wnd:HWnd; LPCTSTR:PChar;
  DWORD:Word):Integer; stdcall;

En gros, la tête de ton fichier doit avec cette allure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
function SHEmptyRecycleBin (Wnd:HWnd; LPCTSTR:PChar;
  DWORD:Word):Integer; stdcall;
 
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI   = $00000002;
  SHERB_NOSOUND        = $00000004;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function SHEmptyRecycleBin; external  'SHELL32.DLL' name 'SHEmptyRecycleBinA';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SHEmptyRecycleBin(self.handle,'', SHERB_NOCONFIRMATION);
end;
 
end.

[belle5656]

Salut!

Justemetn j'ai étais voir là-as déjà..

Et je comprends par cette erreur que je peux avoir!

[ero-sennin]

Au cas où, j'ai édité mon message précédent indiquant en gros comme doit être déclarée la fonction

[belle5656]

Oui, ok, cela fonctionne maintenant..

Je pensé que l'on pouvait mettre les functions n'importe où, a condition que le code soit juste après.

Mais par contre, cela ne vide aucunement la corbeille..je dois lui préciser le chemin?

[ero-sennin]

Heu, chez moi ça fonctionne très bien! Si tu as des soucis, post nous le morceau de code contenant la fonction en question et comment tu l'appelle

[belle5656]

Re,

C'est bon, j'ai trouvé! il falalit que je mette le code, qui précisé qu'il fallait vidé sans confirmation ou avec etc...

Mais heureusement que tu es là, car sinon j'aurais pu cherhcer longtemps je epnse! je m'ensouviendrais pour le function comme ça.

Merci a toi.

Au fait, on peut pas vous manquer sur ce programme c'est clairement indiqué, que les acteurs de ce forum( nottament toi et Cl@udius), sont bien compétents, et aimables, mêmes les modos sont cools!!

Merci je marque résolu!