Laufwerke für schnelle Dateisuche indizieren

[NicoDE]

Zitat von himitsu:

bei der Standardeinstellung des Laufwerkes geht damit nichts.

Getestet unter welchem System?
(lies: bei mir geht's)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  INVALID_FILE_ATTRIBUTES = DWORD(-1);
  FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = $00002000;
var
  Attr: DWORD;
begin
  Attr := GetFileAttributes(PChar(Edit1.Text));
  if INVALID_FILE_ATTRIBUTES = Attr then
  begin
    ShowMessage('GetFileAttributes: ' + SysErrorMessage(GetLastError()));
    Exit;
  end;
  if CheckBox1.Checked then
    Attr := Attr and not FILE_ATTRIBUTE_NOT_CONTENT_INDEXED
  else
    Attr := Attr or FILE_ATTRIBUTE_NOT_CONTENT_INDEXED;
  if not SetFileAttributes(PChar(Edit1.Text), Attr) then
    ShowMessage('SetFileAttributes: ' + SysErrorMessage(GetLastError()));
end;

Zitat von mumu:

oder muss ich dazu einfach alle dateien und verzeichnisse durchgehen und jeweils das indizierungsattribut deaktivieren?

Ja.
(nichts anderes macht der Standard-Eigenschaftsdialog)