Samanalevi Netkafe Anasayfa

Klasörleri Kopyalamak/tasimak/silmek

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 26761 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Klasörleri Kopyalamak/Tasimak/Silmek (Windows fonksiyonlarini kullanarak)
uses shellapi
...
function copydir(von,zieldir: string): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(von+#0);
pTo := PChar(zieldir)
end;
Result:=(0=ShFileOperation(fos));
end;

function movedir(von,zieldir: string): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_MOVE;
fFlags := FOF_FILESONLY;
pFrom := PChar(von+#0);
pTo := PChar(zieldir)
end;
Result:=(0=ShFileOperation(fos));
end;

function deldir(dir: string): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir+#0);
end;
Result:=(0=ShFileOperation(fos));
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
{'D:\download' -> 'E:\'}
if copydir('d:\download','e:\') then
begin
ShowMessage('Kopyalama basarili');
end;

Windows ve Sistem klasörlerinin alinmasi
{
Her bilgisayarda Windows c:\windows klasörune
kurulmamis olabilir
}

function GetWinDir: string;
var
dir: array [0..max_path] of char;
begin
GetWindowsDirectory(dir, max_path);
result:=StrPas(dir);
end;

function GetSysDir: string;
var
dir: array [0..max_path] of char;
begin
GetSystemDirectory(dir, max_path);
result:=StrPas(dir);
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=GetWinDir;
label2.caption:=GetSysDir;
end;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Denetim Masası Uygulamasını Çalıştırmak	seasparrow
Harddiskin Seri Numarasının Bulmak	seasparrow
Ip Adreslemeye Bakış	seasparrow
Scanf İşlevi	seasparrow
Vb'de Arıtmetıksel Operatorler	beykozlu
Değişkenler	seasparrow
Asp De Otomatik Yönlendirme	seasparrow
Zamana Göre Selamlama	seasparrow
Explorerda Bir Web Sitesini Açma	seasparrow
Çift Tıkla Maximize	seasparrow
Silinmiş Dosyaları Gösterme	seasparrow
Windows Lisans Bilgilerinin (isim Ve Şirket) Bulunması	seasparrow
Bir Klasörün Toplam Boyutu	seasparrow
Tl, Kuruş Şeklindeki Sayıyı Yazıya Çevirme (vb.net)	beykozlu
Karakter İşleme	seasparrow
Algoritmalar	seasparrow
Programım Windows Açılışında Otomatik Çalışsın	seasparrow
Formun Arkasına Resmi Döşemek	seasparrow
Modemle Telefon No Çevirme	Ayhans
Hata (err) Nesnesı	admin