万一 - 博客园

2011年11月10日

摘要： function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := SearchRec.Size;end; 阅读全文

posted @ 2011-11-10 14:44 万一阅读(3120) 评论(11) 推荐(0) 编辑

2011年11月9日

看看 Delphi XE2 为 VCL 提供的 14 种样式

摘要：其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.在空白窗体上添加 ListBox1 等控件, 测试代码:uses IOUtils, Vcl.Styles, vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var dir, fileName, styleName: string;begin //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\ dir := GetEnvi... 阅读全文

posted @ 2011-11-09 19:59 万一阅读(14426) 评论(29) 推荐(1) 编辑

2011年11月8日

终于, Delphi XE2 携带 GDI+ 库了

摘要：使用了较早的 http://www.progdigy.comuses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL};procedure TForm1.FormPaint(Sender: TObject);var graphics: TGPGraphics; pen: TGPPen;begin graphics := TGPGraphics.Create(Canvas.Handle); pen := TGPPen.Create(MakeColor(255,0,0)); graphics.DrawRectangle(pen, Make... 阅读全文

posted @ 2011-11-08 22:14 万一阅读(17164) 评论(12) 推荐(0) 编辑

2011年10月31日

捕捉 midi 输入消息的基本程序

摘要： uses MMSystem;var hMidiIn: Integer;procedure midiCallBack(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD; dw1, dw2: DWORD) stdcall;begin case uMsg of MIM_OPEN: ; MIM_CLOSE: ; MIM_DATA: Form1.Memo1.Lines.Add(IntToStr(dw1)); MIM_LONGDATA: ; MIM_ERROR: ; MIM_LONGERROR: ; end;end;procedure ... 阅读全文

posted @ 2011-10-31 16:40 万一阅读(2983) 评论(0) 推荐(0) 编辑

2011年10月28日

MusicXML 3.0 - DTD 速查

摘要： %common;%layout;%identity;%attributes;%link;%note;%barline;%direction;%score;]]>%isolat1;%isolat2; ]]> ]]> 阅读全文

posted @ 2011-10-28 13:21 万一阅读(2381) 评论(2) 推荐(0) 编辑

MusicXML 3.0 (32) - 鼓谱

摘要： <?xml version="1.0" standalone="no"?><!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"><score-partwise version="3.0"> <part-list> <part-group type=&quo 阅读全文

posted @ 2011-10-28 12:10 万一阅读(2041) 评论(2) 推荐(0) 编辑

2011年10月27日

MusicXML 3.0 (31) - Tab

摘要： <?xml version="1.0" standalone="no"?><!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"><score-partwise version="3.0"> <part-list> <part-group type=&quo 阅读全文

posted @ 2011-10-27 17:49 万一阅读(1535) 评论(0) 推荐(0) 编辑

MusicXML 3.0 (30) - 和弦图表

摘要： <?xml version="1.0" standalone="no"?><!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"><score-partwise version="3.0"> <part-list> <score-part id=" 阅读全文

posted @ 2011-10-27 17:10 万一阅读(1773) 评论(0) 推荐(0) 编辑

MusicXML 3.0 (29) - 和弦文本

摘要： <?xml version="1.0" standalone="no"?><!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"><score-partwise version="3.0"> <part-list> <score-part id=" 阅读全文

posted @ 2011-10-27 16:20 万一阅读(1565) 评论(0) 推荐(0) 编辑

MusicXML 3.0 (28) - 乐器分组

摘要： <?xml version="1.0" standalone="no"?><!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"><score-partwise version="3.0"> <part-list> <part-group type=&quo 阅读全文

posted @ 2011-10-27 14:48 万一阅读(1540) 评论(0) 推荐(0) 编辑