Delphi - vycet disku a mechaniky + winxp SP2 .. nefunguje!

[Borg2of3]

nevite nekdo co s tim?Mam v programu takovouhle vecicku:
....
DWORD(Drives) := GetLogicalDrives;
for D := 'A' to 'Z' do
begin
if (Ord(D) - Ord('A')) in Drives then
begin
index:=GetDriveType(PChar(D+':\'));
....
ktera mi vycte vsechny mechaniky a media zapojeny v pc.. na SP1 to funfuje.. funguje to i na win2k, win98SE.. . ale na SP2 u winXP to haze chybu, ze v discich nejsou vlozeny media... (disky i cdromky)

[pavel.minarik]

teď jsem to prubnul u sebe a bez chyby, SP2 mám

[Borg2of3]

kamos ma SP2 a haze mu to chyby.. nikde jinde jsem to jeste netestoval.. a je mozny ze to neni v tomhle.. ale nevim kde jinde v kodu..kdyz ta chyba mu skace jen u disku... no jinak jestli chces.. zkus primo muj program.. a napis jestli blbne nebo ne.

http://borg.webz.cz/alesoft/computer/b-panel.htm

napadlo me jestli to teda nedela tohle:
diskfree(26)
na zjisteni volnyho mista na disku... jenze on mi psal ze mu toho haze chybu i na CDROM.. a v programu mam osetreny, aby CDROM mechaniky na volny misto netestoval.....

[pavel.minarik]

vyzkoušej si to u něj krokovat step by step s trace into a zjištíš, která instrukce to spáchá