Aktuell markierte Datei auslesen

mcbain · Beiträge: 60 Erhaltene Danke: 1

Hallo,
ich habe eine Anwendung geschrieben, welche im Kontextmenü einer jeden Datei hinterlegt ist. Jetzt würde ich gerne bei Aufruf meiner Anwendung den Namen der Datei wissen, welche ich gerade ausgewählt habe.

Mit

markieren

Delphi-Quelltext

1:	GetDir(0, Result)

bekomme ich zwar schonmal das Arbeitsverzeichnis der gewählten Datei, aber noch nicht den Dateinamen.
Kennt jemand eine Möglichkeit das Verzeichnis + Dateinamen einer markierten Datei auszulesen?

Wäre für jeden Hinweis dankbar.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Mi 13.04.2011 um 13:03

Ehemaliges Mitglied Erhaltene Danke: 1

Dafür brauchst du eine ShellExtension:
www.michael-puff.de/...ung/Delphi/Programme -> ExifReader.zip

jaenicke · Verfasst: Mi 13.04.11 14:23

mcbain hat folgendes geschrieben :

ich habe eine Anwendung geschrieben, welche im Kontextmenü einer jeden Datei hinterlegt ist. Jetzt würde ich gerne bei Aufruf meiner Anwendung den Namen der Datei wissen, welche ich gerade ausgewählt habe.

Den bekommst du vermutlich als Parameter, je nachdem ob es sich um eine ShellExtension handelt (dann nicht) oder du einfach die Exe als Kommando in shell\open in der Registry eingetragen hast (dann schon).

mcbain · Beiträge: 60 Erhaltene Danke: 1

Mit dem ExifReader kann ich die aktuell in Windows markierte Datei, z.b. test.exe, ermitteln und den string in Delphi verwenden?
Kommt mir alles bischen komisch vor in dem zip-file.

Ehemaliges Mitglied Erhaltene Danke: 1

Ja.

mcbain · Beiträge: 60 Erhaltene Danke: 1

Vielen Dank für eure Antworten.
Ich habe es jetzt folgendermaßen geregelt:

Per Button installiere ich auf Bedarf meine Anwendung im Kontextmenü:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var regist : TRegistry; 
begin
  regist := TRegistry.Create;
                
  with regist do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('*\shell\Delphi\',True);
    WriteString('',Application.ExeName);
    CloseKey;
    OpenKey('*\shell\Delphi\command',True);
    WriteString('',Application.ExeName+' "%1"');
    CloseKey;
  end;
  regist.Free;
end;

Rufe ich nun mit Rechtsklick irgendeine Anwendung im Windows Explorer auf und wähle meinen gerade erstellten Kontextmenü-Eintrag, so wird mein Programm aufgerufen.
Jetzt muss man nur noch mit ParamStr(1) den Parameter auslesen und schon hat man die Anwendung, die im Explorer markiert wurde.

Ich hoffe, ich konnte jemanden mit dem kleinen Beispiel weiterhelfen.
Gruß
mc

jaenicke · Verfasst: Do 14.04.11 08:26

Wobei da komplett die Fehlerbehandlung fehlt...
Du hast das try..finally vergessen, außerdem wirfst du den Rückgabewert von OpenKey weg statt zu prüfen, ob der Schlüssel geöffnet werden konnte. Und das kann ins Auge gehen, es sei denn deine Anwendung fordert beim Start bereits sowieso immer Adminrechte an (was ja auch wieder schlecht wäre). Andernfalls hat die Anwendung ja gar nicht immer die notwendigen Rechte...

Und da du dann nicht einmal den Rückgabewert von OpenKey prüfst :shock:

, bekommst du ohne Adminrechte eine schöne Exception und hast, da du nicht einmal try..finally benutzt, ein schönes Speicherleck... von der unschönen Fehlermeldung durch die Exception im Programm ganz abgesehen...

Besser wäre zu schauen, ob du Adminrechte hast und andernfalls die Anwendung mit ShellExecute und 'runas' als Verb zu starten (mit Parametern, an denen du erkennst was passieren soll), damit es nicht nur bei wenigen zufällig funktioniert...

mcbain · Beiträge: 60 Erhaltene Danke: 1

Ich habe hier natürlich nicht alles aufgenommen, sondern eben nur das notwendigste, damit andere schneller wissen wo und wie sie ansetzen müssen.
Natürlich sollte man das dann mit der Fehlerbehandlung etc. wie jaenicke es beschreibt einbauen. Danke für die Anregung.

Ehemaliges Mitglied Erhaltene Danke: 1

Du weißt aber, dass dein Programm dafür Administratorenrechte benötigt? Genauso, wie meine Shellerweiterung bei der Installation.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme