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)