Windows Suche starten

[Björn Ole]

Huhu,


vielleicht suche ich gerade nur nach den falschen Begriffen, denn ich finde absolut nichts.

Ich würde gerne aus meiner Delphi-Anwendung heraus eine Windows Suche starten.
D.h. ich habe einen Button und beim Klicken soll sich ein Explorer Fenster öffnen und nach bestimmten Dateien gesucht werden.

Mit

Delphi-Quellcode:

ShellExecute(0, 'open', PChar(Pfad), nil, nil, SW_SHOWNORMAL);

öffne ich ein Explorer Fenster.
Wie starte ich jetzt die Suche? Oder brauchts einen ganz anderen Ansatz?

Betriebssystem: Windows 7, ab XP wäre optimal.


Gruß,
Björn

[NikB]

1. Make one reg file (example):

Code:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Folder\shell\MyFind]
@="YourFind"

[HKEY_CLASSES_ROOT\Folder\shell\MyFind\command]
@="C:\\Programs\\YourFind.exe %1\"

2. Exec reg file (double click)
3. Make your program in C:\Programs\YourFind.exe (or other :))
4. Assign command line parameters in your program (%1 is file, click in WinExplorer). Command line parameter in Delphi: ParamCount, ParamStr.

[Björn Ole]

Sorry, but I'm afraid you didn't understand my problem. ;)

But first, welcome and thanks for trying to help me!

Here's what I'm trying to achieve:
In my application, I have an Edit and a Button.
In the Edit, you find something like created:yesterday size:>100mb *.avi
When I click the Button, an Explorer window should appear (being at a specific directory)
and the text from the Edit should be placed into the search box, so that it automatically starts searching.

[Aphton]

Lies dir die Dokumentation doch mal genauer durch:

Code:

ShellExecute Function

Performs an operation on a specified file.
Syntax

HINSTANCE ShellExecute(
  __in_opt  HWND hwnd,
  __in_opt  LPCTSTR lpOperation,
  __in      LPCTSTR lpFile,
  __in_opt  LPCTSTR lpParameters,
  __in_opt  LPCTSTR lpDirectory,
  __in      INT nShowCmd
);


Parameters

(...)
lpOperation [in, optional]

    Type: LPCTSTR

    A pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular file or folder. Generally, the actions available from an object's shortcut menu are available verbs. The following verbs are commonly used:

    edit

        Launches an editor and opens the document for editing. If lpFile is not a document file, the function will fail.

    explore

        Explores a folder specified by lpFile.

    find

        Initiates a search beginning in the directory specified by lpDirectory.

    open

        Opens the item specified by the lpFile parameter. The item can be a file or folder.

    print

        Prints the file specified by lpFile. If lpFile is not a document file, the function fails.

    NULL

        In systems prior to Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.

        In Windows 2000 and later, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.
(...)

Source

[Björn Ole]

Ah, danke, das hatte ich übersehen.
Aber ich hänge immer noch.

Mein Versuch:

Delphi-Quellcode:

