罗小平（桂枝香在故国晚秋）的留言

您好，我是电子工业出版社博文视点的编辑lisa，很高兴能认识您。博文视点一直把“发掘一批优秀的本版书作者、打造一批有影响力的原创IT专业图书、服务国内IT技术社区成长”作为出版服务工作的一个重点，我们期待与国内顶级的IT专业作者以及关注中国IT技术社区的一流专家建立合作。恰逢9月 5 日 CSDN在上海举办英雄大会，我们从网上了解到您会参与，届时我们也会参加，希望我有机会能当面向您沟通。 不知是否方便把您的联系电话和 E- Mail告诉我，以便我们进一步联系，非常感谢。我的mail是 yangxg@broadview.com.cn，盼您回复

在您的著作《Delphi精要》第183页中我还有一段没弄明白，这段代码没有对话框，怎么向注册表中输入应用程序的完整路径和应用程序名呢？这段代码代码编译能通过，可是应用程序并不能在开机后自动运行，
unit Unit1;

interface

uses
  Windows, Messages, Registry, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Reg:TRegistry;
KeyName:String;

begin
Reg:=TRegistry.Create;
KeyName:=ExtractFileName(ParamStr(0));
with Reg do
try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False)
then
begin
WriteString(KeyName,ParamStr(0));
CloseKey;
end;
finally
FreeAndNil(Reg);
end;
end;

end.

您的著作《Delphi精要》第177页的一段代码怎么编译不能通过？

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, ShellAPI, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
FIconData:TNotifyIconData;
FIcon:TIcon;

begin
FIcon:=TIcon.Create;
ImageList1.GetIcon(0,FIcon);
FillChar(FIconData,Sizeof(FIconData),#0);
with FIconData do
begin
cbsize:=SizeOf(FIconData);
uFlag:=NIF_ICON;
hIcon:=FIcon.Handle;
end;
Shell_NotifyIcon(NIM_ADD,@FIconData);
FIcon.Free;
end;
end.


Unknown directive:'FIconData'
Undeclared identifier:'FIcon'

阅读了你的《delphi精要》感受颇深，同时有一问题，请指教：数据类型中如何判断有序和无序？

问你一个有关C语言数据结构的问题，typedef struct athletestruct /*运动员*/ 
{ 
char name[20]; 
int score; /*分数*/ 
int range; /**/ 
int item; /*项目*/ 
}ATH; 
typedef struct schoolstruct /*学校*/ 
{ 
int count; /*编号*/ 
int serial; /**/ 
int menscore; /*男选手分数*/ 
int womenscore; /*女选手分数*/ 
int totalscore; /*总分*/ 
ATH athlete[MaxSize]; /**/ 
struct schoolstruct *next; 
}SCH; 
怎样对这个链表和线性表进行插入和删除操作

您好！我是北京一家猎头公司的招聘专员，从事IT人才的寻访和推荐。我们公司目前有一些相关的职位，希望能和你建立连接，欢迎加入我的人际网络。

请帮助，它的网址是：http://topic.csdn.net/u/20071120/23/c55a7f60-d04d-459d-aac7-24f451b7f9a9.html

http://topic.csdn.net/u/20071117/12/c0821f91-74ff-4332-822d-050870c2e395.html

帮帮忙吧版主?http://topic.csdn.net/u/20070924/09/51f87b0d-3cf3-4687-956c-5f864446a444.html

你好！麻烦大哥看一下小弟的问题：http://topic.csdn.net/u/20070812/19/42037b04-a322-4287-9590-390baf904b70.html?
万分感谢！