[ milnen @ 03.07.2007. 20:29 ] @
Kako u Delphiju promeniti ime fajla koje je pisano cirilicom (u latinicu ili cirilicu, nebitno)?
[ milance_kg @ 03.07.2007. 21:08 ] @
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
[ milnen @ 03.07.2007. 21:25 ] @
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?
[ milance_kg @ 03.07.2007. 21:35 ] @
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
[ milnen @ 03.07.2007. 21:45 ] @
Hvala prijatelju!