removable laufwerk anhalten oder übersetzung aus C++

ramses · Hält's aus hier Beiträge: 2

hallo,

ich bräuchte dringend Eure Hilfe !

wie kann man mit Delphi code einen Laufwerk zuverlässig unter Windows 2000 anhalten ?
Z.B. eine compact flash Karte oder USB Stick, die als "removable" laufwerk aufscheint.

das kann man sonst aus Windoze machen indem man die grüne Pfeile in der taskbar anklickt und man wählt "Laufwerk X anhalten".

Ich will es aber aus mein Progy aus machen :-)

vielen dank für die Tips !

habe hier was für C++ gefunden. kann wer übersetzen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:

    // Prototypes

    BOOL EjectVolume(TCHAR cDriveLetter);

    HANDLE OpenVolume(TCHAR cDriveLetter);
    BOOL LockVolume(HANDLE hVolume);
    BOOL DismountVolume(HANDLE hVolume);
    BOOL PreventRemovalOfVolume(HANDLE hVolume, BOOL fPrevent);
    BOOL AutoEjectVolume(HANDLE hVolume);
    BOOL CloseVolume(HANDLE hVolume);

    LPTSTR szVolumeFormat = TEXT("\\\\.\\%c:");
    LPTSTR szRootFormat = TEXT("%c:\\");
    LPTSTR szErrorFormat = TEXT("Error %d: %s\n");

    void ReportError(LPTSTR szMsg)
    {
        _tprintf(szErrorFormat, GetLastError(), szMsg);
    }

    HANDLE OpenVolume(TCHAR cDriveLetter)
    {
        HANDLE hVolume;
        UINT uDriveType;
        TCHAR szVolumeName[8];
        TCHAR szRootName[5];
        DWORD dwAccessFlags;

        wsprintf(szRootName, szRootFormat, cDriveLetter);

        uDriveType = GetDriveType(szRootName);
        switch(uDriveType) {
        case DRIVE_REMOVABLE:
            dwAccessFlags = GENERIC_READ | GENERIC_WRITE;
            break;
        case DRIVE_CDROM:
            dwAccessFlags = GENERIC_READ;
            break;
        default:
            _tprintf(TEXT("Cannot eject.  Drive type is incorrect.\n"));
            return INVALID_HANDLE_VALUE;
        }

        wsprintf(szVolumeName, szVolumeFormat, cDriveLetter);

        hVolume = CreateFile(   szVolumeName,
                                dwAccessFlags,
                                FILE_SHARE_READ | FILE_SHARE_WRITE,
                                NULL,
                                OPEN_EXISTING,
                                0,
                                NULL );
        if (hVolume == INVALID_HANDLE_VALUE)
            ReportError(TEXT("CreateFile"));

        return hVolume;
    }

    BOOL CloseVolume(HANDLE hVolume)
    {
        return CloseHandle(hVolume);
    }

    #define LOCK_TIMEOUT        10000       // 10 Seconds
    #define LOCK_RETRIES        20

    BOOL LockVolume(HANDLE hVolume)
    {
        DWORD dwBytesReturned;
        DWORD dwSleepAmount;
        int nTryCount;

        dwSleepAmount = LOCK_TIMEOUT / LOCK_RETRIES;

        // Do this in a loop until a timeout period has expired
        for (nTryCount = 0; nTryCount < LOCK_RETRIES; nTryCount++) {
            if (DeviceIoControl(hVolume,
                                FSCTL_LOCK_VOLUME,
                                NULL, 0,
                                NULL, 0,
                                &dwBytesReturned,
                                NULL))
                return TRUE;

            Sleep(dwSleepAmount);
        }

        return FALSE;
    }

    BOOL DismountVolume(HANDLE hVolume)
    {
        DWORD dwBytesReturned;

        return DeviceIoControl( hVolume,
                                FSCTL_DISMOUNT_VOLUME,
                                NULL, 0,
                                NULL, 0,
                                &dwBytesReturned,
                                NULL);
    }

    BOOL PreventRemovalOfVolume(HANDLE hVolume, BOOL fPreventRemoval)
    {
        DWORD dwBytesReturned;
        PREVENT_MEDIA_REMOVAL PMRBuffer;

        PMRBuffer.PreventMediaRemoval = fPreventRemoval;

        return DeviceIoControl( hVolume,
                                IOCTL_STORAGE_MEDIA_REMOVAL,
                                &PMRBuffer, sizeof(PREVENT_MEDIA_REMOVAL),
                                NULL, 0,
                                &dwBytesReturned,
                                NULL);
    }

    AutoEjectVolume(HANDLE hVolume)
    {
        DWORD dwBytesReturned;

        return DeviceIoControl( hVolume,
                                IOCTL_STORAGE_EJECT_MEDIA,
                                NULL, 0,
                                NULL, 0,
                                &dwBytesReturned,
                                NULL);
    }

    BOOL EjectVolume(TCHAR cDriveLetter)
    {
        HANDLE hVolume;

        BOOL fRemoveSafely = FALSE;
        BOOL fAutoEject = FALSE;

        // Open the volume.
        hVolume = OpenVolume(cDriveLetter);
        if (hVolume == INVALID_HANDLE_VALUE)
            return FALSE;

        // Lock and dismount the volume.
        if (LockVolume(hVolume) && DismountVolume(hVolume)) {
            fRemoveSafely = TRUE;

            // Set prevent removal to false and eject the volume.
            if (PreventRemovalOfVolume(hVolume, FALSE) &&
                AutoEjectVolume(hVolume))
                fAutoEject = TRUE;
        }

        // Close the volume so other processes can use the drive.
        if (!CloseVolume(hVolume))
            return FALSE;

        if (fAutoEject)
            printf("Media in Drive %c has been ejected safely.\n",
                   cDriveLetter);
        else {
            if (fRemoveSafely)
                printf("Media in Drive %c can be safely removed.\n",
                cDriveLetter);
        }

        return TRUE;
    }

    void Usage()
    {
        printf("Usage: Eject <drive letter>\n\n");
        return ;
    }

    void main(int argc, char * argv[])
    {
        if (argc != 2) {
            Usage();
            return ;
        }

        if (!EjectVolume(argv[1][0]))
            printf("Failure ejecting drive %c.\n", argv[1][0]);

        return ;
    }

