help me
Jak zrobić by katalog nie był dostępny
Wystarczy zmienić nazwę np 'c:\katalog' na 'c:\katalog.{21EC2020-3AEA-1069-A2DD-08002B30309D}'.
{21EC2020-3AEA-1069-A2DD-08002B30309D} jest identyfikatorem Panelu Sterowania
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var Rekord:TSHFileOpStructA;
begin
with Rekord do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
pFrom:='c:\katalog';
pTo:='c:\katalog.{21EC2020-3AEA-1069-A2DD-08002B30309D}';
end;
if SHFileOperation(Rekord)0 then
ShowMessage('Błąd')
end;
teraz mam taki problem chciałem zrobić żeby można było wpisac ścieżke w Edit1
w pFrom zmieniłem na : Edit1.VCLComObject
ale już w pTo nie wiem na co
pomocy bardzo mi na tym zależy {browar}