本页内容为:Delphi程序中调用控制面板程序(winexec的使用),该文章本站转载自网络,如有侵权请告之,我们将会及时将其删除,其正文内容如下:var x:cardinal;begin{启动控制面板}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项 属性-键盘}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);{辅助选项 属性-声音}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);{辅助选项 属性-显示}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);{辅助选项 属性-鼠标}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);{辅助选项 属性-常规}x:

Code 2009-03-02

procedure CmdExecAndView(FileName: string; memo: TMemo);procedure _AddInfo(mmInfo:TMemo; S: string; var line: string);var    i, p: Integer;begin    if mmInfo.Lines.Count > 800 then      mmInfo.Lines.Clear;    //去掉 \r    for i := 0 to Length(S) - 1 do      if S[i] = #13 then S[i] := ' ';    line := line + S;    // \n 断行    p := Pos(#10, line

Code 2009-03-02

北京查获一起造假陷害高科技企业案。17日出版的《科技日报》刊发了题为“一项重大原始创新何以大难不死——北京东方微点公司起死回生始末”的特稿,对此案进行了详细报道。今天中央人民广播电台《新闻与报纸摘要》节目也予以报道。  本报记者采访了相关各方,力图还原这桩堪称中国计算机杀毒业界最大的丑闻。  瑞星主动请托 要“铲”竞争对手  3年前,一条题为“北京破获全国首例故意传播网络病毒案件”的消息,在北京和地方各大媒体刊出,震惊全国。消息称,“北京东方微点信息技术有限责任公司(以下简称微点公司)在世界首创主动防御病毒软件,打破了对于计算机病毒全世界只能被动防御的局面。然而,该公司在软件研制过程中,违规在互联网上下载、运行多种病毒”, “致使计算机病毒在互联网上大量传播,严重危害网络安全,造成重大经济损失”。  消息引起了计算机用户极大的愤慨,众多网民对此予以谴责。案件当事人之一、微点公司副总经理田亚葵也因“网络传播病毒案”被警方逮捕关押11个月。微点公司背上了“防病毒公司传毒”的罪名。  然而,谁也不会想到,这样一个震惊全国的“国内首例防病毒公司传播病毒案”,竟是个别执法人员与商业公司联手制造的

Blog 2009-02-27

Seen a font in use and want to know what it is?Submit an image to WhatTheFont to find the closest matches in our database. or, let cloak-draped font enthusiasts lend a hand in the WhatTheFont ForumSubmit your image here   Maximum file size: 2MB. For best results, see the image submission tips.Look at each image below and make sure the text box agrees with the character highlighted in the image. Leave character boxes blank if no valid character is highlighted.http://new.myfonts.com/What

Blog 2009-02-27