网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
记忆参数的设置
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
icrosoft也在这个software键中
  ww.CreateKey( ''王伟'');                   
//在software键中创建一个名为“王伟“的键值,
使自己的名字和Borland,Netscape,
//Microsoft并排在一起,是不是很Cool啊:)
  ww.OpenKey( ''王伟'',FALSE);               
//打开键"王伟"
  ww.CreateKey(''XX单位XX管理系统'');        
//创建应用程序的名称
  ww.OpenKey(''XX单位XX管理系统'',TRUE);
  ww.CreateKey(''位置'');                    
//创建应用程序中某一个要存贮的项目的名称,便于管理
  ww.OpenKey(''位置'',TRUE);
  if (ww.ReadString(''first'')<>''1'')then     
//这是值得注意的一个地方,通过“first“来判断程序是否
    begin                                  
//是第一次写注册表,如果是第一次写则用程序给的默认值来
    ww.WriteString(''first'',''1'');           
//设置窗口的位置和大小。如果不是第一次启动应用程序则说明
    Form1.WindowState:=(wsNormal);         
//注册表中已经写了位置信息,就读这些信息并赋给Form。
    Form1.Top:=10;
    form1.Left:=10;
    form1.Height:=100;
    form1.Width:=100;
    end
  else
  begin
    if(ww.ReadString(''max'')=''y'') then      
//判断上次关闭程序时,窗口是否是最大化的。如果是的话,则
      Form1.WindowState:=(wsMaximized)     
//继续使窗口拥有这一特征。
    else
    begin
    Form1.top:=StrToInt(ww.ReadString(''top''));    
//如果不是最大化,则取位置和大小数据赋给From
    Form1.left:=StrToInt(ww.ReadString(''left''));
    Form1.height:=StrToInt(ww.ReadString(''height''));
    Form1.width:=StrToInt(ww.ReadString(''width''));
    end;
  end;
end;

//关闭窗口时要做的一些工作       
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ww.OpenKey(''位置'',FALSE);                  
//打开“位置”键
  if Form1.WindowState=(wsMaximized) then    
//如果当前程序是最大化,则把这一信息
  • 下一篇资讯: 浅析桌面精灵的实现
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号