?? autostart.pas
字號:
unit AutoStart;
interface
implementation
uses
Windows, Registry, Forms;
var
RegF: TRegistry;
initialization
///////////////開機啟動
RegF := TRegistry.Create;
RegF.RootKey := HKEY_LOCAL_MACHINE;
try
if RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then
if ParamStr(1) <> '' then
RegF.WriteString('ProcGuard', '"' + application.exename + '" ' + ParamStr(1))
else
RegF.WriteString('ProcGuard', '"' + application.exename + '"');
finally
RegF.CloseKey;
End;
RegF.Free;
/////////////
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -