Új hozzászólás Aktív témák

• #799 g4dg3t senior tag gammar #793

  Új Válasz 2005-05-18 00:31:45 #799

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  g4dg3t

  senior tag

  válasz gammar #793 üzenetére

  XP alatt nekem a kovetkezo keppen sikerult megoldani a meghajto talcajanak kinyitasat/becsukasat:
  
  

  
  ...
  const
    FILE_DEVICE_MASS_STORAGE = $2D;
    METHOD_BUFFERED          = 0;
    FILE_READ_ACCESS         = 1;
  
    IOCTL_STORAGE_EJECT_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($202 shl 2)                      OR
                                (METHOD_BUFFERED);
    IOCTL_STORAGE_LOAD_MEDIA  = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($203 shl 2)                      OR
                                (METHOD_BUFFERED);
  ...
  procedure TForm1.Button1Click(Sender: TObject);
  var
    CD_DVD_Handle: THandle;
    ret: DWORD;
  begin
    //Ertelem szeruen F: helyere a sajat meghajtod betujele...szebb ha irsz egy fuggvenyt ami lekerdezi
    CD_DVD_Handle:=CreateFile(PChar('\\.\F:'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
  
    if CD_DVD_Handle <> INVALID_HANDLE_VALUE then begin
      //Talca kinyit
      DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_EJECT_MEDIA,nil,0,nil,0,ret,nil);
      //Talca becsuk
      DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_LOAD_MEDIA,nil,0,nil,0,ret,nil);
  
      CloseHandle(CD_DVD_Handle);
    end;
  end;
  ...
  

Új hozzászólás Aktív témák