Discussion :

[kimi1632]

salut j'ai un problem avec mon graveur DVD, si j'essai de l'ouvrir il block cela
se passe selement s'il est vide ,alor je me suit dit qui ' il faudrai simuler un DVD
bref, une bone excuse pour apprendre,
delphi ou asm + delphi si possible.......... merci.

[philnext]

Tu veuw simuler un DVD ou faire un prog. qui vérifie si un DVD est présent dans ton lecteur ?

[kimi1632]

Tu veuw simuler un DVD ou faire un prog. qui vérifie si un DVD est présent dans ton lecteur ?

je veut faire un prog qui simule un dvd pour faire croire au graveur qu'il ya un
dvd.

[kimi1632]

philnext est ce que tu est là ......

[LadyWasky]

je veut faire un prog qui simule un dvd pour faire croire au graveur qu'il ya un
dvd.

Mission impossible, changes de lecteur de DVD

[kimi1632]

pourquoi impossible ...?
il marcher tres bien sauf qu'il block c'est tout

[Jipété]

pourquoi impossible ...?

Parce que la détection du disque est faite par hardware !
Mes 2 cts,
--
jp

[LadyWasky]

Parce que la détection du disque est faite par hardware !
Mes 2 cts,
--
jp

+1

et en plus, tu dois surement avoir un problême d'ordre "mécanique" : ça, ça ne se corrige pas avec un bout de code.

Et si il bloque, ton lecteur de DVD, c'est qu'il ne fonctionne pas si bien.

Par contre, tu peux très bien essayer d'éjecter ton lecteur de façon logicielle :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Procedure Ejecter(Lettre:char);
const
  FILE_DEVICE_MASS_STORAGE = $2D;
  METHOD_BUFFERED          = 0;
  FILE_ANY_ACCESS          = 0;
  FILE_READ_ACCESS         = 1;
  FILE_WRITE_ACCESS        = 2;
 
  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);
 
var
  cd: THandle;
  ret: DWORD;
begin
  cd := CreateFile(PChar('\\.\'+Lettre+':'), GENERIC_READ,0, nil,OPEN_EXISTING,0,0);
  if CD <> INVALID_HANDLE_VALUE then
  begin
    DeviceIoControl(cd,IOCTL_STORAGE_EJECT_MEDIA, nil, 0, nil, 0,ret, nil);
    CloseHandle(cd);
  end;
end;
 
Procedure ChargerMedia(Lettre:char);
const
  FILE_DEVICE_MASS_STORAGE = $2D;
  METHOD_BUFFERED          = 0;
  FILE_ANY_ACCESS          = 0;
  FILE_READ_ACCESS         = 1;
  FILE_WRITE_ACCESS        = 2;
 
  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);
 
var
  cd: THandle;
  ret: DWORD;
begin
  cd:=CreateFile(PChar('\\.\'+Lettre+':'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
   if CD <> INVALID_HANDLE_VALUE then
   begin
    DeviceIoControl(cd,IOCTL_STORAGE_LOAD_MEDIA, nil, 0, nil, 0, ret,nil);
    CloseHandle(cd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Ejecter('D');
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ChargerMedia('D');
end;