Erweiterte Dateiinformationen schreiben

[schitho]

Hallo Luckie!

Danke für Deine geduldige Antwort!

Zitat von Luckie:

Ich dachte das wäre klar. Wenn du gibst mit PID_Infotype (mir ist nichts besseres um halb fünf morgens eingefallen) das Feld an in das du schreiben willst. Mögliche Werte:
PID_AUTHOR
PID_TITLE
PID_SUBJECT
PID_KEYWORDS
PID_COMMENTS

Sie liefert null wenn alles geklappt hat oder wenn was nicht geklappt hatt sollte sie den letzten Systemfehler des Prozesses zurückgeben.

In mehrer Felder schreiben geht nicht, entweder du schreibst sie dir selber um, dass sie es kann oder rufst sie entsprechend oft nacheinander auf. Ich habe daraurf verzichtet mir diese Arbeit zu machen, weil es mir von Anfang an eigentlich nur um den Kommentar ging. (Alle anderen Felder erscheinen mir sowieso unwichtig.)

So hätte ich es eh auch verstanden. Doch irgendwie funktioniert das nicht. Sobald ich einen Wert (z.B. PID_COMMENTS) schreibe funktioniert das. Schreib ich aber noch einen (z.B. PID_TITLE), indem ich die Funktion nochmals aufrufe, verschwindet der vorige Eintrag wieder.

Somit funktioniert der mehrmalige Aufruf nicht (zumindest bei mir).

Außerdem hab ich keine Möglichkeit gefunden, wie ich das Feld Revisionsnummer und Quelle mit Daten füllen kann.

Zitat von Luckie:

Auslesen? Na kuck es dir an:

Delphi-Quellcode:

S := PropVariant[k].pwszVal;
if PropSpec[k].propid = PID_COMMENTS then
  Result := S;

Hier lasse ich mir nur den Wert von s zurückgeben wenn die PropID PID_COMMENTS entspricht. So, denk nach und mach was draus.

Ups. Das hab ich übersehen.

Danke für Deine prompte Antwort.

Gruß
Thomas