开源了(窗体代码)
unit MainF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, XPMenu, DSPack, Directshow9, ExtCtrls, Buttons, StdCtrls, ComCtrls,
ToolWin, ImgList, shellapi,StrUtils ;
const
WM_TrayMessage=WM_User+100;
strlsts='*.mlst;*.m3u;*.wax;*.asx;*.wpl;*.pls;';
ExtLsts='*.asx;*.wpl;*.pls;';
WinTitle='和风播放器v1.03';
lLens=10000;
type
pPListItem=^TPListItem;
TPListItem=Record
ID:integer;
Name:String;
End;
type
TMainInfo = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
OpenF: TMenuItem;
OpenD: TMenuItem;
DVD: TMenuItem;
Openu: TMenuItem;
OpenPt: TMenuItem;
OpenP: TMenuItem;
Quit: TMenuItem;
N7: TMenuItem;
His: TMenuItem;
SetHis: TMenuItem;
ClrHis: TMenuItem;
ExitClr: TMenuItem;
Main: TMenuItem;
N13: TMenuItem;
PrintS: TMenuItem;
Propty: TMenuItem;
N16: TMenuItem;
Exited: TMenuItem;
Lplay: TMenuItem;
Pausd: TMenuItem;
Stopd: TMenuItem;
Stepd: TMenuItem;
Provd: TMenuItem;
Nextd: TMenuItem;
LCont: TMenuItem;
Lgoto: TMenuItem;
LQrit: TMenuItem;
LQleft: TMenuItem;
Lmax: TMenuItem;
Lmin: TMenuItem;
Lplayer: TMenuItem;
Lleft: TMenuItem;
Lrit: TMenuItem;
N1: TMenuItem;
LValue: TMenuItem;
UValue: TMenuItem;
DValue: TMenuItem;
NValue: TMenuItem;
LVOut: TMenuItem;
NoValue: TMenuItem;
LeftV: TMenuItem;
rightV: TMenuItem;
N2: TMenuItem;
LPerent: TMenuItem;
NoAll: TMenuItem;
LAll: TMenuItem;
LPInfo: TMenuItem;
LOver: TMenuItem;
LQuit: TMenuItem;
LSleep: TMenuItem;
LClosed: TMenuItem;
LSpacd: TMenuItem;
LQuited: TMenuItem;
N3: TMenuItem;
LBKey: TMenuItem;
N4: TMenuItem;
LChosed: TMenuItem;
LContc: TMenuItem;
DCont: TMenuItem;
DLeft: TMenuItem;
Drit: TMenuItem;
N8: TMenuItem;
DVst: TMenuItem;
DPint: TMenuItem;
DOvr: TMenuItem;
N12: TMenuItem;
DMinfo: TMenuItem;
DTInfo: TMenuItem;
DCinfo: TMenuItem;
DVsinfo: TMenuItem;
DPinfo: TMenuItem;
DOInfo: TMenuItem;
Images: TMenuItem;
Isets: TMenuItem;
N5: TMenuItem;
ISites: TMenuItem;
ILefttop: TMenuItem;
IleftBtn: TMenuItem;
Irittop: TMenuItem;
Iritbtn: TMenuItem;
N6: TMenuItem;
ICn: TMenuItem;
IBlend: TMenuItem;
N10: TMenuItem;
IChang: TMenuItem;
ILftTop: TMenuItem;
NoL: TMenuItem;
Isapce: TMenuItem;
Illt: TMenuItem;
Ilrl: TMenuItem;
ILAll: TMenuItem;
N9: TMenuItem;
Ireset: TMenuItem;
VInfo: TMenuItem;
VCont: TMenuItem;
VStatus: TMenuItem;
Vlist: TMenuItem;
N11: TMenuItem;
Full: TMenuItem;
N14: TMenuItem;
VPrev: TMenuItem;
N15: TMenuItem;
N17: TMenuItem;
N431: TMenuItem;
N541: TMenuItem;
N1691: TMenuItem;
VPind: TMenuItem;
N501: TMenuItem;
N1001: TMenuItem;
N2001: TMenuItem;
HInfo: TMenuItem;
HUrl: TMenuItem;
Huser: TMenuItem;
OpenFile: TOpenDialog;
FilterGraph1: TFilterGraph;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Splitter1: TSplitter;
Panel5: TDSVideoWindowEx2;
Panel4: TPanel;
spdAdd: TSpeedButton;
spdDet: TSpeedButton;
spdMod: TSpeedButton;
Lspearet: TLabel;
TreeView1: TTreeView;
Titles: TLabel;
Timers: TLabel;
Panel65: TDSVideoWindowEx2;
Panel64: TDSVideoWindowEx2;
FilterGraph2: TFilterGraph;
ToolBar1: TToolBar;
tlbPlay: TToolButton;
tlbPausd: TToolButton;
tlbStopd: TToolButton;
ToolButton4: TToolButton;
tlbPre: TToolButton;
tlbLft: TToolButton;
tlbRit: TToolButton;
tlbNxt: TToolButton;
ImageList1: TImageList;
ImageList2: TImageList;
ImageList3: TImageList;
PopupMenu1: TPopupMenu;
Pausd1: TMenuItem;
Stopd1: TMenuItem;
Stepd1: TMenuItem;
Provd1: TMenuItem;
Nextd1: TMenuItem;
LCont1: TMenuItem;
Lgoto1: TMenuItem;
LQrit1: TMenuItem;
LQleft1: TMenuItem;
Lmax1: TMenuItem;
Lmin1: TMenuItem;
Lplayer1: TMenuItem;
Lleft1: TMenuItem;
Lrit1: TMenuItem;
DCont1: TMenuItem;
DOInfo1: TMenuItem;
DPinfo1: TMenuItem;
DVsinfo1: TMenuItem;
DCinfo1: TMenuItem;
DTInfo1: TMenuItem;
DMinfo1: TMenuItem;
N24: TMenuItem;
DOvr1: TMenuItem;
DPint1: TMenuItem;
DVst1: TMenuItem;
N28: TMenuItem;
Drit1: TMenuItem;
DLeft1: TMenuItem;
N18: TMenuItem;
Images1: TMenuItem;
Ireset1: TMenuItem;
N21: TMenuItem;
ILftTop1: TMenuItem;
ILAll1: TMenuItem;
Ilrl1: TMenuItem;
Illt1: TMenuItem;
N27: TMenuItem;
NoL1: TMenuItem;
IChang1: TMenuItem;
N31: TMenuItem;
IBlend1: TMenuItem;
ISites1: TMenuItem;
ICn1: TMenuItem;
N35: TMenuItem;
Iritbtn1: TMenuItem;
Irittop1: TMenuItem;
IleftBtn1: TMenuItem;
ILefttop1: TMenuItem;
N40: TMenuItem;
Isets1: TMenuItem;
N19: TMenuItem;
Full1: TMenuItem;
VPrev1: TMenuItem;
N1692: TMenuItem;
N542: TMenuItem;
N432: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N20: TMenuItem;
LValue1: TMenuItem;
NValue1: TMenuItem;
DValue1: TMenuItem;
UValue1: TMenuItem;
LVOut1: TMenuItem;
rightV1: TMenuItem;
LeftV1: TMenuItem;
NoValue1: TMenuItem;
N37: TMenuItem;
LPerent1: TMenuItem;
LPInfo1: TMenuItem;
LAll1: TMenuItem;
NoAll1: TMenuItem;
LOver1: TMenuItem;
LQuited1: TMenuItem;
N45: TMenuItem;
LClosed1: TMenuItem;
LSleep1: TMenuItem;
LQuit1: TMenuItem;
N49: TMenuItem;
LBKey1: TMenuItem;
N25: TMenuItem;
LChosed1: TMenuItem;
LContc1: TMenuItem;
N26: TMenuItem;
PrintS1: TMenuItem;
Propty1: TMenuItem;
PopupMenu2: TPopupMenu;
CLst: TMenuItem;
CSave: TMenuItem;
N29: TMenuItem;
CInfo: TMenuItem;
CDInfo: TMenuItem;
CAll: TMenuItem;
Atype: TMenuItem;
CNil: TMenuItem;
CPet: TMenuItem;
COrder: TMenuItem;
CUsed: TMenuItem;
PopupMenu3: TPopupMenu;
CNil1: TMenuItem;
CPet1: TMenuItem;
COrder1: TMenuItem;
CUsed1: TMenuItem;
PopupMenu4: TPopupMenu;
CShow: TMenuItem;
Pausd2: TMenuItem;
LChosed2: TMenuItem;
N30: TMenuItem;
close1: TMenuItem;
Precedure: TShape;
xp: TXPMenu;
ImgMove: TImage;
Panel61: TPanel;
Voic: TShape;
ImgVoic: TImage;
VolMint: TSpeedButton;
Timer1: TTimer;
SaveP: TSampleGrabber;
SaveT: TSampleGrabber;
Timer2: TTimer;
lblSave: TLabel;
Timer3: TTimer;
SaveDialog1: TSaveDialog;
procedure Panel1Resize(Sender: TObject);
procedure spdModClick(Sender: TObject);
procedure CNil1Click(Sender: TObject);
procedure CPet1Click(Sender: TObject);
procedure COrder1Click(Sender: TObject);
procedure CUsed1Click(Sender: TObject);
procedure CNilClick(Sender: TObject);
procedure CPetClick(Sender: TObject);
procedure COrderClick(Sender: TObject);
procedure CUsedClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Panel3Resize(Sender: TObject);
procedure ImgMoveMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ImgMoveMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ImgMoveMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure VStatusClick(Sender: TObject);
procedure VlistClick(Sender: TObject);
procedure VContClick(Sender: TObject);
procedure ImgVoicMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ImgVoicMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PrecedureMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ImgVoicMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
[解决办法]
贴完没？我帮你顶一下，你可以继续贴。
[解决办法]
