Kako u Delphiju promeniti ime fajla koje je pisano cirilicom (u latinicu ili cirilicu, nebitno)?
Preimenovanje fajla sa cirilicnim imenom
Zaključano
Zakačeno
Mislim da ce ovo da ti posluzi
Stavi dva TntEdit-a na formu i jedan Button
i za OnClick Button-a proceduru
ili prosto
i Font za TntEdit-e postavi (napisi) rucno MS Shell Dlg 2
Code:
function RenameFileW(const OldName, NewName: WideString): Boolean;
begin
Result := MoveFileW(PWideChar(OldName), PWideChar(NewName));
end;
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;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFileW(TntEdit1.Text, TntEdit2.Text);
end;
i Font za TntEdit-e postavi (napisi) rucno MS Shell Dlg 2
Hvala za ovo, ali sam ukapirao da meni pravi problem i to sto ja ime fajla (fajlova) dobijam pomocu FindFirst i FindNext, a TFileName je tipa String, a ne WideString. Sta da koristim da procitam imena svih fajlova u nekom folderu?
Treba ti WideFindFirst i WideFindNext i ako koristis TSearchRec
umesto toga TSearchRecW, a sve to se nalazi u TntSysUtils
deo Tnt paketa, pa ako si instalisao TNT nece biti problema,
je TNT nije vise free i sad je TMS, ali jos uvek mozes naci poslednju
besplatnu verziju TNT-a (progooglaj, mislim da ima na mustangpeak-u).
Toliko
Pozdrav
umesto toga TSearchRecW, a sve to se nalazi u TntSysUtils
deo Tnt paketa, pa ako si instalisao TNT nece biti problema,
je TNT nije vise free i sad je TMS, ali jos uvek mozes naci poslednju
besplatnu verziju TNT-a (progooglaj, mislim da ima na mustangpeak-u).
Toliko
Pozdrav
Hvala prijatelju!