Zitat von
Delphi-Lover:
I was just fighting to read the filesummaryinfo and nothing seems to work, so I puzzled with some sources from this site and the main source from Serge Perevoznyk (that you can find on 10.000 sites via Google) Here is the source that will work on WindowsXP and Delphi >= 5.
You just renamed a few variables, huh?
I'm sorry, but I don't see a difference between your version and the one, Luckie spoke about in his first post. To be honest: I didn't like the original
unit. So, I made another version, you can get
here. I mean, I can
set values
Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
mal : TMultipleArrayList;
begin
SetLength(mal,3);
mal[0].pidInfoType := PIDSI_AUTHOR;
mal[0].pidInfoStr := 'Me, the one and only';
mal[1].pidInfoType := PIDSI_COMMENTS;
mal[1].pidInfoStr := 'Tralala';
mal[2].pidInfoType := PIDSI_TITLE;
mal[2].pidInfoStr := 'My title';
SetMultipleFileSummaryInfo('MeineDatei.txt',
FMTID_SummaryInformation,
mal);
SetLength(mal,0);
end;
you just read them.
