Mislim da ce ovo da ti posluzi
Code:
function RenameFileW(const OldName, NewName: WideString): Boolean;
begin
Result := MoveFileW(PWideChar(OldName), PWideChar(NewName));
end;
Stavi dva TntEdit-a na formu i jedan Button
i za OnClick Button-a proceduru
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
Old, New: WideString;
begin
Old := TntEdit1.Text;//staro ime
New := TntEdit2.Text;//novo ime
RenameFileW(Old, New);
end;
ili prosto
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFileW(TntEdit1.Text, TntEdit2.Text);
end;
i Font za TntEdit-e postavi (napisi) rucno MS Shell Dlg 2