Laufwerke für schnelle Dateisuche indizieren

[marabu]

Hi folks,

wenn die Indexerstellung für das Dateisystem abgeschaltet werden soll, dann gibt es da verschiedene Methoden. Hier ein Beispiel, bei dem alle Einstellungen erhalten bleiben, aber das Befüllen des zugehörigen Katalogs angehalten wird:

Delphi-Quellcode:

const
  CICAT_STOPPED = 1;

function SetCatalogState(catalog: PWideChar; machine: PWideChar;
  newState: Cardinal; var OldState: Cardinal): Cardinal;
  stdcall; external 'query.dll';

procedure TMainForm.StopButtonClick(Sender: TObject);
var
  wsCatalog, wsMachine: WideString;
  dwResult, oldState: Cardinal;
begin
  wsCatalog := 'system';
  wsMachine := '.';
  dwResult := SetCatalogState(PWideChar(wsCatalog), PWideChar(wsMachine), CICAT_STOPPED, oldState);
  if dwResult = 0
    then ShowMessage('angehalten')
    else ShowMessage(IntToHex(dwResult, 8));
end;

Wer mehr will, der sollte die Automationsobjekte aus der ciodm.dll importieren und sich ein wenig mit der query.dll (beide %windir%\system32) beschäftigen.

Grüße vom marabu