Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 23.02.03 09:04

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как узнать серийный номер аудио CD?
CD может иметь или не иметь серийный номер и/или универсальный код продукта (Universal Product Code). MCI-расширение Windows предоставляет эту информации с помощью комманды MCI_INFO_MEDIA_IDENTITY command. Эта команда возвращает уникальную ID-строку.
Пример:

uses MMSystem, MPlayer;

procedure TForm1.Button1Click(Sender: TObject);
var
   mp : TMediaPlayer;
   msp : TMCI_INFO_PARMS;
   MediaString : array[0..255] of char;
   ret : longint;
begin
   mp := TMediaPlayer.Create(nil);
   mp.Visible := false;
   mp.Parent := Application.MainForm;
   mp.Shareable := true;
   mp.DeviceType := dtCDAudio;
   mp.FileName := 'D:';
   mp.Open;
   Application.ProcessMessages;
   FillChar(MediaString, sizeof(MediaString), #0);
  &nbs! p;FillChar(msp, sizeof(msp), #0);
   msp.lpstrReturn := @MediaString;
   msp.dwRetSize := 255;
   ret := mciSendCommand(Mp.DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY,
           longint(@msp));
   if Ret <> 0 then
       begin
           MciGetErrorString(ret, @MediaString, sizeof(MediaString));
           Memo1.Lines.Add(StrPas(MediaString));
       end
   else
       Memo1.Lines.Add(StrPas(MediaString));
   mp.Close;
   Application.ProcessMessages;
   mp.free;
end;
end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Изменение записей в таблице
    Как добавить новую запись - понятно, а как изменить уже существующие записи в таблице?
  • Определение видеопамяти
    Подскажите пожалуйста, как определить размер видеопамяти. Спасибо.
  • Как скопировать слово из другого приложения?
    Кто-нибудь знает, как можно выдернуть слово из чужого приложения по наводке на него мыши? Я видел англо-корейский ...
  • Звуковая карта
    Как можно определить точное название звуковой карты (Фирма+Конкретная модель), а если отсутствует звуковая карта (или ...
  • Добавление изображения в базу
    Как добавить в базу изображение? form1.Table1Photo.LoadFromFile()- такой метод не проходит, при исполнении дает ошибку.....
  • Доступ к Ораклу
    Господа, суть вопроса в следующем. В чем принципиальная разница между компонентами доступа к Oracle: ODAC и DAO? ...
  • Mouse.sens:=x;
    Помогите люди, Нужно программно менять настройки мыши (скорость перемещения, ускорение, скорость даблклика и тп) ...
У нас большой выбор статей   |x|
Впечатления от реального Microsoft Inductive User Interface
Microsoft наконец-то сделал интерфейс пользователя! До Windows 2000/Me включительно как ведь было: интерфейс был максимум — документ-ориентированный. То есть, все элементы пользовательского интерфейса были спроектированы так, чтобы работать с документом. Теперь же, основная задача интерфейса пользователя — дать возможность планомерно и точно решить задачу...
Новинки книжного рынка   |x|
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer.
Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов.
Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows.
Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов

Автор: Понамарев В.
Другие сайты о DELPHI   |x|
AnSo Delphi page
Регулярные выражения (regular expressions) для дельфи с полными и бесплатными исходниками.
На сайте есть описание (на русском), примеры (в т.ч. как извлекать информацию из html-страниц).
Работа ...

» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
«марр-р-рт!» —
ее кошка трется о ножки
каждого встречного стула

Афоризмы
Наверняка мы вели бы себя иначе, если бы все время помнили, что последний костюм, который на нас оденут, не будет иметь карманов......

Фраза дня
С точки зрения программиста пользователь - это периферийное устройство, вводящее набор символов в ответ на команду READLN

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Оттумва в Айове (США) мужчина не может подмигивать женщине, если он с ней не знаком.
В Лос Анжелесе (США) существует постановление, запрещающее купать одновременно двух младенцев в одной и той же купели.

И на закуску коротенький анекдот
- Привет дорогая, мой козел наконец разрешил мне пользоваться своим компьютером, даже завел почтовый ящик. Так, что пиши мне по адресу: жена собака жизни точка нет.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=1302


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное