//聲明:　Polyline(　　DC:　HDC;　　　　{設備環境句柄}　　var　Points;　　{點數組}　　Count:　Integer　{數組元素

//聲明:　Polygon(　　DC:　HDC;　　　　{設備環境句柄}　　var　Points;　　{點數組}　　Count:　Integer　{數組元素個

//聲明:　PolyBezIErTo(　　DC:　HDC;　　　{設備環境句柄}　　const　Points;　{點數組}　　Count:　DWord　{數組

//聲明:　PolyBezIEr(　　DC:　HDC;　　　{設備環境句柄}　　const　Points;　{點數組}　　Count:　DWord　{數組元素

//聲明:　DrawFocusRect(　　hDC:　HDC;　　　　　{設備環境句柄}　　const　lprc:　TRect　{矩形結構}　):　BOOL;

//聲明:　Chord(　　DC:　HDC;　　　　　　　　　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2,　X3,　Y3,　X4,　Y4:

//聲明:　Arc(　　DC:　HDC;　　　　　　　　　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2,　X3,　Y3,　X4,　Y4:　I

//聲明:　RoundRect(　　DC:　HDC;　　　　　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2,　X3,　Y3:　Integer

//聲明:　Ellipse(　　DC:　HDC;　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2:　Integer　{兩個點的坐標}　):　B

//聲明:　Rectangle(　　DC:　HDC;　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2:　Integer　{兩個點的坐標}　):

//聲明:　PIE(　　DC:　HDC;　　　　　　　　　　　　　　　　{設備環境句柄}　　X1,　Y1,　X2,　Y2,　X3,　Y3,　X4,　Y4:　I

//聲明:　MoveToEx(　　DC:　HDC;　　　　　{設備環境句柄}　　p2,　p3:　Integer;　{坐標}　　p4:　PPoint　　　　{用

unit　Unit1;　　interface　　uses　　Windows,　Messages,　SysUtils,　Variants,　Classes,　G

TMediaPlayer 錄音是基於一個已存在的 wav 文件, 上次建立空白 wav 的函數可派上用場了.　　TMediaPlayer 的功能是基於 MCI

　下面是使用低級音頻函數播放 wav 的兩個方法, 對這個感興趣的人恐怕很少, 免注釋了.　　使用窗口接受音頻輸出設備的消息:unit　Unit1;　　int

unit　Unit1;　　interface　　uses　　Windows,　Messages,　SysUtils,　Variants,　Classes,　G

　使用窗口接受音頻設備發出的消息:unit　Unit1;　　interface　　uses　　Windows,　Messages,　SysUtils,　Var

unit　Unit1;　　interface　　uses　　Windows,　Messages,　SysUtils,　Variants,　Classes,　G

左右聲道的音量是單調的; 表示音量的 32 位整數的低 16 位是左聲道、高 16 位是右聲道.　　代碼文件:unit　Unit1;　　interface　　

　這兩個參數也都是可以 Get(waveOutGetPlaybackRate、waveOutGetPitch)　　設備默認的播放速度是 $00010000,