Re: Sprawdzanie dyskietki

Thread View: pl.comp.lang.delphi

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Piotr Kodzis Fri, 12 Sep 1997 00:00

#46

Author: Piotr Kodzis
Date: Fri, 12 Sep 1997 00:00

21 lines
896 bytes

>Jak mog� sprawdzi�, czy w stacji dyskietek jest dyskietka

function DiskInDrive(Drive: Char): Boolean;
var
  ErrorMode: Word;
begin
  Result := False;
  Drive := UpCase(Drive);
  if not (Drive in ['A'..'Z']) then
    Exit;
  ErrorMode := SetErrorMode (SEM_FailCriticalErrors);
  try
    Application.ProcessMessages;
    if DiskSize(Ord(Drive) - Ord('A') + 1) <> -1 then
      Result := True
  finally
    SetErrorMode(ErrorMode);
    Application.ProcessMessages;
  end;
end;

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads