Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da preimenujem folder???

[es] :: Pascal / Delphi / Kylix :: Kako da preimenujem folder???

[ Pregleda: 1863 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.smin.sezampro.yu.



Profil

icon Kako da preimenujem folder???26.05.2006. u 16:13 - pre 218 meseci
Imam problem! Neznam kako da rename-ujem folder u delphi-ju 7? Moze li neko pomoci?
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.



Profil

icon Re: Kako da preimenujem folder???26.05.2006. u 19:04 - pre 218 meseci
Jedan nacin:
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;


procedure TForm1.Button1Click(Sender: TObject);
begin
  RenameDir('C:\Dir1', 'C:\Dir2');
end;
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.dialup.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com


Profil

icon Re: Kako da preimenujem folder???26.05.2006. u 19:24 - pre 218 meseci
Code:


procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile('C:\Ime_Ovo_Foldera','C:\Se_Menja_U_Ime_Sto_Se_Napise_Ovde');  // :)
end;



pozzz
SERVIA NOSTRUM REGNUM!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako da preimenujem folder???

[ Pregleda: 1863 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.