ShellExecute(0, 'find', nil, nil, PChar('C:\'), SW_SHOWNORMAL);

• Ich kann nur im .exe-Verzeichnis suchen.
  Anscheinend gibt es da eine zeitliche Verzögerung?? :shock: Ich hatte versucht, auf C:\ zu suchen, er listete mir beim Suchbegriff * aber nur alle Dateien aus dem .exe-Verzeichnis auf. Vorm Abschicken dieser Antwort hatte ich es noch ein letztes mal versucht, dann gings auch auf C:\. Keine Änderungen am Quelltext, nicht neu kompiliert.
• Es gibt anscheinend keine Möglichkeit, den Such-String zu übergeben. Man muss ihn manuell eintippen.
• Die Suche muss ebenfalls manuell gestartet werden.

[Aphton]

Zitat:

Zitat von Björn Ole (Beitrag 1075911)

Ah, danke, das hatte ich übersehen.
Aber ich hänge immer noch.

• Es gibt anscheinend keine Möglichkeit, den Such-String zu übergeben. Man muss ihn manuell eintippen.

Versuch mal, lpParameters als den Such-string zu verwenden!

[Björn Ole]

Wenn ich lpParameters '*' angebe, zeigt sich keine Änderung.
Wenn ich lpParameters PChar('*') angebe, kommt folgendes:

Zitat:

Access violation at address 7627FB8A in module 'shell32.dll'. Read of address 0000002A

Ich bin immer noch ratlos.

[alfold]

Gibt es eine Grund warum Du über Shellexecute gehst?
Weil, ich frage mich, wenn ich in delphi proge, dann kann ich doch solche suche selber schreiben und mir in einer Listbox anzeigen lassen!?

Gruss alfold

[BUG]

Zitat:

Zitat von alfold (Beitrag 1075961)

Weil, ich frage mich, wenn ich in delphi proge, dann kann ich doch solche suche selber schreiben und mir in einer Listbox anzeigen lassen!?

Kannst du?
Ein durch Dienst gepflegten Index ist mit dabei, Sucheingaben wie "created:yesterday size:>100mb *.avi" muss man auch erst einmal auswerten und dann auch noch effizient suchen.
Sicher sind da auch noch tausend Kleinigkeiten, an die man jetzt gar nicht denkt.

Bist man das alleine implementiert hat, sind vermutlich schon ein paar neue Delphiversionen erschienen :mrgreen:

[Björn Ole]

Exakt.

Ich habe hier nachgelesen, dass der korrekte Aufruf wie folgt lautet:

Code:

ShellExecute(hwnd, "find", "c:\\MyPrograms", NULL, NULL, 0);

Jetzt hab ich Folgendes versucht:

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\\', nil, nil, 0);

und Eingabe in das Suchfeld: *
Es werden alle Dateien auf C:\ aufgelistet.
Dann ändere ich den Pfad:

Delphi-Quellcode:

ShellExecute(0, 'find', 'D:\\', nil, nil, 0);

Ins Suchfeld wieder: *

Es werden immer noch alle Dateien auf C:\ aufgelistet?? :?

Wo liegt der Fehler? Hab ich was vergessen?

[DeddyH]

Und wenn Du im Directory-Parameter das Verzeichnis noch einmal angibst?

[Björn Ole]

Du meinst so?

Delphi-Quellcode:

ShellExecute(0, 'find', 'I:\\', nil, 'I:\\', SW_SHOWNORMAL);

Geht leider auch nicht, gleiches Fehlverhalten.

Da muss ich mir wohl was anderes einfallen lassen. :(
Trotzdem danke für eure Antworten.

[himitsu]

Und wenn du mal einen korrekten Pfad angibst?

In C-Sprachen muß oftmals das \ maskiert werden und wird so zu \\,
wärend dieses in Delphi nicht der Fall ist.

PS: Hier kommt statt der Suche nur ein :gruebel:

Zitat:

[Window Title]
search-ms:crumb=location:C%3A%5C

[Content]
Der Datei ist kein Programm zum Ausführen dieser Aktion zugeordnet. Installieren Sie ein entsprechendes Programm, oder erstellen Sie in der Systemsteuerung unter "Standardprogramme" eine Zuordnung, wenn bereits ein Programm installiert ist.

[OK]

(in "Standardprogramme" finde ich allerdings nichts, was hierzu paßt)


PS: Eventuell gibt es ja auch eine API, um die Suche direkt im eigenem Programm zu nutzen und eine schöne Liste zu bekommen?

[Björn Ole]

Du hast Recht, einfache \ tun es auch. Aber irgendwas ist hier trotzdem faul.

ShellExecute gibt mir den gleichen Fehler (31) wie bei dir zurück, himitsu, aber nur mit diesem Pfad: C:\Users\Bjoern (englisches Windows 7 64bit). Das Explorer-Suchfenster öffnet sich erst gar nicht. Unterordner wie z.B. C:\Users\Bjoern\Desktop öffnen wieder problemlos.

Dieses komische Verhalten hab ich jetzt mal für folgenden Versuch missbraucht:

Versuch 1

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\Windows', nil, nil, SW_SHOWNORMAL);
// Suchfenster öffnet sich, listet mit * alle Dateien richtig auf

Diese Zeile habe ich dann durch folgende ersetzt, Anwendung neu kompiliert und gestartet.

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\Program Files\Internet Explorer', nil, nil, SW_SHOWNORMAL);
// Suchfenster öffnet sich, listet aber immer noch alle Dateien aus C:\Windows auf

Versuch 2

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\Windows', nil, nil, SW_SHOWNORMAL);
// Suchfenster öffnet sich, listet mit * alle Dateien richtig auf

Zeile durch folgende ersetzen, Anwendung neu kompilieren und starten.

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\Users\Bjoern', nil, nil, SW_SHOWNORMAL);
// Suchfenster öffnet sich nicht, ShellExecute liefert 31 zurück

Zeile durch folgende ersetzen, Anwendung neu kompilieren und starten.

Delphi-Quellcode:

ShellExecute(0, 'find', 'C:\Program Files\Internet Explorer', nil, nil, SW_SHOWNORMAL);
// Suchfenster öffnet sich, listet mit * alle Dateien aus dem Internet Explorer Ordner auf!?

Mir kommt es so vor, als ob hier ShellExecute oder vielleicht sogar die Windows Suche etwas falsch macht ein mir unbekanntes Feature hat. Ich bin jedenfalls mit meinem Latein am Ende.