lg
ramsi

Ehemaliges Mitglied Erhaltene Danke: 1

Ich habe den C-Code bloß überflogen, aber schwierig sieht er nicht aus. Das müsstest sogar du nach Delphi umsetzen können.

Ehemaliges Mitglied Erhaltene Danke: 1

Anhalten? Meinst du nicht eher "auswerfen"? Eventuell nur ein Hinweis für die weitere Suche im Forum oder bei Google.

Ehemaliges Mitglied Erhaltene Danke: 1

Na ja, "Anhalten" könnte man beim USB-Stick sicher durchgehen lassen.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich kann nur was "anhalten", was sich bewegt. Also eine Festplatte oder CD-ROM (ob es Sinn macht und es geht, sei mal dahingestellt.

). Bei einem USB Stick bewegt sich aber nichts. Den kann ich "auswerfen" im Sinne von "abmelden" unter Windows.

Ehemaliges Mitglied Erhaltene Danke: 1

Nun sei doch mal nicht so pingelig!

Chatfix · Verfasst: Fr 11.06.04 08:35

Windows nennt es "Hardware sicher entfernen" und die Aktion wird mit dem Button "Beenden" abgeschlossen. Wobei sich Beenden auf das Gerät bezieht.

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

ramses · Hält's aus hier Beiträge: 2

hi,

ob anhalten oder auswerfen ist doch egal, oder ? :roll:

jeder weiss worum es geht....

leider habe nichts gefunden (google/forum), was unter W2K funktioniert.

vielleicht findet sich jemand der mir helfen kann...

danke

lg
ramses

Ehemaliges Mitglied Erhaltene Danke: 1

Wie gut ist denn deine Kenntnis der C-Syntax, @ramses? Bei speziellen Sachen kann man dir sicher helfen, aber den eingangs von dir abgedruckten Code müsstest auch du nach Delphi übersetzen können. So schwer ist der nicht. Ist hauptsächlich nur eine Frage der Syntax und der benutzten API-Funktionen. Aber die gibt´s IMHO ab Delphi 5.

