注册表自启动 不指定

青色咖啡 , 2010/08/20 23:02 , 电脑技巧 , 评论(0) , 阅读(20) , Via 本站原创

我们经常会遇到许多不请自来自己启动的程序,还有许多是我们不想让它启动的程序,不要以为管好了“开始→程序→启动”菜单就万事大吉,实际上,在Windows XP/2K中,让Windows自动启动程序的办法很多,下文告诉你最重要的两个文件夹和八个注册键。看看里面有哪些是你不想要的,请按“del”键。

文件夹

一、当前用户专有的启动文件夹

这是许多应用软件自动启动的常用位置,Windows自动启动放入该文件夹的所有快捷方式。用户启动文件夹一般在:\Documents and Settings\<用户名字>\“开始”菜单\程序\启动,其中“<用户名字>”是当前登录的用户账户名称。

二、对所有用户有效的启动文件夹

这是寻找自动启动程序的第二个重要位置,不管用户用什么身份登录系统,放入该文件夹的快捷方式总是自动启动——这是它与用户专有的启动文件夹的区别所在。该文件夹一般在:\Documents and Settings\All Users\“开始”菜单\程序\启动。

注册表

三、Load注册键

介绍该注册键的资料不多,实际上它也能够自动启动程序。位置:HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\CurrentVersion\Windows\load。

四、Userinit注册键

位置:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\
CurrentVersion\Winlogon\Userinit。这里也能够使系统启动时自动初始化程序。通常该注册键下面有一个userinit.exe。这个键允许指定用逗号分隔的多个程序,例如“userinit.exe,OSA.exe”(不含引号)。

五、Explorer\Run注册键

和load、Userinit不同,Explorer\Run键在HKEY_CURRENT_USER和HKEY_LOCAL_MACHINE下都有,具体位置是:HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\Policies\Explorer\Run,和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\
CurrentVersion\Policies\Explorer\Run。

六、RunServicesOnce注册键

RunServicesOnce注册键用来启动服务程序,启动时间在用户登录之前,而且先于其他通过注册键启动的程序。RunServicesOnce注册键的位置是:HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\RunServicesOnce,和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\W
indows\CurrentVersion\RunServicesOnce。

七、RunServices注册键

RunServices注册键指定的程序紧接RunServicesOnce指定的程序之后运行,但两者都在用户登录之前。RunServices的位置是:HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\ RunServices,和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\
CurrentVersion\RunServices。

八、RunOnce\Setup注册键

RunOnce\Setup指定了用户登录之后运行的程序,它的位置是:HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\RunOnce\Setup,和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\
CurrentVersion\RunOnce\Setup。

九、RunOnce注册键

安装程序通常用RunOnce键自动运行程序,它的位置在HKEY_LOCAL_MACHINE\SOFTWARE\
Microsoft\ Windows\CurrentVersion\RunOnce和HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\RunOnce。HKEY_LOCAL_MACHINE下面的RunOnce键会在用户登录之后立即运行程序,运行时机在其他Run键指定的程序之前。HKEY_CURRENT_USER下面的RunOnce键在操作系统处理其他Run键以及“启动”文件夹的内容之后运行。如果是XP,你还需要检查一下HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\
Windows\CurrentVersion\RunOnceEx。

十、Run注册键

Run是自动运行程序最常用的注册键,位置在:HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\Run,和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\
CurrentVersion\Run。HKEY_CURRENT_USER下面的Run键紧接HKEY_LOCAL_MACHINE下面的Run键运行,但两者都在处理“启动”文件夹之前。

汇总如下:

\Documents and Settings\<用户名字>\“开始”菜单\程序\启动

\Documents and Settings\All Users\“开始”菜单\程序\启动

 

HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\CurrentVersion\Windows\load
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServices
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce\Setup
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

 

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\Setup
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

鼠标交换左右键 不指定

青色咖啡 , 2010/06/20 00:27 , delphi基础 , 评论(1) , 阅读(97) , Via 本站原创

本例通过注册表控制

