:: |
Autor |
Poruka |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
Da bi smo promenili ime nekog fodera koristićemo proceduru RenameDir(). Prethodno je potrebno da u uses klauzulu dodate modul ShellApi. Ovaj unit nam je potreban jer sadrži strukturu TSHFileOpStruct.
Code: |
uses
ShellApi;
...
procedure RenameDir(DirFrom, DirTo: string);
var shellinfo: TSHFileOpStruct;
begin
with shellinfo do
begin
Wnd := 0;
wFunc := FO_RENAME;
pFrom := PChar(DirFrom);
pTo := PChar(DirTo);
fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
FOF_SILENT or FOF_NOCONFIRMATION;
end;
SHFileOperation(shellinfo);
end;
|
Primer korišćenja procedure:
Code: |
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameDir('C:\Muzika', 'C:\Nova Muzika');
end;
|
Napomena: Ova procedura radi uvek. U slučaju da folder koji želite da preimenujete ne postoji, procedura će ignorisati grešku, tj. neće izbaciti poruku o eventualnoj grešci.
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
Vi ne možete otvarati nove teme u ovom forumu Vi ne možete odgovarati na teme u ovom forumu Vi ne možete menjati Vaše poruke u ovom forumu Vi ne možete brisati Vaše poruke u ovom forumu Vi ne možete glasati u anketama u ovom forumu Vi ne možete postavljati fajlove u ovom forumu Vi ne možete preuzeti fajlove sa ovog foruma
|
|