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 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

1. Make one reg file (example):

markieren

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.

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.

Lies dir die Dokumentation doch mal genauer durch:

markieren

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

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

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

• Ich kann nur im .exe-Verzeichnis suchen.
  Anscheinend gibt es da eine zeitliche Verzögerung?? 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.

Zitat von Björn Ole:

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!

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.

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

Zitat von alfold:

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

Exakt.

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

markieren

Code:

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

Jetzt hab ich Folgendes versucht:
ShellExecute(0, 'find', 'C:\\', nil, nil, 0);
und Eingabe in das Suchfeld: *
Es werden alle Dateien auf C:\ aufgelistet.
Dann ändere ich den Pfad:
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?