{"id":160,"date":"2007-05-12T16:24:26","date_gmt":"2007-05-12T14:24:26","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/disk-in-drive\/"},"modified":"2007-05-12T16:24:28","modified_gmt":"2007-05-12T14:24:28","slug":"disk-in-drive","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/disk-in-drive\/","title":{"rendered":"Disk In Drive"},"content":{"rendered":"

Q:
\nHow to check if there’s a Disk in a Drive?
\n<\/em><\/p>\n

A:
\n[code lang=”delphi”]function DiskInDrive(Drive: Char): Boolean;
\nvar
\n ErrorMode: word;
\nbegin
\n { make it upper case }
\n if Drive in [‘a’..’z’] then Dec(Drive, $20);
\n { make sure it’s a letter }
\n if not (Drive in [‘A’..’Z’]) then
\n raise EConvertError.Create(‘Not a valid drive ID’);
\n { turn off critical errors }
\n ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
\n try
\n { drive 1 = a, 2 = b, 3 = c, etc. }
\n if DiskSize(Ord(Drive) – $40) = -1 then
\n Result := False
\n else
\n Result := True;
\n finally
\n { restore old error mode }
\n SetErrorMode(ErrorMode);
\n end;
\nend;
\n[\/code]<\/p>\n

[tags]Delphi, Hardware, File[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Q: How to check if there’s a Disk in a Drive? A: [code lang=”delphi”]function DiskInDrive(Drive: Char): Boolean; var ErrorMode: word; begin { make…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,99,842],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2A","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/160"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=160"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/160\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=160"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=160"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=160"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}