Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 38

  else Result:= '';
 finally
  StrDispose(sp);
  Dispose(Res);
 end;
end;

Мультимедиа

Аудио-компакт

Получение идентификатора диска

Как получить идентификатор находящегося в CD-ROM'е аудио-компакта?

const
 MCI_INFO_PRODUCT              = $00000100;
 MCI_INFO_FILE                 = $00000200;
 MCI_INFO_MEDIA_UPC            = $00000400;
 MCI_INFO_MEDIA_IDENTITY       = $00000800;
 MCI_INFO_NAME                 = $00001000;
 MCI_INFO_COPYRIGHT            = $00002000;
{ блок параметров для командного сообщения MCI_INFO }
type
 PMCI_Info_ParmsA = ^TMCI_Info_ParmsA;
 PMCI_Info_ParmsW = ^TMCI_Info_ParmsW;
 PMCI_Info_Parms  = PMCI_Info_ParmsA;
 TMCI_Info_ParmsA = record
  dwCallback: DWORD;
  lpstrReturn: PAnsiChar;
  dwRetSize: DWORD;
 end;
 TMCI_Info_ParmsW = record
  dwCallback: DWORD;
  lpstrReturn: PWideChar;
  dwRetSize: DWORD;
 end;
 TMCI_Info_Parms = TMCI_Info_ParmsA;

Идентификатор возвращается функцией MCI_INFO_MEDIA_IDENTITY в виде строки с десятичным числом. Для получения дополнительной информации обратитесь к электронной справке (Win32 и компонент TMediaPlayer).

Аппаратное обеспечение

CD-ROM

Открытие и закрытие привода CD-ROM

Есть ли Win32 API функция, позволяющая не только открыть НО И ЗАКРЫТЬ CD-ROM? Хотелось бы не тянуться ручками к РС, а нажать мышкой на кнопку. Компонентом TMediaPlayer пользоваться не хочу, тем более компакт он может только извлечь…

Для закрытия CD-ROM:

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Для открытия CD-ROM:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Не забудьте включить MMSystem в список используемых модулей (uses).

Операционная система

Буфер обмена

Просмотр буфера обмена

Пример на основе простого модуля-класса, осуществляющего просмотр буфера обмена.

unit ClipboardViewer;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type TForm1 = class(tform)
 procedure FormCreate(Sender: TObject);
 procedure FormDestroy(Sender: TObject);
private
 FNextViewerHandle : THandle;
 procedure WMDrawClipboard(var message: TMessage); message WM_DRAWCLIPBOARD;
 procedure WMChangeCBCHain(var message: TMessage); message WM_CHANGECBCHAIN;
public
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
 // Проверяем работоспособность функции.
 // При невозможности просмотра буфера обмена
 // функция возвратит значение Nil.
 FNextViewerHandle:= SetClipboardViewer(Handle);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 // Восстанавливаем цепочки.
 ChangeClipboardChain(Handle, FNextViewerHandle);
end;
procedure TForm1.WMDrawClipboard(var message: TMessage);
begin
 // Вызывается при любом изменении содержимого буфера обмена
 message.Result := SendMessage(WM_DRAWCLIPBOARD, FNextViewerHandle, 0, 0);
end;
procedure TForm1.WMChangeCBCHain(var message: TMessage);
begin
 // Вызывается при любом изменении цепочек буфера обмена.
 if message.wParam = FNextViewerHandle then begin