Einzelnen Beitrag anzeigen

NickelM

Registriert seit: 22. Jul 2007
Ort: Carlsberg
445 Beiträge
 
Delphi 2009 Professional
 
#2

Re: TListView - Dateiinfos ausgeben - Datei in Stream speich

  Alt 12. Mai 2008, 13:11
Also mit den Icons zubekommen kann ich dir helfen.
Es kommt trauf an welche dateien, du reinladen willste bei exen geht das so
Du musst eime ImageList auf Form setzen
Delphi-Quellcode:
var IconIndex : Integer;
    h : hIcon;
    S : String;
    Icon : TIcon;
begin
Icon := TIcon.Create;
IconIndex := 0;
S := 'C:\MeineExe.exe';
h := ExtractIcon(0,PAnsiChar(S),IconIndex);
Icon.Handle := h;
ImageList1.AddIcon(Icon);
Und dann dem ListView Eintrag den ImageIndex zuweisen;

Und mit dem Dateinamen gehts so
Delphi-Quellcode:
var S : String;
begin
S := ExtractFileName(OpenDialog.FileName);
end;
Mit der Größe der Datei musst mal die anderen fragen.

Wenn du kurz wartest schreib ich schnell das Prog soweit ich das kann
Nickel
  Mit Zitat antworten Zitat