Den Teil

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

    BOOL EjectVolume(TCHAR cDriveLetter);

    HANDLE OpenVolume(TCHAR cDriveLetter);
    BOOL LockVolume(HANDLE hVolume);
    BOOL DismountVolume(HANDLE hVolume);
    BOOL PreventRemovalOfVolume(HANDLE hVolume, BOOL fPrevent);
    BOOL AutoEjectVolume(HANDLE hVolume);
    BOOL CloseVolume(HANDLE hVolume);

kannst du schon mal weglassen, das sind nur die Deklaration der späteren Funktionen. Und das brauchst du bei Delphi nicht in dem Sinn.

Ansonsten: \\ ist in Delphi nur ein Backslash \, da der \ in C zum "escapen" ("Entwerten") von speziellen Zeichen benutzt wird. Kennst du evtl. auch von PHP.

Gast Erhaltene Danke: 1

Eventuell wird es doch gebraucht, dann als forward deklarieren.

markieren

Delphi-Quelltext

1:	function OpenVolume(cDriveLetter: TCHAR): HANDLE; forward;

Ehemaliges Mitglied Erhaltene Danke: 1

Vertrau mir. Das ist ´ne Konsolenanwendung. Und da kommt wie bei C

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

    void main(int argc, char * argv[])
    {
        if (argc != 2) {
            Usage();
            return ;
        }

        if (!EjectVolume(argv[1][0]))
            printf("Failure ejecting drive %c.\n", argv[1][0]);

        return ;
    }

auch in Delphi das

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

begin
  if(paramcount = 2) then
  begin
    Usage;
    exit;
  end;

  if(not EjectVolume(paramstr(1)[1]) then
    WriteLn(Format('Failure ejecting drive %d',[paramstr(1)[1]]));
end.

zuletzt.

PS: Und selbst wenn man den Code für eine VCL-Anwendung umsetzt - Da im C-Beispiel die Funktion vor der main()-Funktion deklariert sind, gibt es für ein Forwarding keinen Grund.

Gast Erhaltene Danke: 1

Ja und?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure foo;
begin
 foo2;
end;

procedure foo2;
begin
 foo;
end;

begin
 foo;
end.

Ist zwar (so) unsinnig, aber trotzdem werden hier forward-deklarationen benötigt. Ich habs mir jetzt nicht angesehen, aber prinzipiell möglich wäre es schon.

Ehemaliges Mitglied Erhaltene Danke: 1

Ja, ist ja schon gut. Ich sage nur: Ich habe mir den Quellcode angesehen, und in diesem Beispiel ist Forwarding unnötig, da alle Funktionen in der "richtigen Reihenfolge" deklariert wurden.

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

Äh,

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//in C
if (argc != 2) {  
            Usage();  
            return ;  
        }  

//müsste das in Delphi nicht so heißen?
 if(paramcount <> 2) then  //und nicht "= 2", "!" ist doch Verneinung, oder?
  begin  
    Usage;  
    exit;  
  end;

Wollt´s nur mal gesagt haben.

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

Ehemaliges Mitglied Erhaltene Danke: 1

Nein, dass passt schon, denn in C zählt IMHO das eigene Programm (arg[0]) mit. Darum wird die Existenz von 2 Parametern (arg[0], arg[1]) abgefragt, wobei später dann nur noch "arg[1]" eine Rolle spielt. Das siehst du auch, wenn du dir die Prozedur "Usage" anschaust, die ja die Syntax anzeigt:

markieren

Quelltext

1:
2:
3:
4:
5:

    void Usage()
    {
        printf("Usage: Eject <drive letter>\n\n");
        return ;
    }

Und darum sieht es in Delphi anders aus, weil dort der eigene Name zwar auch in "paramstr(0)" steckt, aber dieser Parameter wird nicht mitgezählt. Zur Anzeige der Syntax wäre daher

markieren

Delphi-Quelltext

1:	if(paramcount < 1) then { ... }

oder eben

markieren

Delphi-Quelltext

1:	if(paramcount = 0) then { ... }

Ungleich ginge auch, davon abgesehen.

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

Ok, wieder was gelernt.

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

tigger · Beiträge: 25 Win 2k, XP Pro

kann mir das jemand ganz übersetzen oder sagen, ob ich diesen c quelltext auch in delphi kompilieren und unter pascal ansprechen kann

wär sehr nett, ich versteh da kein wort

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme