Delphi peut-il faire ça??? un repertoire disparaissant et réapparaissant...

Réponse acceptée !

bonsoir,

procedure TForm1.Button1Click(Sender: TObject);
var
Dossier : string;
Attribut : integer;
begin
Dossier := 'c:\test';
Attribut := FileGetAttr(Dossier );

if Attribut or faHidden > Attribut then
    FileSetAttr(Dossier, Attribut or faHidden);
end;

cantador

Réponse acceptée !


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ButtonSelectDir: TButton;
    LabelDirName: TLabel;
    CheckBoxSys: TCheckBox;
    CheckBoxHid: TCheckBox;
    ButtonSetAttr: TButton;
    procedure ButtonSelectDirClick(Sender: TObject);
    procedure ButtonSetAttrClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  FileCtrl;

var
  FolderName : string = '';
  FolderAttr : integer;

procedure TForm1.ButtonSelectDirClick(Sender: TObject);
begin
 if SelectDirectory('Selectionnez un dossier','',FolderName) then
 begin
   LabelDirName.Caption := FolderName;
   FolderAttr := FileGetAttr(FolderName);
   CheckBoxSys.Checked := (FolderAttr and SysUtils.faSysFile) <> 0;
   CheckBoxHid.Checked := (FolderAttr and SysUtils.faHidden) <> 0;
 end;
end;

procedure TForm1.ButtonSetAttrClick(Sender: TObject);
begin
  if CheckBoxSys.Checked then
    FolderAttr := FolderAttr or faSysFile
  else
    FolderAttr := FolderAttr and (not faSysFile);

  if CheckBoxHid.Checked then
    FolderAttr := FolderAttr or faHidden
  else
    FolderAttr := FolderAttr and (not faHidden);

  FileSetAttr(FolderName, FolderAttr);
end;

end.

---

Réponse acceptée !

voilà une solution (un peu bourrin..)

procedure TForm1.BHideClick(Sender: TObject);
var
  Dossier: string;
begin
  Dossier := 'c:\test';
  SetFileAttributes(PChar(Dossier), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
end;

procedure TForm1.BNotHideClick(Sender: TObject);
var
  Dossier: string;
begin
  Dossier := 'c:\test';
  SetFileAttributes(PChar(Dossier), FILE_ATTRIBUTE_NORMAL);
end;

A toi de l'articuler avec le code de f0xi pour sélectionner ton dossier et choisir les options..

cantador