MegaLab.it

Programma con delphi 7.Riesco a modficare tutti i nomi ed estensioni di tutti i file di una cartella, ma non ho capito come modificare solo le estensioni o inserie le estensioni mancanti in tutti i file (in una cartella ho i file senza estensione, sono i file copiati degli sfondi di benvenuto di w10). Il codice dove cambio nome ed estensione è il seguente :

procedure TForm1.Button1Click(Sender: TObject);
var
searchResult : TSearchRec;
i:integer;
filles:string;
begin
i:=0;
if FindFirst(label1.Caption+'\*.*', faAnyFile, searchResult) = 0 then
begin
repeat
inc (i);
if i > 2 then begin
filles:= searchResult.Name;
//label1.caption contiene il phat dove si trovano i file - files è il nome dei file cambiati associati ad un numero - este è il nome dell'estensione
RenameFile(label1.Caption+'\'+filles,label1.Caption+’\files'+inttostr(i)+'.'+ este.text);
end;
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
fle.Update;
end;

nel programma uso i componenti combo, dir, filelist per spostarmi nelle cartelle e memorizzzare la phat
per riassumere. Vorrei poter cambiare o inserire solo le estensioni lasciando integri i nomi. So che dovrei usare i caratteri jolly ma non ho capito la procedura o i comandi. Grazie