procedure TForm1.Button1Click(Sender: TObject); var var dwTemp1,dwTemp2: DWord; NResult: DWORD; begin new(NResult); GetVolumeInformation(PChar('g:\'), Nil, 0, @Result, dwTemp1, dwTemp2, Nil, 0); if Result = 0 then ShowMessage('CDROM is not Ready!'); end;
var
var
dwTemp1,dwTemp2: DWord;
NResult: DWORD;
begin
new(NResult);
GetVolumeInformation(PChar('g:\'), Nil, 0, @Result, dwTemp1, dwTemp2, Nil, 0);
if Result = 0 then
ShowMessage('CDROM is not Ready!');
end;