1. Pascal / Говнокод #2786

    +152.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    program CDPower;
uses  windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
  opencdp
   else
  closecdp;
end.

    Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
    Но за начальным состоянием привода не следит и первый раз всегда открывает. :D

    А у меня дома два DVD. Ыыы.))

    Запостил: Говногость, 13 Марта 2010

    Комментарии (1) RSS

    • ava Говногость 13.03.2010 23:32 # 0

      Ах да. При открытии лотка этой программой диск в большинстве дисководов продолжает крутиться. :D
      Перед открытием прога забывает его остановить. :D
      Ответить

    Добавить комментарий