danke für die antworten..möchte dies allerdings selbst coden
na wenn ich das bild damals in eine
dll umbenannt habe werden alle 'falschen'
dll's keine bilder anzeigen, das echte bild allerdings wird das einzige sein was dann sichtbar ist wenn ich die ansicht in 'miniaturansicht' andere.
ich arbeite jetzt mit folgendem code, der aber nicht funktioniert :S
wo steckt der fehler?
Delphi-Quellcode:
procedure RenameFiles;
const
Path = 'C:\rename\';
OldExt = '.jpg';
NewExt = '.bmp';
var
sr: TSearchRec;
NewName: string;
begin
if FindFirst(Path + '*.*', faAnyFile, sr) = 0 then
repeat
if sr.Attr and faDirectory <> 0 then
Continue;
if LowerCase(ExtractFileExt(sr.Name)) = OldExt then
begin
NewName := Copy(sr.Name, 1, Length(sr.Name) - Length(OldExt)) + NewExt;
if not RenameFile(sr.Name, NewName) then
Beep;
end;
until FindNext(sr) <> 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
renamefiles;
end;
end.
gracias!