Samanalevi Netkafe Anasayfa

Klasörleri Kopyalamak/tasimak/silmek

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 26308 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
Akarak Kaybolan Yazılar	seasparrow
Web Adresini Açmak	seasparrow
Değişkenler	seasparrow
Text1 İçeriği Tex' Ye Nasıl Kopyalanır	beykozlu
Bilgisayarın Ip Adresini Bulmak	seasparrow
Kredi Kartı Kontrolu	seasparrow
Lıstbox Da Tüm Elemanlar Nasıl Seçilir.	beykozlu
Ip Adreslemeye Bakış	seasparrow
Hangı Kullanıcı Logın Yaptı..	beykozlu
Kayan Yazı (form Captıon'a)	beykozlu
Vb'de Arıtmetıksel Operatorler	beykozlu
Explorerda Bir Web Sitesini Açma	seasparrow
Çalışan Bir Exe Nin Silinmesi	seasparrow
Sql Tablolarda Değişiklik Yapmak	beykozlu
Windows Lisans Bilgilerinin Alınması	seasparrow
Dizi Değişken Fonksiyonu	seasparrow
Memo'da Cursorun Yerini Bulma	seasparrow
Belgeler Menüsünü Temizleme	seasparrow
Hata (err) Nesnesı	admin
C# Ta Menülerı Kopyalama	onur_1518