天行健,君子以自强不息;地势坤,君子以厚德载物。


分类: Delphi技巧预览模式: 普通 | 列表

Delphi使用INDY获取计算机名和IP


在Indy Misc组里有一个IdIPWatch组件可以很简单的获取本机的计算机名和IP地址。
procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 806

Delphi使用NB30单元获取NetBIOS

function GetNetBIOSAddress : string;
var
  ncb: TNCB;
  status: TAdapterStatus;
  lanenum: TLanaEnum;

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 306
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 428

Delphi下创建异形窗体

procedure TForm1.FormCreate(Sender: TObject);
var
  pt: array [0 .. 4] of TPoint;
  m_rgn: HRGN;
begin

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 310

使用SndPlaySound从内存中播放WAV

有些时候,我们写的程序需要播放音乐,一般大家会采用以下几种方式:1.把音乐文件放置在某个特定的目录,例如Sound,WAV,Music供程序读取播放;2.使用资源来存放音乐。有些人估计也是使用这个方法的,不过大部分人可能是先从资源里把音乐文件释放出来,然后再去读取播放。我今天要介绍的方式是直接把音乐文件载入内存,然后从内存中进行读取播放。好了给代码吧:
var
  hResInfo: THandle;
  PtrSound: Pointer;
begin

查看更多...

Tags: Delphi SndPlaySound WAV

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 533