vcicyclient.dpr

来自「Voice Commnucation Components for Delphi」· DPR 代码 · 共 55 行

(*
	----------------------------------------------

	  vcIcyClient.dpr
	  Icy Streaming Client Demo application - project source

	----------------------------------------------
	  This source code cannot be used without
	  proper license granted to you as a private
	  person or an entity by the Lake of Soft, Ltd

	  Visit http://lakeofsoft.com/ for more information.

	  Copyright (c) 2001, 2007 Lake of Soft, Ltd
		     All rights reserved
	----------------------------------------------

	  created by:
		Lake, 19 May 2003

	  modified by:
		Lake, May 2003
		Lake, Oct 2005
		Lake, Feb 2006

	----------------------------------------------
*)

{$I unaDef.inc}

program
  vcIcyClient;

uses
  Forms,
  u_icy_client in 'u_icy_client.pas' {c_form_main},
  u_icy_clientStreamConfig in 'u_icy_clientStreamConfig.pas' {c_form_streamerConfig},
  u_icy_clientListenConfig in 'u_icy_clientListenConfig.pas' {c_form_lstConfig};

{$R *.res}

{$R unaWindowsXP.res }	// we are OK with XP themes

begin
  Application.Initialize;
  Application.Title := 'VC 2.5 Pro  -  SHOUTCast/IceCast Client demo';
  Application.CreateForm(Tc_form_main, c_form_main);
  Application.CreateForm(Tc_form_streamerConfig, c_form_streamerConfig);
  Application.CreateForm(Tc_form_lstConfig, c_form_lstConfig);
  Application.Run;
end.