| Autor |
Beitrag |
sTk
Beiträge: 70
Win 2000, Win XP
Turbo Delphi Pro, D2005 PE, Lazarus
|
Verfasst: Di 12.09.06 09:22
Hi,
also ich suche eine Möglichkeit, die Anzahl der Festplatten zu ermitteln, die in einem Rechner stecken!
Also ich meine keine Lösung, die auf "getlogicaldrives" aufbaut, denn die liefert ja die logischen Laufwerke unter Windows.
Ich brauche die Anzahl der Festplatten nicht der Partitionen!!!
Danke und Gruß!
|
|
hibbert
 
Beiträge: 1007
WinServer2003, Win XP, Linux
D6 Pers, D05
|
Verfasst: Di 12.09.06 09:43
hi
hast du es schonmal bei den schweizern versucht?
www.swissdelphicenter.ch/de/tipsuchen.php_________________ I kunnen väl svara endast ja eller nej
Om i viljen eller nej
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 12.09.06 09:59
www.michael-puff.de/...er/Delphi/Programme/ -> SysInfo
Ist mit Code. Der für dich interessante Code dürfte in HDDInfo.pas stehen.
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Di 12.09.06 10:38
Versuch mal die folgende Funktion.
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| function GetHDDCount: integer;
var
f, i: integer;
begin
i := 0;
repeat
f := FileOpen('\\.\PHYSICALDRIVE' + IntToStr(i), fmOpenRead or fmShareDenyNone);
if f = -1 then break;
inc (i);
until false;
result := i;
end; | _________________ Ein Nutzer der Ecke 
|
|
sTk 
Beiträge: 70
Win 2000, Win XP
Turbo Delphi Pro, D2005 PE, Lazarus
|
Verfasst: Di 12.09.06 11:26
Titel: Danke!
Also unter delphi 2005 PE funktionieren beide Lösungsvorschläge!
Turbo Delphi sagt mir bei Luckies Vorschlag, dass er die HDDInfo.pas nicht compilieren kann!
Martins Code funktioniert in beiden Delphi Versionen!
Vielen Dank nochmal an euch beide!
|
|
OldGrumpy
Beiträge: 82
|
Verfasst: Di 12.09.06 11:47
Man sollte beim Lesezugriff auf \\.\PHYSICALDRIVE<x> aber beachten dass dazu aller Wahrscheinlichkeit nach Administratorrechte notwendig sind. (Vgl. MSDN zur CreateFile API, wenn man die direkt benutzt, sollte man die Remarks aufmerksam lesen  )
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 12.09.06 23:51
Titel: Re: Danke!
 sTk hat folgendes geschrieben: | Also unter delphi 2005 PE funktionieren beide Lösungsvorschläge!
Turbo Delphi sagt mir bei Luckies Vorschlag, dass er die HDDInfo.pas nicht compilieren kann! |
Was für Fehlermeldungen bringt denn Turbo Delphi?
|
|
sTk
Beiträge: 70
Win 2000, Win XP
Turbo Delphi Pro, D2005 PE, Lazarus
|
Verfasst: Mi 13.09.06 07:24
wie schon geschrieben:
HDDInfo.pas kann nicht compiliert werden!
Gruß, Steffen
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 13.09.06 09:05
Sonst gibt Turbo Delphi nichts als fehlermeldung aus? Keine markierte Zeile im Editor? Rein gar nichts?
|
|
