Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak dadać literke ?
zero




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2003
Jak dadać literke ?

Jak dodać jeszcze jedno literkę np E do tego ?
Shell (" D:/jakiś program.exe " )
Bardzo proszę o odpowiedź.


_____________________________________________
serw

07-08-2003 20:25
Pokaż profil zero  Wyślij email do zero   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Jaką literkę, gdzie?
Powiedz co chcesz uzyskać.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

08-08-2003 00:32
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
zero




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2003
Literka

Chodzi mi o to, że jak włożę płytę Cd-rom, to żeby program rozpoznał czy to jest dysk D , czy E.
Chcę zrobić  w programie było odwołanie do dysku E i D.
Przykład. Masz dysk podzielony na partycje i co wtedy, zamiast płyty Cd-rom, wyskakuje ci dysk twardy.
U mnie jest D, a u kogoś będzie  E.
Konkretnie. Mam formatke nakładam przycisk, przycisk uruchamia program z płyty, ale albo z D, lub E.
Bo nie wiem jak zrobić inaczej.

Bardzo proszę pomóż jakoś.


_____________________________________________
serw

08-08-2003 09:28
Pokaż profil zero  Wyślij email do zero   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Tu masz opis funkcji:
GetDriveType

Funkcja GetDriveType zwraca informację o tym, czy dany dysk jest dyskiem wymiennym, CD-ROM, dyskiem sieciowym, czy innym.


Składnia:
UINT GetDriveType(LPCTSTR lpRootPathName);

Parametry:
lpRootPathName - litera dysku. Jeżeli ten parametr jest równy NULL, funkcja użyje litery dysku bieżącej ścieżki.

Zwracane wartości:
Mogą przyjąć jedną z wartości:

Wartość  Znaczenie
0  Dysk nie może być określony.
1  Dysk nie istnieje.
DRIVE_REMOVABLEDysk jest dyskiem wymiennym.

DRIVE_FIXED  Dysk jest dyskiem Niewymiennym.
DRIVE_REMOTEDysk jest dyskiem sieciowym.
DRIVE_CDROM  Dysk jest dyskiem CD-ROM.
DRIVE_RAMDISKDysk jest dyskiem wirtualnym (RAM).

A tu przykład wykorzystania:
Sekcja deklaracji:

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal lpString As String) As Long

Przykładowa procedura:

Sub WyliczDyski()
Dim i As Long, j As Long
Dim strTemp As String
Dim dyski() As Variant
    j = 0
    For i = 65 To 90
        If CzyDysk(Chr(i) & ":" Then
            strTemp = strTemp & Dysk(Chr(i) & ":\" & vbCr
            ReDim Preserve dyski(j)
            dyski(j) = Chr(i) & ":\"

            j = j + 1
        End If
    Next i
    MsgBox "Zainstalowanych dysków: " & vbTab & UBound(dyski()) + 1 & vbCr & vbCr & _
            "z tego: " & vbCr & _
            strTemp
End Sub

Function CzyDysk(sc As String) As Boolean
Dim l As Long
    l = GetDriveType(sc)
        Select Case l
            Case 0, 1
                CzyDysk = False
            Case 2 To 6
                CzyDysk = True
        End Select
End Function

Function Dysk(sc As String) As String
Dim l As Long
    l = GetDriveType(sc)
        Select Case l
            Case 0, 1
                Dysk = sc & vbTab & "- nie istnieje lub nie można go określić!"

            Case 2
                Dysk = sc & vbTab & "- jest dyskiem wymiennym."
            Case 3
                Dysk = sc & vbTab & "- NIE jest dyskiem wymiennym."
            Case 4
                Dysk = sc & vbTab & "- jest dyskiem sieciowym."
            Case 5
                Dysk = sc & vbTab & "- to CD-ROM."
            Case 6
                Dysk = sc & vbTab & "- dysk wirtualny (RAM)."
        End Select
End Function


Ten i inne przykłady znajdziesz w materiałach (*.hlp) dostępnych pod adresem: http://losmac.republika.pl/aplikacje/materialy.html

Polecam też moją książkę: http://helion.pl/ksiazki/ofvba.htm


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

08-08-2003 09:44
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
zero




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2003
Odp.

Dziękuje za odpowiedź.

Zapraszam na stronę : www.serwkomp.org.pl

Ze stroną mogą być problemy, z powodu chłopców, którzy cały czas robią coś na serwerze.


_____________________________________________
serw

08-08-2003 09:52
Pokaż profil zero  Wyślij email do zero   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1