Imam problem! Neznam kako da rename-ujem folder u delphi-ju 7? Moze li neko pomoci?
Kako da preimenujem folder???
Zaključano
Zakačeno
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;
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;
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile('C:\Ime_Ovo_Foldera','C:\Se_Menja_U_Ime_Sto_Se_Napise_Ovde'); // :)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile('C:\Ime_Ovo_Foldera','C:\Se_Menja_U_Ime_Sto_Se_Napise_Ovde'); // :)
end;
pozzz
Potpis
SERVIA NOSTRUM REGNUM!