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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2002   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

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


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Лучшее из нашего 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);
    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|
  • Добавление записей в IB6
    Как наиболее оптимальным, т.е. быстрым образом добавлять много записей(до 1М и более) в таблицы Ib6/Firebird? Среда ...
  • База MDB на Delphi
    Помогите , пытаюсь создать базу MDB с помощью Дельфы Описывать не буду как делаю, долго уж очень. Кто занимался данным ...
  • Необычный вывод от программы. СРОЧНО - нужна помощь!
    Необычный вывод от программы. СРОЧНО - нужна помощь! Пишу, я значит ПерлРедактор. Но возникла запорка с функцией ...
  • Файл ресурса иконок больше 16 цветов
    Приветствую знатоков! У меня вопрос. Можно ли создать файл ресурса проекта из ноборов иконок, которые превышают ...
  • Функция не возвращает TStringList
    Привет всем!! Объясните что я делаю не так. Создаю новый модуль, в нем объявляю функцию : function GetPasList:...
  • Ввод в TMemo
    Как ввести поочередно по одной букве с созданной в форме из TButton клавиатуры , в одну строку компонента TMemo. ...
  • глюк Delphi6
    В общем в Delphi6 Personal по непонятным причинам иногда появляется глюк - показывается красным строка с ошибкой, но ...
У нас большой выбор статей   |x|
Использование HTTP в Delphi.
Данная статья посвящена программированию на Borland Delphi с использованием одного из самых популярных Интернет-протоколов - HTTP.
А именно, здесь мы рассмотрим компонент TNMHTTP (NetMasters HTTP), который можно обнаружить на вкладке FastNet палитры компонентов Дельфи.
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
САЙТ ДЕЛЬФИ
ЛУЧШИЙ ФОРУМ О ДЕЛФЬИ, ЗДЕСЬ ВЫ МОЖЕТЕ НАЙТИ ЛЮБОЙ ИСХОДНИК, КОМПОНЕН, И ЗАДАВАТЬ ВОПРОСЫ ПРОФФЕСИОНАЛАМ.
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
сначала во сне
зазвенел будильник
потом на столе

Афоризмы
Люди находят утешение в бедах, обрушившихся на других....

Фраза дня
- Доктор, я жить буду? - А смысл?

И на закуску коротенький анекдот
- Как ты думаешь, мне выдадут патент на изобретение?
- А в чем суть изобретения?
- Помогает проходить сквозь стены.
- А как называется?
- Двери.

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное