Скачать: CL | DM;

Только крутым программерам!   Найти похожие ветки 

← →
Карелин Артем ©   (2004-05-18 15:02) [0]

Я сегодня с удивлением обнаружил, что винда умеет выдвигать лоток сидюка, но не умеет задвигать его обратно. Может кто из кул хацкеров сделает прогу для задвигания лотка сидюка обратно.
И продавать за 1000 баксов. Ну а я за идею скромно прошу 5% от продаж.

---

← →
syte_ser78 ©   (2004-05-18 15:16) [1]

Ты не повериш, но cdslow это умеет.
С тебя пять процентов от пяти процентов.

---

← →
Dmitriy O. ©   (2004-05-18 15:16) [2]

http://www.softbox.ru/?a=5&wh=1&i=CD_%CF%F0%E8%E2%EE%E4&x=18&y=10

Наслаждайся на любой вкус Открывания-Закрывания.

---

← →
Sergey_Masloff   (2004-05-18 15:17) [3]

Карелин Артем ©   (18.05.04 15:02)  
да мне пример на D который умел и выдвигать и задвинать на глаза лет 5 назад попадался. В разделе типа "hello world".

---

← →
Карелин Артем ©   (2004-05-18 15:17) [4]

Эх, какую идею украли у МЕНЯ. Гады и пираты.

---

← →
Mihey ©   (2004-05-18 15:18) [5]

CD Player открой. Нажми Eject. Открылось? Нажми ещё раз. Закрылось?

---

← →
Vlad Oshin ©   (2004-05-18 15:22) [6]

Причем !оцените коварство! раньше чем придумал

---

← →
Гаврила ©   (2004-05-18 15:52) [7]

Да уж.
Так никто и не понял, что это шутка-цитата.
Трагично

---

← →
Гарри Поттер ©   (2004-05-18 20:41) [8]

А дискету выплевывать винда сама не умеет? Вот, развитие твоей темы.. Всего за 2%...

---

← →
Palladin ©   (2004-05-18 20:49) [9]

> Гарри Поттер ©   (18.05.04 20:41)

Купи яблочный мак... эти сволочи бывало как плюнут... в соседнюю стенку дискетой...

---

← →
Knight ©   (2004-05-18 20:54) [10]

> [8] Гарри Поттер ©   (18.05.04 20:41)
> А дискету выплевывать винда сама не умеет? Вот, развитие
> твоей темы.. Всего за 2%...

Почему не умеет? И втягивать может и выплёвывать тоже... :)

---

← →
Sergp ©   (2004-05-18 21:01) [11]

>  [10] Knight ©   (18.05.04 20:54)
>
> > [8] Гарри Поттер ©   (18.05.04 20:41)
> > А дискету выплевывать винда сама не умеет? Вот, развитие
>
> > твоей темы.. Всего за 2%...
>
> Почему не умеет? И втягивать может и выплёвывать тоже...
> :)


Код в студию.....!!!!
:-))))

---

← →
Knight ©   (2004-05-18 21:01) [12]

> [9] Palladin ©   (18.05.04 20:49)
> ... в соседнюю стенку дискетой...

А у нас такие приколы спецом делали... разбирали флопповод, заменяли пружинку выброса на более жёсткую (или родную подправляли)... и если тот кто не знал об этом деле нажимал на кнопку выброса, то дискета со свистом пролетала мимо :)

---

← →
Knight ©   (2004-05-18 21:31) [13]


type TFloppyCmd=(FC_IN, FC_OUT);

function SendCommandToDevice(DeviceName, Prms:String; Cmd: TFloppyCmd):Boolean;
begin
 Result:=False;
 if UpperCase(DeviceName)="USER" then begin
   case Cmd of
     FC_IN: Result:=MessageDlg("Вставьте дискету в дисковод ""+Prms+""", mtError,[mbOk],0)=mrOk;
     FC_OUT: Result:=MessageDlg("Выньте дискету из дисковода ""+Prms+""", mtError,[mbOk],0)=mrOk;
   end;
 end;
end;

...
 SendCommandToDevice("user","A",FC_IN);


Для коректной работы требуется наличие переферийного устройства - USER... если устройство есть, но не работате, то смените его или попробуйте обновить дравера...

:)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.021 c