注:使用注册表要有User 子句中添加 Registry 单元

 
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   mouse_key:Tregistry;
  4. begin
  5.   mouse_key:=Tregistry.Create;
  6.   begin
  7.    mouse_key.RootKey:=Hkey_current_user;
  8.     try
  9.       if mouse_key.OpenKey('Control Panel\mouse',True)  then
  10.       begin
  11.         if mouse_key.ValueExists(key_value) then
  12.         if mouse_key.ReadString(key_value)=Left_M then
  13.         begin
  14.           SwapMouseButton(True);
  15.           mouse_key.WriteString(key_value,right_M);
  16.         end
  17.         else
  18.         begin
  19.           SwapMousebutton(False);
  20.           mouse_key.WriteString(key_value,Left_M);
  21.         end;
  22.         mouse_key.CloseKey;
  23.       end;
  24.     finally
  25.       mouse_key.Free;
  26.     end;
  27.   end;
  28. end;
  29. end.

 

查询是否连接上网络 不指定

青色咖啡 , 2010/06/20 00:23 , 网络技术 , 评论(0) , 阅读(70) , Via 本站原创

新建一个工程,主窗体命名为FrmCheckOnline,在窗体中添加 TAnimate,Tbutton和 TGroupBox 组件

自定一个函数测试连接状态

 
  1. function TFrmCheckOnline.CheckOffline: boolean;
  2. var
  3.   ConnectState: DWORD;
  4.   StateSize: DWORD;
  5. begin
  6.   ConnectState:= 0;
  7.   StateSize:= SizeOf(ConnectState);
  8.   InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize);
  9.   if (ConnectState and INTERNET_STATE_DISCONNECTED) =
  10.   INTERNET_STATE_DISCONNECTED then
  11.     result:= true
  12.   else
  13.     result:= false;
  14. end;
  15. procedure TFrmCheckOnline.BtnCheckClick(Sender: TObject);
  16. begin
  17.   ani.Visible:=true;
  18.   if CheckOffline then
  19.   begin
  20.     ani.Active:=false;
  21.     showmessage('没在线!');
  22.   end
  23.   else
  24.   begin
  25.     ani.Active:=true;
  26.     showmessage('在线!');
  27.   end;
  28. end;

 

delphi 截取网络封包 不指定

青色咖啡 , 2010/06/20 00:06 , 个人作品 , 评论(0) , 阅读(71) , Via 本站原创
 
  1. unit fmMain; 
  2.  
  3. interface 
  4.  
  5. uses 
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  7. Dialogs, StdCtrls; 
  8.  
  9. type 
  10. TForm1 = class(TForm) 
  11. Button1: TButton; 
  12. Button2: TButton; 
  13. Edit1: TEdit; 
  14. procedure Button1Click(Sender: TObject); 
  15. procedure Button2Click(Sender: TObject); 
  16. private 
  17. { Private declarations } 
  18. public 
  19. { Public declarations } 
  20. end
  21.  
  22. var 
  23. Form1: TForm1; 
  24. InstallHook: function (SWindow: THandle):Boolean;stdcall; 
  25. UnHook: procedure;stdcall; 
  26. implementation 
  27.  
  28. {$R *.dfm} 
  29.  
  30. procedure TForm1.Button1Click(Sender: TObject); 
  31. var 
  32. ModuleHandle: THandle; 
  33. TmpWndHandle: THandle; 
  34. begin 
  35. TmpWndHandle := 0
  36. TmpWndHandle := FindWindow(nil'目标窗口的标题'); 
  37. if not isWindow(TmpWndHandle) then 
  38. begin 
  39. MessageBox(self.Handle, '没有找到窗口''!!!', MB_OK); 
  40. exit; 
  41. end
  42. ModuleHandle := LoadLibrary('Hook.dll'); 
  43. @InstallHook := GetProcAddress(ModuleHandle, 'InstallHook'); 
  44. @UnHook := GetProcAddress(ModuleHandle, 'UnHook'); 
  45. if InstallHook(FindWindow(nil'Untitled')) then 
  46. ShowMessage('Hook OK'); 
  47. end
  48.  
  49. procedure TForm1.Button2Click(Sender: TObject); 
  50. begin 
  51. UnHook 
  52. end
  53.  
  54. end.

用shellExecute 打开一个文件夹,那如何打开一个文件夹并选中指定的文件呢。
下面一个函数就可以就可以做到:
filepath:=F:\手机相关\wince\Microsoft Pocket PC 2003 SDK.msi;
ShellExecute(0, nil, PChar(‘explorer.exe’),PChar(‘/e, ‘+ ‘/select, ‘ + filepath), nil, SW_NORMAL);

分页: 1/22 第一页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]