Tam Sürümü Göster: Delphi'de Klasör Gizleme-Gösterme
Sayfalar: 1
Delphi'de Klasör Gizleme-Gösterme Gönderen: dynamo Tarih: 26 April 2007 18:00:30
Bazı durumlarda önemli klasörleri bir programa ihtiyaç duymadan en kısa yoldan gizlemek için,attrib komutunu kullanabiliriz.attrib komutunun aldığı parametreler:
attrib -h -s -r -a
attrib +h +s +r +a
komut satırında attrib +h klasöradı klasörü gizler.attrib -h klasöradı gizli olan klasörü gösterir. h(hidden) parametresi tek başına kullanıldığında klasörü gizler.fakat kullanıcı Klasör seçenekleri--->Görünüm-->Gizle Dosya ve Klasörleri göster seçeneğini işaretlerse bu gizli klasörlere görebilir.s(system) parametresini de kullanırsak bu seçenek işaretli olsa bile gizli olan klasör görünmez.Ancak Korunan işletim sistemi dosyalrını gizle işareti kaldırılırsa gizlenmiş klasörler görünebilir.
Örnek d: sürücüsünde deneme klsörünü gizlemek için komut satırında:
attrib +h +s +r +a d:\deneme
Gizli olan klasörü göstermek için komut satırında attrib -h -s -r -a d:\deneme yazıp klasörü görünür hale getiriyoruz yada klasörü görünür hale getirmeden erişmek için Explorer'dan klasörün path'ini yazıp yani d:\deneme enter'lersek klasörün içine erişiriz.
Bu işlemleri Delphi'de WinExec Fonksiyonunu kullanrak yapalım:
WinExec(pchar('C:\WINDOWS\system32\cmd.exe /c attrib -h -s -r -a d:\deneme'),SW_HIDE);
WinExec(pchar('C:\WINDOWS\system32\cmd.exe /c attrib +h +s +r +a d:\deneme'),SW_HIDE);
Delphi'de ShellTreeView kullanarak istediğimiz klasörlerin yolunu Edit'e atıp klasör gizleme/gösterme için örnek bir program yapalım:
procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Edit1.Text:=ShellTreeView1.Path;
end;
gizle:
göster:
örnek proje ekte:
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: sanalboq Tarih: 06 May 2007 12:37:53
tamda böyle bişi arıodum cok tşk
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: Tr_C0D3R Tarih: 06 May 2007 12:43:41
umarım bu gizleme koduda işiniz yarar kısa kolay kullanımlı
FileSetAttr(edit1.text,faHidden); // edit1 Dosya yolu oluyor
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: Sky_Lab Tarih: 07 July 2007 13:54:18
tşk ler arkadaşlar
Bazı durumlarda önemli klasörleri bir programa ihtiyaç duymadan en kısa yoldan gizlemek için,attrib komutunu kullanabiliriz.attrib komutunun aldığı parametreler:
attrib -h -s -r -a
attrib +h +s +r +a
komut satırında attrib +h klasöradı klasörü gizler.attrib -h klasöradı gizli olan klasörü gösterir. h(hidden) parametresi tek başına kullanıldığında klasörü gizler.fakat kullanıcı Klasör seçenekleri--->Görünüm-->Gizle Dosya ve Klasörleri göster seçeneğini işaretlerse bu gizli klasörlere görebilir.s(system) parametresini de kullanırsak bu seçenek işaretli olsa bile gizli olan klasör görünmez.Ancak Korunan işletim sistemi dosyalrını gizle işareti kaldırılırsa gizlenmiş klasörler görünebilir.
Örnek d: sürücüsünde deneme klsörünü gizlemek için komut satırında:
attrib +h +s +r +a d:\deneme
Gizli olan klasörü göstermek için komut satırında attrib -h -s -r -a d:\deneme yazıp klasörü görünür hale getiriyoruz yada klasörü görünür hale getirmeden erişmek için Explorer'dan klasörün path'ini yazıp yani d:\deneme enter'lersek klasörün içine erişiriz.
Bu işlemleri Delphi'de WinExec Fonksiyonunu kullanrak yapalım:
WinExec(pchar('C:\WINDOWS\system32\cmd.exe /c attrib -h -s -r -a d:\deneme'),SW_HIDE);
WinExec(pchar('C:\WINDOWS\system32\cmd.exe /c attrib +h +s +r +a d:\deneme'),SW_HIDE);
Delphi'de ShellTreeView kullanarak istediğimiz klasörlerin yolunu Edit'e atıp klasör gizleme/gösterme için örnek bir program yapalım:
:
procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Edit1.Text:=ShellTreeView1.Path;
end;
gizle:
:
procedure TForm1.BitBtn1Click(Sender: TObject);
var dizin:string;
begin
dizin:=Edit1.Text;
WinExec(pchar('cmd.exe /c attrib +h +s' + dizin),SW_HIDE);
end;
var dizin:string;
begin
dizin:=Edit1.Text;
WinExec(pchar('cmd.exe /c attrib +h +s' + dizin),SW_HIDE);
end;
göster:
:
procedure TForm1.BitBtn2Click(Sender: TObject);
var dizin:string;
begin
dizin:=Edit1.Text;
Winexec(pchar('cmd.exe /c attrib -h -s ' + dizin),SW_HIDE);
end;
var dizin:string;
begin
dizin:=Edit1.Text;
Winexec(pchar('cmd.exe /c attrib -h -s ' + dizin),SW_HIDE);
end;
örnek proje ekte:
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: sanalboq Tarih: 06 May 2007 12:37:53
tamda böyle bişi arıodum cok tşk
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: Tr_C0D3R Tarih: 06 May 2007 12:43:41
umarım bu gizleme koduda işiniz yarar kısa kolay kullanımlı
FileSetAttr(edit1.text,faHidden); // edit1 Dosya yolu oluyor
Ynt: Delphi'de Klasör Gizleme-Gösterme Gönderen: Sky_Lab Tarih: 07 July 2007 13:54:18
tşk ler arkadaşlar