给点思路，如何写程序启动后的每日一提示？？

Question

同意楼上～～
那是写在注册表里的。(其实,写在INI文件中也可以实现)
程序启动的时候搜索一下哪个键值，然后控制你的“每日提示”框是否弹出。
至于每日提示框怎么做，还要内容怎么显示，可以自己随便发挥了

Answer 1

找个第三方控件就是了！象AHM的就有！

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage(Memo1.Lines[Random(Memo1.Lines.Count)]);
end;

Answer 3

to vine(vine)　:
AHM中什么组件？

Answer 4

读写注册表的例子：
procedure GetSysInfo;
var
  ARegistry : TRegistry;
begin
  ARegistry := TRegistry.Create;
  with ARegistry do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    if not OpenKey('Software\xiaoxin\Report', False ) then  //判断是否存在键
    begin
      UserInfo := '未登记用户';
      Password := '999';
      UserId := 'ABCD';
      OpenKey( 'Software\xiaoxin\Report', True );//新建键
      WriteString('UserInfo', UserInfo);
      WriteString('Password', Password);
      WriteString('UserId',UserId);
    end else
    begin
      UserInfo := ReadString('UserInfo');  //读取键值
      Password := ReadString('Password');
      UserId := ReadString('UserId');
      if Trim(UserId) = '' then
      begin
        UserId := 'ABCD';
        OpenKey('Software\xiaoxin\Report', True);
        WriteString('UserId',UserId);
      end;
    end;
    CloseKey;    {关闭主键，同时将信息写入注册表}
    Destroy;     {释放内存  }
  end;
end;

Answer 5

GREAT THANK FOR cobi(我是小新，我只有5岁)