Dateiinformationen auslesen und verändern

[happycell]

HI, wie kann ich die Datei-Informationen auslesen, bzw. verändern? -> Ich möchte die Informationen

dementsprechend in einem label oder einer edit-komponente angezeigt haben.

Wenn eine Datei in der ShellListView ausgewählt wird, dann soll er die Informationen (Größe, Erstellt

am...) ausgeben.


Danke :stupid:

[sakura]

Schau mal hier, sind nur 20 Threadsm, oder so, da findest Du alle Informationen, sogar spezielle ;-)

http://www.delphipraxis.net/internal_redirect.php?f=33

...:cat:...

[happycell]

Danke erstmal, habe davor schon in der Library geguckt, aber nichts passendes gefunden.

[sakura]

http://www.delphipraxis.net/internal...ect.php?t=2880
http://www.delphipraxis.net/internal...ect.php?t=5616

ausserhalb der CL
http://www.delphipraxis.net/internal...ct.php?t=13145
http://www.delphipraxis.net/internal...ct.php?t=12528


...:cat:...

[happycell]

Danke, aber wie verknüpfe ich das mit einer TShellView, bzw. eher ShellListView - Komponente??????

Und wie kann ich mir die Daten dann in einer Edit-Komponente anzeigen lassen? Ich habe schon etwas probiert, aber das klappt nicht.

[Christian Seehase]

Moin Happycell,

wie wäre es denn, wenn Du uns mal Deine Versuche zeigst?

[happycell]

kann ich machen, aber bisher weiss ich nicht wie ich das auswählen einer Datei in die TShellView einbinden soll. Hm, ja, also

wie kann ich folgendes bewerkstelligen:?

Ich habe eine ShellListView - Komponente, und möchte, dass wenn in dieser Komponente eine Datei

angeklickt wird (ShellListView1.items[i].selected? ShellListView1. ...??) dann soll er in mehreren

Edit-Komponenten die gegebenen Informationen anzeigen -> Dateigröße, Geändert am...


Aber ich bekomme es nicht hin, weil ich nicht weiss, wie ich diesen Code einbinden muss:

Source:

Delphi-Quellcode:

function GetFileInfo( 
* var aInternalName, aFileVersion: String; FileName: AnsiString 
): Boolean; 
var 
* VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD; 
* VersionInfo, Translation, InfoPointer: Pointer; 
* VersionValue: AnsiString; 
begin 
* Result := False; 
* VerInfoSize := GetFileVersionInfoSize(PChar(FileName), GetInfoSizeJunk); 
* if VerInfoSize > 0 then 
* begin 
* * GetMem(VersionInfo, VerInfoSize); 
* * try 
* * * GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VersionInfo); 
* * * VerQueryValue( 
* * * * VersionInfo, '\\VarFileInfo\\Translation', Translation, VerInfoSize 
* * * ); 
* * * VersionValue := 
* * * * '\\StringFileInfo\\' + IntToHex(LoWord(LongInt(Translation^)), 4) + 
* * * * IntToHex(HiWord(LongInt(Translation^)), 4) + '\\'; 
* * * VersionInfoSize := 0; 

* * * VerQueryValue( 
* * * * VersionInfo, PChar(VersionValue + 'InternalName'), InfoPointer, 
* * * * VersionInfoSize 
* * * ); 
* * * aInternalName := AnsiString(PChar(InfoPointer)); 

* * * VerQueryValue( 
* * * * VersionInfo, PChar(VersionValue + 'FileVersion'), InfoPointer, 
* * * * VersionInfoSize 
* * * ); 
* * * aFileVersion := AnsiString(PChar(InfoPointer)); 

* * finally 
* * * FreeMem(VersionInfo); 
* * end; 
* * aInternalName := Trim(aInternalName); 
* * aFileVersion := Trim(aFileVersion); 
* * Result := (aInternalName <> '') and (aFileVersion <> ''); 
* end; 
end;

bzw. umd die Attribute zu ändern:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
* attrs : Integer; 
begin 
* attrs := FileGetAttr( 'C:\io.sys'); 
* If attrs and faReadOnly > 0 then 
* showMessage( 'Schreibgeschützt' ); 
* If attrs and faHidden > 0 then 
* showMessage( 'Verstecktt' ); 
* If attrs and faSysFile > 0 then 
* showMessage( 'Systemdatei' ); 
* If attrs and faVolumeID > 0 then 
* showMessage( 'Laufwerks-ID' ); 
* If attrs and faDirectory > 0 then 
* showMessage( 'Verzeichnis' ); 
* If attrs and faArchive > 0 then 
* showMessage( 'Archivdatei' ); 
* If attrs and faAnyFile > 0 then 
* showMessage( 'Irgendeine Datei' ); 
end;

Bitte helft mir. danke