Delphi之三十六计之系统篇

• 1.NT 还是 Windows 98?取得当前操作平台
  
  　Function GetOSInfo : String;
  
  　begin
  
  　　Result := "";
  　　case Win32Platform of
  
  　　VER_PLATFORM_WIN32_WINDOWS: Result := "Windows 95/98";
  　　VER_PLATFORM_WIN32_NT: Result := "Windows NT";
  
  　else
  
  　　Result := "Windows32";
  　end;
  　end;
  
  　　2．获取当前Windows用户的登录名
  
  function GetCurrentUserName : string;
  
  　const
  　　cnMaxUserNameLen = 254;
  　var
  　　sUserName : string;
  　　dwUserNameLen : Dword;
  　begin
  　　dwUserNameLen := cnMaxUserNameLen-1;
  　　SetLength( sUserName, cnMaxUserNameLen );
  　　GetUserName(Pchar( sUserName ), dwUserNameLen );
  　　SetLength( sUserName, dwUserNameLen );
  　　Result := sUserName;
  　end;
  
  　　3． Windows控制面板的访问
  
  //在窗体的Private节中作ExecuteFile函数声明,并在实现部分书写如下代码：
  
  　function TForm1.ExecuteFile(const Params: String): Thandle;
  　var
  　　zFileName, zParams, zDir: array[0..79] of Char;
  　begin
  　　Result := ShellExecute(Application.MainForm.Handle,
  　　　　　　　nil,StrPCopy(zFileName, "c:\windows\rundll32.exe"),
  　　　　　　　StrPCopy(zParams, Params),
  　　　　　　　StrPCopy(zDir, "c:\windows\"),
  　　　　　　　SW_SHOW);
  　end; 更多内容请看系统安全设置  系统安装手册  系统备份专题专题，或 调用：
  
• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi之三十六计之系统篇 相关文章：
• ·Delphi之三十六计之系统篇
• Delphi之三十六计之系统篇 相关软件

上一篇:Delphi数据库控件使用入门

下一篇:Delphi基础教程：面向对象篇二

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