Also...
Ich schreibe gerade ein programm mit dem ich unteranderem den dateityp auslesen möchte,
mein problem ist es jetzt das ich eine funktion schreiben muss mit der ich die Dateinamenserweiterung,
dem Dateityp zuordnen will...
KURZ:
Ich will die Dateinamenserweiterung nicht als *.exe sondern als Beschreibung der Dateinamenserweiterung, am besten halt über die registry.
Danke im Vorraus
MfG
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
| procedure TForm1.BitBtnSearchClick(Sender: TObject);
var dat : TDateTime;
sFileName : String;
begin
if txtpfad.Text = '' then begin
MessageDlg('Kein Pfad angegeben!',mtError,[mbOK],0)
end else begin
FindFirst(txtDateiname.Text, faAnyfile, searchREC);
Repeat
with Searchrec do begin
sFileName := Form2.DirectoryListBox1.Directory + '\' + searchRec.Name;
sFileTyp := '*.' +
ClientDataSet.Append;
ClientDataSet.FieldByName('Dateiname').AsString := searchRec.FindData.cFileName;
ClientDataSet.FieldByName('Pfad').AsString := sFileName;
ClientDataSet.FieldByName('Modidate').AsDateTime := FileDateToDateTime(Time);
ClientDataSet.FieldByName('Size').AsInteger:= searchrec.Size;
ClientDataSet.FieldByName('Version').AsString := GetVersion(sFileName);
ClientDataSet.Post;
end;
until Findnext (searchrec) <> 0;
FindClose(searchREC);
end;
end; |
