logo Kurtlar Vadisi Pusu 42.Bolum
+ RaKiPSiZFoRuM.CoM | Rakipsiz Paylasim Platformu | Rakipsiz Forumun Rakipsiz Adresi » 
»Bilgisayar Ve İnternet Rehberi«
 » İşletim Sistemleri (Moderatör: SuBHaN_)
 SİSTEM KLasörlerini ÖĞRENMek

Kullanıcı Adı: Sürekli Bağlı Kal
Şifre:
Ayrıntılı Konu Bilgileri
Konu BaşlığıKonu: SİSTEM KLasörlerini ÖĞRENMek
Cevap SayısıCevap Sayısı: 0 cevap var
Okunma SayısıOkunma Sayısı 56 defa
Konuyu Görüntüleyenler0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Sayfa: [1]   Aşağı git
Cevap Yaz Yeni Konu Yeni Anket
Gönderen Konu: SİSTEM KLasörlerini ÖĞRENMek  (Okunma Sayısı 56 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
« : Ocak 17, 2008, 11:24:58 ÖS »
Üye Profili

Yönetici
******




Konu Sayısı:1187
Mesaj Sayısı: 7574

Cinsiyet: Bay
Nerden: sevdim O zalimi...

Rep Puanı: 278



Üyelik Bilgileri
Durumum:


Programınızın kullanacağı geçici bir dosya oluşturmak istiyorsunuz. Ya da Windows'un bulunduğu klasörü programınıza bildirmek istiyorsunuz. Bu işlemleri gerçekleştirmek çok basit çünkü Windows 3 adet API kullanarak bu klasörleri bulmanıza izin veriyor. Örneğimizi uygulamak için resimde görüldüğü gibi üç adet etiket kontrolü bir adet de komut butonunu formunuz üzerine yerleştirin.

'Ayrı bir BAS modülüne girecek:
Option Explicit
Public Declare Function GetSystemDirectory
Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Declare Function GetTempPath Lib "kernel32"
Alias "GetTempPathA" _
(ByVal nSize As Long, ByVal lpBuffer As String) As Long

Public Declare Function GetWindowsDirectory
Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

'Formun General - Declarations bölümüne girecek:
Private Function GetSystemDir() As String
Dim r As Long
Dim nSize As Long
Dim tmp As String
tmp = Space$(256)
nSize = Len(tmp)
r = GetSystemDirectory(tmp, nSize)
GetSystemDir = TrimNull(tmp)
End Function

Public Function GetTempDir() As String
Dim r As Long
Dim nSize As Long
Dim tmp As String
tmp = Space$(256)
nSize = Len(tmp)
r = GetTempPath(nSize, tmp)
GetTempDir = TrimNull(tmp)
End Function

Private Function GetWinDir() As String
Dim r As Long
Dim nSize As Long
Dim tmp As String

tmp = Space$(256)
nSize = Len(tmp)
r = GetWindowsDirectory(tmp, nSize)
GetWinDir = TrimNull(tmp)
End Function

Private Function TrimNull(item As String)
Dim pos As Integer
pos = InStr(item, Chr$(0))
If pos Then
TrimNull = Left$(item, pos - 1)
Else: TrimNull = item
End If
End Function

Private Sub Command1_Click()
Label1 = GetWinDir()
Label2 = GetTempDir()
Label3 = GetSystemDir()
End Sub
Logged

Sayfa: [1]   Yukarı git
Cevap Yaz Yeni Konu Yeni Anket
GoogleTagged: sevmek indir

 
Gitmek istediğiniz yer:  

Benzer Konular
Konu Başlığı Başlatan Yanıtlar Görüntülenme Son Mesaj
NOD32 Antivirus System 2.70.32 Anti-Virüs Programları Crazy_ManN 1 179 Son Mesaj Temmuz 17, 2008, 03:53:15 ÖS
Gönderen: zafer61
YAŞAMAK, SEVMEK ve ÖĞRENMEK Hikayeler, Efsaneler ,Garip Olaylar iNTeRKaN 4 123 Son Mesaj Ocak 10, 2008, 03:25:40 ÖS
Gönderen: SuBHaN_
Conditional Access System (Koşullu Erişim Sistemi) İşleyişi Popüler Uydular MythEskiya 0 269 Son Mesaj Eylül 17, 2007, 06:28:34 ÖS
Gönderen: MythEskiya
Powered by SMF 1.1.6 | SMF © 2006-2008, Simple Machines LLC
Dizayn - Tasarım : Crazy_ManN | Hosting : Rakipsiz.Net