[USB] Ejection d'un disque [FAQ]

**SergioMaster** · 16/05/2008, 17h22

Grosse erreur

qui regle le problème Floppy
il ne fallait qu'un seul \ pour le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
function GetDrivesDevInstByDeviceNumber(DeviceNom, DriveType: Cardinal; DriveName: string): DEVINST;
var
 .....
begin
  result := 0;
  isFloppy := (Pos('\Floppy', DriveName) > 0);  // << CORRECTION 
...
end;

pour ce qui est de IOCTL_STORAGE_GET_MEDIA_TYPES je plante . J'arrive pas a obtenir le type de média (je tombe toujours sur "autre" )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Procedure TForm1.EjecteFloppy(Drive : String; Tester : Boolean);
var
  dh: THandle;
  ret: Cardinal;
  dg: DISK_GEOMETRY;
  med : MEDIA_TYPE;
  SMed : STORAGE_MEDIA_TYPE;
begin
  dh := CreateFile(PChar('\\.\'+Drive), GENERIC_READ, 0, nil, OPEN_EXISTING, 0,0);
  if dh <> INVALID_HANDLE_VALUE then
  begin
    if tester then
      begin
        if not DeviceIoControl(dh,IOCTL_STORAGE_GET_MEDIA_TYPES, nil, 0, @dg,Sizeof(dg),@ret, nil) then DisplaySystemError;
        tester:=(dg.MediaType in [unknown,RemovableMedia,FixedMedia]);
        case dg.MediaType of
          F5_1Pt2_512,F3_1Pt44_512,F3_2Pt88_512,F3_20Pt8_512,F3_720_512,F5_360_512,
          F5_320_512,F5_320_1024,F5_180_512,F5_160_512,F3_120M_512,F3_640_512,
          F5_640_512,F5_720_512,F3_1Pt2_512,F3_1Pt23_1024,F5_1Pt23_1024,F3_128Mb_512,
          F3_230Mb_512,F8_256_128,F3_200Mb_512,F3_240M_512,F3_32M_512: ShowMessage('Floppy');
          Unknown: showMessage('media type : UnKnown') ;
          RemovableMedia: showMessage('media type : RemovableMedia');
          FixedMedia: showMessage('media type : Fixed');
          else showMessage('media type : autre')
        end;
     end;
//    if not tester then ShowMessage('tente deconnexion') else showmessage('pas un floppy ?');
 
//    if not DeviceIoControl(dh,IOCTL_STORAGE_EJECT_MEDIA, nil, 0, nil, 0,@ret, nil) then DisplaySystemError;
    CloseHandle(dh);
  end;
end;

**bobby123** · 19/05/2008, 19h19

Bonjour,

J'ai tenté d'utilisé le code posté par SergioMaster dans son post #26 avec mon Delphi 7.

Pour cela j'ai ajouté a mon projet les répertories des librairies win32api (1.2) et JVCL/common par Projets/Options puis répertoires/Conditions et la dans "chemin de recherche" j'ai ajouté C:\jvcl-common;C:\win32api_1_2

A la compilation j'obtiens l'erreur :

[erreur]Unit1.pas(146):Identificateur non déclaré: 'CM_Request_Device_EjectW'
[Erreur fatale] Project.dpr(5): Impossible de compiler l'unité utilisée 'Unit.pas'

Je comprends pas ou est le problème !!
Soyez indulgent svp je débute

En pièce jointe j'ai attaché mon projet.

Si quelqu'un pouvait m'aider ca serait super sympa.

**ero-sennin** · 19/05/2008, 22h35

Bonsoir bobby123 et Bienvenue sur Developpez.com,

En ce qui concerne les paquets à télécharger, ce sont les JAPI (JEDI API HEADER) en téléchargement ici (page d'accueil du projet : http://jedi-apilib.sourceforge.net/)

Ensuite, il faut rajouter les paquets :

Pour JwaWinBaset.pas et JwaWinIoctl.pas :
(a besoin aussi de JwaReason.pas,JwaWinReg.pas)

jedi-api-lib-rev315\jedi-api-lib\jwapi\trunk\Win32API

Pour jediapilib.inc :

jedi-api-lib-rev315\jedi-api-lib\jwapi\trunk\Common

Pour Cfg.pas, CfgMgr32.pas, SetupAPI.pas :

jedi-api-lib-rev315\jedi-api-lib\jwapi\trunk\SaCMAPI

En espérant t'avoir aidé

A+

PS : Tu peux aller voir mon composant (pas encore à jour pour Vista) si ça t'interesse

**goldkey** · 20/05/2008, 09h34

Après avoir intégré le code de Sergio a mon appli, je l'ai testé sous Win2000...et la c'est le drame

Envoyé par Erreur

Violation d'accès à l'adresse 00000000. Lecture de l'adresse 00000000

Après avoir fait un peu de débuggage, le problème apparait lorsque l'on récupère le handle du périphérique, alors meme que les parametres sont corrects

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PnPHandle := SetupDiGetClassDevs(@StorageGUID, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);

Quelqu'un a-t-il testé sous Win2k et a-t-il eu ce problème ??

**SergioMaster** · 20/05/2008, 11h15

Ah , je m'en doutais mais je n'ai pas tester sous W2000 .

je ne sais pas si je l'avais déjà indiqué mais certaines fonctions utilisées ne sont pas compatibles W95,W98,WMe,NT 4 , pour W2000 j'en suis moins sûr .

à voir dans le SDK de Microsoft .......

j'avais également eu ce problème , avec la même erreur, parce que j'avais oublié , lors d'un copier-coller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
LoadSetupApi;
LoadConfigManagerApi;

qui initialise des structures
(et bien sûr ne pas oublier de 'décharger' après)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    UnloadConfigManagerApi;
    UnloadSetupApi;

**goldkey** · 20/05/2008, 12h57

Envoyé par SergioMaster

j'avais également eu ce problème , avec la même erreur, parce que j'avais oublié , lors d'un copier-coller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
LoadSetupApi;
LoadConfigManagerApi;

qui initialise des structures
(et bien sûr ne pas oublier de 'décharger' après)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    UnloadConfigManagerApi;
    UnloadSetupApi;

Pas de problème de ce coté la .....

Envoyé par SergioMaster

à voir dans le SDK de Microsoft .......

Ben justement c'est la ou je ne comprend plus rien

D'après MSDN:

Envoyé par MSDN

Requirements
Versions: The SetupDiGetClassDevs function is available in Microsoft Windows 2000 and later versions of Windows.
Headers: Declared in Setupapi.h. Include Setupapi.h.

**fs999** · 23/05/2008, 08h40

Bonjour,

Je ne sais pas si ça peut aider, mais en compilant jwa, j'avais des erreurs et j'ai changé jediapilib.inc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
// Global switch for the Windows version the files are compatible with
// ONLY A SINGLE ONE IS ALLOWED TO BE ACTIVATED BY CHANGING THE DOT TO A DOLLAR SIGN!
// Default is WINXP
{.DEFINE WIN95}
{.DEFINE WIN98}
{.DEFINE WIN98SE}
{.DEFINE WIN98ME}
{.DEFINE WINNT4}
{.DEFINE WIN2000}
{$DEFINE WINXP}     // <===  j'ai défini celui-ci
{.DEFINE WIN2003}

Il faut peut-être le changer pour Windows 2000...

A+
Frédéric

**goldkey** · 23/05/2008, 08h53

Envoyé par fs999

Il faut peut-être le changer pour Windows 2000...

C'est tellement évident,je n'y aurais jamais pensé...je cherchais a nouveau bien trop compliqué

Merci beaucoup fs999, je confirme cela fonctionne maintenant sous Windows 2000.

**saispasfau** · 26/09/2008, 10h17

Bonjour à tous.

J'ai suivi avec grand intérêt vos différents échanges. Je suis également sur un projet d'éjection de clé USB.

Résumé :
Lorsque je lance mon appli de gestion sur ma clé USB, je copie un exe et un batch dans le TEMP utilisateur.
Quand l'utilisateur souhaite éjecter sa clé, j'envoie à l'exe la lettre du lecteur. Ce dernier éjecte la clé, puis lance la batch qui patiente un peu, puis supprime l'exe et lui-même. Ainsi, pas de trace sur le poste.

Le code que vous avez mis à disposition fonctionne dans problème sous XP, mais impossible d'éjecter la clé sous Vista.

Avez-vous apporté d'autres modifications ? J'ai cherché dans la FAQ une rubrique sur ce sujet, mais je n'ai rien trouvé.

Merci pour votre aide.
Saispasfau.

**ero-sennin** · 26/09/2008, 10h41

Bonjour,

Est-ce que tu as essayé ce qui ce trouvé dans cette discussion : http://www.developpez.net/forums/m3415243-87/

**saispasfau** · 26/09/2008, 11h02

Merci beaucoup, tout est ok maintenant.

**ero-sennin** · 26/09/2008, 11h12

Envoyé par saispasfau

Merci beaucoup, tout est ok maintenant.

Pas de soucis

**GSXR1000** · 27/05/2009, 23h04

Bonjour,

J'ai télécharger le .Zip et le code de ero-sennin avec ce lien http://www.developpez.net/forums/m3415243-87/ . J'ai ouvert le project avec le code source du répertoire 'Insertion CD-USB beta Vista' un message apparait 'Impossible d'ouvrir le fichier '......Unit1.pas'

Pourriez-vous nous mettre le fichier avec le code source qui va bien avec. Merci d'avance.

**ero-sennin** · 28/05/2009, 08h35

Salut,

Qu'est ce que j'ai foutou avec cette archive

Mets le Projet1.dpr + Unit1.dfm dans le même répertoire que tous les autres fichiers ...
J'ai du faire une fausse manipulation lors de la mise à jour...
Tiens nous au courant,

Merci

**SergioMaster** · 22/02/2010, 10h19

Je me remet sur cette discussion , qui comme cela fera également l'objet d'un up

Quelqu'un a-t il trouvé une solution pour différencier une Clé USB d'un disque USB ?

**ero-sennin** · 22/02/2010, 10h33

Salut Serge

Je viens d'acquérir un Disque dur externe, mais je n'ai pas utiliser mon composant la-dessus.
Par contre, en quoi est-ce gênant d'éjecter une clé USB ou un Disque dur Externe ?
Il me semble que Windows lui-même ne fait pas la différence (je m'avance et me trompe peut-être...)

**SergioMaster** · 22/02/2010, 15h09

Par contre, en quoi est-ce gênant d'éjecter une clé USB ou un Disque dur Externe ?

gênant un peu ,juste à cause de cette fichue manipulation (éjection comme si c'était un CD/DVD,puis a nouveau éjection)

Il me semble que Windows lui-même ne fait pas la différence (je m'avance et me trompe peut-être...)

non toute mes recherches vont hélas dans le même sens , je te dirais que c'est juste pour la beauté du geste (et du programme que je suis en train d'élaborer) que je fais cette recherche

j'aimerais bien mettre une icône différente s'il s'agit d'une clé ou d'un disque .
Enfin il y a encore les arcanes de Microsoft du lien que tu m'avais fourni
dans un des posts

http://msdn.microsoft.com/en-us/library/ms803687.aspx

étrange quand même que microsoft sache faire la différence entre tout un tas de disquettes , bandes et IOmegaZip mais pas sur de simples clé USB et un Disque USB , je n'ai pas dis mon dernier mot

**Mac LAK** · 22/02/2010, 15h58

Envoyé par SergioMaster

étrange quand même que microsoft sache faire la différence entre tout un tas de disquettes , bandes et IOmegaZip mais pas sur de simples clé USB et un Disque USB , je n'ai pas dis mon dernier mot

Non, c'est logique... Un disque USB est vu comme un device USB de type "Mass storage", peu importe comment il marche derrière (mémoire Flash ou disque dur). Tandis que les autres périphériques amovibles que tu cites ont, eux, un driver spécifique pour chacun.

Tu peux éventuellement tenter d'analyser la géométrie du disque pour tenter de voir si ça ressemble à une mémoire ou à un disque, mais franchement, c'est loin d'être gagné d'avance. Même la capacité de l'unité peut te leurrer : comment savoir si c'est une clé USB de 128 Go, ou un "vieux" disque IDE de 120 Go que tu as recyclé via un boitier d'adaptation externe ? Les deux te renverront une géométrie LBA qui masquera ce qu'ils sont réellement, et c'est justement le but d'une interface USB Mass Storage de masquer la tripaille, en plus...

**SergioMaster** · 22/02/2010, 17h54

moralité : changer mon Icône

**ero-sennin** · 22/02/2010, 20h26

Envoyé par SergioMaster

moralité : changer mon Icône

Et oui, je pense que tu n'auras pas le choix, car d'après les recherches que j'ai pu faire aujourd'hui sur le sujet, je rejoinds ce que Mac Lak dit...
Pas de bol

[USB] Ejection d'un disque [FAQ]

API, COM et SDKs Delphi

Discussions similaires

Partager

Partager