Проблема работы с кардридером

[dolphin705]

Привет, вобщем такая проблема пытаюсь узнать свободное дисковое пространство на носителе в кардридере, но возникает проблема если диска в нём нет, пробовал различные процедуры проверки на наличее устройства в нем та же история...

procedure TForm1.Button1Click(Sender: TObject);
var 
FreeBytesAvailableToCaller : TLargeInteger; 
FreeSize : TLargeInteger;
TotalSize : TLargeInteger;
begin
GetDiskFreeSpaceEx( 'f:',FreeBytesAvailableToCaller,Totalsize,@FreeSize );
if TotalSize = 0 then
ShowMessage('0')
else
ShowMessage('Не ноль!');
end;

Если носителя нет в кардридере то процедура возвращает "Не ноль!" хотя когда смотрошь свойства показывает что ноль занято и ноль свободно!

Да и вобще кард ридер странная штука, перезагружаешь компьютер - пропадает ошибка... но процедура возвращает - Не ноль!
Подскажите как быть...

[Пепел Феникса]

GetFreeSpaceForDrive
попробуйте её(надеюсь она есть в Делфи)

GetDiskFreeSpaceEx( 'f:',FreeBytesAvailableToCaller,Totalsize,@FreeSize);

разве там не три указателя?
или это борланд так прописал...

[dolphin705]

GetFreeSpaceForDrive нету, по краеней мере в D7.

function GetDiskFreeSpaceEx(lpDirectoryName: PChar;
var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;

в функции всё прописано верно

[Пепел Феникса]

function GetDiskFreeSpaceEx(lpDirectoryName: PChar;
var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;

странно как то борланд прописал...и var и PLargeInteger

попробуйте сами обнулять переменные перед использованием.

function FreeSpace(lpDirectoryName:PANSIChar;var lpFreeBytesAvailable:ULARGE_INTEGER;var lpTotalNumberOfBytes:ULARGE_INTEGER;
                   var lpTotalNumberOfFreeBytes:ULARGE_INTEGER):BOOL;stdcall;external 'Kernel32.dll' name 'GetDiskFreeSpaceExA';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var A1,A2,A3:ULARGE_INTEGER;
begin
 if FreeSpace('H:\',A1,A2,A3)
  then ShowMessage(IntToStr(A1.QuadPart)+' '+IntToStr(A2.QuadPart)+' '+IntToStr(A3.QuadPart))
  else ShowMessage('Неудачно);
end;

я делал так, все отлично.(как видите я сам написал заголовок функции, но это та же GetDiscFreeSpaceEx)

[dolphin705]

Злаполучная ошибка всётаки вылезла!

[Пепел Феникса]

а вы пробывали сейчас через мой код?
просто я проверял тоже на картридере.

[Marsel737]

dolphin705, а что try except уже не катит??

[dolphin705]

Этот код

function FreeSpace(lpDirectoryName:PANSIChar;var lpFreeBytesAvailable:ULARGE_INTEGER;var lpTotalNumberOfBytes:ULARGE_INTEGER;
var lpTotalNumberOfFreeBytes:ULARGE_INTEGER):BOOL;stdcall;external 'Kernel32.dll' name 'GetDiskFreeSpaceExA';

procedure TForm1.Button2Click(Sender: TObject);
var
A1,A2,A3:ULARGE_INTEGER;
begin
try
if FreeSpace('f:\',A1,A2,A3) then
ShowMessage(IntToStr(A1.QuadPart)+' '+IntToStr(A2.QuadPart)+' '+IntToStr(A3.QuadPart))
else
ShowMessage('Неудачно');
except
exit
end;
end;

тоже сначало выдаёт ошибку потом месаг - неудачно

Может проблема ещё в том что кард ридер в примтер встроен ещё???

[raxp]

проверил код Пепел Феникса на картридере ноута свого, працюэ...

[dolphin705]

А если попробовать отловить злаполучное сообщение об ошибке - диск отсутствует и обработать?