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

• #839 net84 őstag gammar #837

  Új Válasz 2005-06-18 09:42:19 #839

  Ú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

  

  net84

  őstag

  válasz gammar #837 üzenetére

  hűha! egyből a közepébe!
  vagy keresel egy előre megírt Joy port (vagy párh.port) vezérlő progirészletet, vagy fogod és megírsz egy lekérdező ''algoritmust''
  oszt onnantól meg meg már sima kiválasztásos rendszerbe (if) megírod, hogy mire mit csináljon. A nehézség a Joy-nál az, hogy potival működik, és elég nehéz meghatározni, hogy mekkora mozgatásra fog működésbe lépni, mivel az lpt port 0 és 1 logikai értékekre képes a beviteli lábakon is...
  
  OPPÁ! nincs senkinek pdf-je Delphi6-hoz???

• #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