В нашей
рассылке вы узнаете о новых статьях, программах, и темах на форуме. Рассылка
выходит один раз в неделю, каждый четверг.
Подписаться на рассылку можно в этой форме:
Последний выпуск
Добро
пожаловать в 35 выпуск "Клуба программистов". Поздравляю всех
подписчиков с прошедшим Днем Космонавтики. Когда-нибудь и
программисты полетят на Марс :)
Сегодня вашему вниманию предлагается статья "Управление
CD
приводом" из нашего
Блога
программистов
. А еще в выпуске: новые и
интересные темы
Форума
программистов
и свежие анекдоты про программистов.
Кроме всего прочего я
для вас собрал ссылки на самые интересные флеш игры онлайн,
чтобы вы могли расслабиться после прочтения выпуска. Удачи всем!
УПРАВЛЕНИЕ
CD
ПРИВОДОМ
CD привода
(далее просто CD)я думаю пользуются все без
исключения. Давайте разберём как создать
несложную программу открытия CD. Создадим
новый проект. Кидаем на форму ComboBox и две
Button. Создадим две функции:
Result :=
false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags,
Longint(@OpenParm));
if Res 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET,
MCI_SET_DOOR_OPEN, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_OPEN, Flags,
Longint(@OpenParm));
end;
end;
function
CDClose(Drive: PChar): Boolean;
var
Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: string;
DeviceID: Word;
begin
Result :=
false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags,
Longint(@OpenParm));
if Res 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET,
MCI_SET_DOOR_CLOSE, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags,
Longint(@OpenParm)) else
end;
end;
В процедуре
создания формы пишем
procedure
TForm1.FormCreate(Sender: TObject);
var
w:dword;
Root:string;
I, K:integer;
begin
k:=0;
w:=GetLogicalDrives;
Root := ‘#:’;
for i := 0 to 25 do
begin
Root[1] := Char(Ord(’A')+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM
then
begin
k:=k+1;
Driv[k] := Root;
ComboBox1.Items.Add(Driv[k]);
ComboBox1.Text := Driv[1];
end;
end;
end;
Далее в
нажатиях на кнопки пишем:
procedure
TForm1.Button1Click(Sender: TObject);
begin
CDOpen(PChar(ComboBox1.Text);
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
CDClose(PChar(ComboBox1.Text);
end;
А здесь у нас лучшие
и популярные темы форума, которые обсуждаются в данный момент.
Каждого из вас мы будем рады на нашем
Форуме программистов
.
Пристыковка Окон
Помогите как сделать чтобы окна пристыковать... и потом при
движении одного двигалось и второе...
С
движением то понятно, там условие и переменная... Ну вот только
как включить Эту переменную при пристыковке окна
?
Сокеты в Delphi
Встала такая проблема:
д
опустим есть
некая локальная сеть из нескольких компов(у каждого свой IP
ессно).На одном из компов запущена программа -сервер(на основе
сокетов), а на другом - программа-клент, которая цепляется к
серверу по определенному IP-адрессу и порту.
Так вот, если вдруг у сервера сменился ip-адресс, как сделать,
чтоб клиент автоматически находил этот сервер без ввода нового
IP или имени хоста вручную?
Как
под структуру типа MSG выделить строго определенное количество
байт?
По моим исследованиям при объявлении каждой новой структуры
на диске материализуется ровно 1 Кб. Зачем же занимать один Кб,
если реально для этой структуры понадобится пару сотен байт.
Есть ли способ использовать столько сколько тебе надо?
АНЕКДОТЫ
ПРО ПРОГРАММИСТОВ
- Папа, а что такое спам?
- Ну, представь себе - посидел ты в туалете, потом потянулся к
ящичку за газетой, а там все завалено скотчем, наждачной бумагой
и экскаваторами!
***
- Доктор, я обнаружил, что у нас
в Интернете какие-то мошенники...
- Что вы, батенька, какой Интернет? Нет у нас никакого такого
Интернета, всё это вам мерещится...
***
2026 год. Пост на одном из
компьютерных форумов:
- Закончился ключ антивируса. Вирусы заблокировали дверцу
холодильника. Голодаю... SOS!!!
***
Програмист задает девушкет
вопрос:
- Чай будете?
- Нет.
- Кофе?
- Нет. - опять говорит девушка.
- Пиво? Водку? - не унимается програмист.
- Нет. - странно думает програмёр, стандартные драйвера не
подошли!
***
Программист жене:
- СD молча и не DVD меня до белого каления!!!!
***
В русской версии новая ОС от
Майкрософт выйдет в версиях Виндовс Виста, пол-Виста, Пас и
Виндовс Мизер.
Последний с возможностью апгрейда до полной версии Паровоз...
***
...В отделе кадров:
- Что-то вы недостаточно подвижны для своего возраста?
- А вам кто нужен программист или обезьяна?
***
Все говорят, что Windows глючит!
А у меня не глючит.... может я что-то
не так делаю?
***
- Привет, как дела?
- Да вот, вчера установил у себя беспроводную радиосеть Wi-Fi...
- И что?
- И ничего... И ничего... И ничего... И ничего...
***
За прошедший год провайдеры
Интернета нашего города добились впе-
чатляющих успехов: провайдер "Мираж" увеличил число своих
клиентов
на 108 процентов, провайдер "Некрополь" - на 163, а лидером с
ре-
зультатом 214 процентов стал "Фантом", подключивший к Интернету
сразу два кладбища - Северное и Западное.
***
"Взять высушенное сердце жабы,
залить отваром корней можжевельника, добавить пепел перьев
черного петуха, двух скорпионов, зуб дракона и выпаривать после
захода солнца до первого крика совы..."
... Старинный рецепт изготовления чернил для струйного принтера.
***
Заповеди программиста:
1. Если хакер у тебя украл файл, пошли ему еще два по e-mail. В
твоем каталоге сроду ничего путного не водилось, а мелкий спам
душу согреет.
2. Если тебя друзья величают хакером, знай, ламер ты, ибо
настоящего хакера не видно, не слышно, и нет у него никаких
друзей кроме компьютера.
3. Не укради программы чужой. Да и зачем тебе чужие багги, если
ты от своих не знаешь, как избавится.
4. Если жена конфликтует с компьютером, брось жену. Ибо
компьютер кормит тебя, удовлетворяет и развлекает лучше. А жену
можно подобрать новую, побродив по сайтам знакомств.
5. Возлюби ближнего своего, но через Интернет. Ибо СПИДом от
этого еще никто не заражался.
6. Лучше компьютера может быть только пиво, но одно другому не
мешает.
***
Я администратор компьютерной
сети. Вот один из звонков:
Добрый день. У меня очень меделенно стал работать компьютер, я
пошла в магазин и мне посоветовали купить новый монитор. Я его
купила (кстати TFT), принесла домой, подключила, но компьютер
быстрее работать не стал!! ПОЧЕМУ ????
ПИШИТЕ НАМ
Мы всегда рады вашим
письмам. присылайте вопросы, пожелания, замечания. Адрес для
писем ведущему рассылки
admin@welikeit.ru
.
