Ich habe mich jetzt mal ein bisschen rangesetzt und eine schöne kleine Funktion geschrieben, die überprüft ob die eingegeben Datei eine
DLL-Datei ist, egal wie die geschrieben ist:
Delphi-Quellcode:
function isDll(Dateiname:
string): Boolean;
var
i : Integer;
s :
String;
begin
if(pos('
.',Dateiname) > 0)
then
begin
i := length(Dateiname);
while(Dateiname[i] <> '
.')
do dec(i);
s := lowercase(copy(Dateiname,i,99));
if length(s)=4
then
begin
if(pos('
.dll',s) > 0)
then
Result := true
else Result := false
end else Result := false
end
else
Result := false
end;
Auch wenn der der Dateiname .exe.dll oder
dll.exe heißt, kommt man zum richtigen Ergebnis.
Ist sicher ein bisschen umständlich programmiert, aber es läuft