//代码与关键注释
uses registry;
procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
s:string;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('software\microsoft\windows\currentversion\run', True);//启动选项注册表选项位置
reg.Writestring('zqd', application.ExeName);//前面那个可以任意设置，自己记住就好了,金山开机管理名字是这个，启动程序有zqd
if reg.ValueExists('zqd') then  //存在了 就说明添加成功了保险起见
showmessage('设置成功');
reg.CloseKey;
reg.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
var
reg:Tregistry;
s:string;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('software\microsoft\windows\currentversion\run',false);
if reg.DeleteValue('zqd')then                      //刚才设置的那个
begin
showmessage('已经取消了');
end
else
showmessage('没有自动运行');
reg.CloseKey;
reg.Free;
end;
end.

registry;
Procedure TMainFrm.LoadSoftList;
varmyreg:TRegistry;myList:TStringList;i:integer;curkey,SName:string;
beginmyreg:=TRegistry.Create;MyList:=TStringList.Create;myreg.RootKey:=HKEY_LOCAL_MACHINE;//获取注册表安装目录if myreg.OpenKey('Software\Microsoft\Windows\CurrentVersion\uninstall',False) thenBeginmyreg.GetKeyNames(myList);//memo1.Lines.Text:=myList.Text;curkey:=myreg.CurrentPath;myreg.CloseKey;for i:=0 to MyList.Count-1 doif myreg.OpenKey(curKey+'\'+MyList.Strings[i],False) thenBeginif myreg.ValueExists('DisplayName') thenSname:=myreg.ReadString('DisplayName')elseSName:=MyList.Strings[i];if myreg.ValueExists('DisplayVersion') thenSname:=Sname+'  版本：'+myreg.ReadString('DisplayVersion')elseSName:=MyList.Strings[i];memo1.Lines.Add(SName);myreg.CloseKey;end;end;
end;procedure TMainFrm.GetWinMemory;
varPhysicalTotalOut,PhysicalFreeOut,VirtualTotalOut,VirtualFreeOut:string;MemStatus: MEMORYSTATUS;
beginMemStatus.dwLength := sizeof(MEMORYSTATUS);GlobalMemoryStatus(MemStatus); //返回内存使用信息PhysicalTotalOut:=FormatFloat(' Physical Memory Total: #,## ',Round(MemStatus.dwTotalPhys/ 1024 / 1024));PhysicalFreeOut:=FormatFloat(' Physical Memory Free: #,## ',MemStatus.dwAvailPhys/ 1024 / 1024);VirtualTotalOut:=FormatFloat(' Virtual Memory Total: #,## ',MemStatus.dwTotalVirtual/ 1024 / 1024);VirtualFreeOut:=FormatFloat(' Virtual Memory Free: #,## ',MemStatus.dwAvailVirtual/ 1024 / 1024);Label3.Caption:= PhysicalTotalOut +#13+PhysicalFreeOut;Label4.Caption:= VirtualTotalOut +#13+ VirtualFreeOut;
End;

procedure TRegMonitorThread.Execute;
begin
InitThread; // 打开注册表键,创建通知事件
while not Terminated do
begin
if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then
begin
fChangeData.RootKey := RootKey;
fChangeData.Key := Key;
SendMessage(Wnd, WM_REGCHANGE,
RootKey, LongInt(PChar(Key)));
ResetEvent(FEvent); // Fevent对象复位，等待再次被触发
RegNotifyChangeKeyValue(FReg.CurrentKey, 1, Filter, FEvent, 1);
end;
end;
end;

procedure TForm1.WMREGCHANGE(var Msg: TMessage);
begin
with Memo1.Lines do
begin
Add('-----------------------------------');
Add('Registry change at ' + DateTimeToStr(Now));
Add(IntToStr(RegMonitorThread.ChangeData.RootKey) +
' - ' + RegMonitorThread.ChangeData.Key);
end;
end;

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\windows\CurrentVersion\Uninstall我最终还是决定通过监控这个注册表项来达到判断是否有软件安装下来的目的。虽然不是所有的软件安装后都会修改该项，但是，大部分是可以的。

unit regftyp;
(***************************************************************************
This is a unit to handle filetyp-associations in Win95/NT. The unit supports -Registration of a filetype
-Adding extra-actions to an entry (Like 'Edit' for Batch-Files)
-Adding an entry to the 'New'-Context-Menu
-Removing all the stuff that the unit can create.. Here the description of the procedures: RegisterFileType :   Registers a filetype params: ft   : the file-ext to create an association (.txt) key  : the registry-key-name (not necessary) (txtfile) desc : a description for the file-type       (Text-File) icon : the default-icon (not necessary)      (Application.ExeName+',1') prg  : the application                       (Application.ExeName NOTES: The number in the Icon-parameter describes the Index of the Icon in the given filename. Note that it begins with 0 for the first icon Example: registerFileType('.rvc', 'rvconfile', 'RasInTask Connection', Application.ExeName+',1', Application.ExeName); ----------------------- DeregisterFileType :    Removes the registration of a filetype params: ft   : the file-ext to create an association (.txt) (with point!!) NOTES: -This procedure kills all entries for our filetype. Also features like extended actions and entries to the new-context-menu! Example: deregisterFileType('.tst'); ------------------------ FileTAddAction :          Adds an action to the ContextMenu of our filetype params: key     : the same as in the functions above  (txtfile) name    : the name of the action (not necessary) (notepad) display : this is shown in the contextMenu (Edit with Notepad) action  : The Action to do NOTES: If you have set up the association with this unit and an empty 'key', please give here the file extension. Other to the RegisterFileTpe-Call, you MUST set the FULL action-parameter: If you wish to open the file, you MUST write the %1 at the end, because I think that there are many possibilities for an entry in the Context-Menu, so I won't destroy many of them.. Example: FileTAddAction('rvconfile','edit','Edit',Application.ExeName+'-e "%1"'); ------------------------ FileTDelAction :         Removes the created Action params: key     : the same as in the functions above  (txtfile) name    : the name of the action              (notepad) NOTES: -If you have set up the association with this unit and an empty 'key', please give here the file extension. -If you left the param 'name' blank when you created the action, you should give here the value of 'display'. -Note that you have not to call this procedure if you wish to deregister a filetype. My Procedure is very radical and kills the actions too... Example: FileTDelAction('rvconfile','edit'); procedure FileTAddNew(ft, param: String; newType: TFileNewType); ------------------------ FileTAddNew :         Adds an entry to the New-context-menu params: ft      : the extension of our file (with point!!) (.txt) param   : for extended information (see NOTES)     (Application.ExeName+' -cn') newType : the typ of the entry to create           (ftCommand) NOTES: -The parameter newType is of the type 'TFileNewType' which must have one of the following values: ftNullFile    If the user clicks on our entry, windows will create a file with the size 0 bytes. The procedure parameter 'param' is ignored ftFileName    Windows will copy the File you give to this procedure in the 'param'-parameter. Useful, if your application reads a fileheader which must exist... ftCommand     Windows launches the program you have given to this procedure in the 'param'-parameter. This can be used to display a wizzard -If you use the ftCommand-type, please note that your Wizzard MUST display a "Save As"-Dialog ore something like this, if you wish to create a file: Windows does not copy or create a file in the folder in which the user has clicked on our entry. Example: FileTAddNew('.tst','', ftNullFile); ------------------------ FileTDelNew :         Removes our entry in the 'New'-ContextMenu params: ft      : the filetype of our file (with point!!)  (.txt) NOTES: -Note that you have not to call this procedure if you wish to deregister a filetype. My Procedure is very radical and kills the actions too... Example: FileTDelNew('.tst'); -------------------------------------------------------------------------------- I have written this unit for my Freeware(!) program RasInTask. It is a
dialup-dialer with some extra-feature. For the version 1.1 I am now implementing a feature named "virtual connections",
and I need to register filetypes. I do not know why Microsoft did not implement
a "RegisterFiletype"-Function to the API. So the programmer has to do very to
much of work. You can use this Unit when- and whereever you wish. It is freeware. Please visit my Homepage at http://www.mittelschule.ch/pilif/ for other cool
tools or send an Email to pilit@dataway.ch or pilif@nettaxi.com Version 1.0 History: none ToDo-List: I will add some Errorhandling. Since I did in the past never need to create
exceptions, I do not know how to do this. I will add some as soon as I know
how... *******************************************************************************) interface uses windows,registry,dialogs; type TFileNewType = (ftNullFile, ftFileName, ftCommand); //This is the type of //entry to add to the //new-menu procedure registerfiletype(ft,key,desc,icon,prg:string);
procedure deregisterFileType(ft: String);
procedure FileTAddAction(key, name, display, action: String);
procedure FileTDelAction(key, name: String);
procedure FileTAddNew(ft, param: String; newType: TFileNewType);
procedure FileTDelNew(ft: String); implementation procedure FileTDelNew(ft: String);
var myReg:TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_CLASSES_ROOT;
if not myReg.KeyExists(ft) then begin MyReg.Free; Exit; end;
MyReg.OpenKey(ft, true);
if MyReg.KeyExists('ShellNew') then MyReg.DeleteKey('ShellNew');
MyReg.CloseKey;
MyReg.Free;
end; procedure FileTAddNew(ft, param: String; newType: TFileNewType);
var myReg:TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_CLASSES_ROOT;
if not myReg.KeyExists(ft) then begin MyReg.Free; Exit; end;
myReg.OpenKey(ft+'\ShellNew', true);
case NewType of ftNullFile : MyReg.WriteString('NullFile', ''); ftFileName : MyReg.WriteString('FileName', param); ftCommand  : MyReg.WriteString('Command', param);
end;
MyReg.CloseKey;
MyReg.Free;
end; procedure FileTDelAction(key, name: String);
var myReg: TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_CLASSES_ROOT; if key[1] = '.' then key := copy(key,2,maxint)+'_auto_file'; if key[Length(key)-1] <> '\' then //Add a \ if necessary key:=key+'\';
myReg.OpenKey('\'+key+'shell\', true);
if myReg.KeyExists(name) then myReg.DeleteKey(name);
myReg.CloseKey;
myReg.Free;
end; procedure FileTAddAction(key, name, display, action: String);
var
myReg:TRegistry;
begin
myReg:=Tregistry.Create;
myReg.RootKey:=HKEY_CLASSES_ROOT;
if name='' then name:=display; if key[1] = '.' then key:= copy(key,2,maxint)+'_auto_file'; if key[Length(key)-1] <> '\' then //Add a \ if necessary key:=key+'\';
if name[Length(name)-1] <> '\' then //dito. For only two calls, I won't write a function... name:=name+'\'; myReg.OpenKey(key+'Shell\'+name, true);
myReg.WriteString('', display);
MyReg.CloseKey;
MyReg.OpenKey(key+'Shell\'+name+'Command\', true);
MyReg.WriteString('', action);
myReg.Free;
end; procedure deregisterFileType(ft: String);
var myreg:TRegistry; key: String;
begin
myreg:=TRegistry.Create;
myReg.RootKey:=HKEY_CLASSES_ROOT;
myReg.OpenKey(ft, False);
key:=MyReg.ReadString('');
MyReg.CloseKey;
//showMEssage(key);
myReg.DeleteKey(ft);
myReg.DeleteKey(key);
myReg.Free;
end; procedure registerfiletype(ft,key,desc,icon,prg:string);
var myreg : treginifile; ct : integer;
begin
//   RegisterFileType('.tst', 'testfile', 'A Testfile', '',
//                    Application.ExeName); // make a correct file-extension ct := pos('.',ft); while ct > 0 do begin delete(ft,ct,1); ct := pos('.',ft); end; if (ft = '') or (prg = '') then exit; //not a valid file-ext or ass. app ft := '.'+ft; myreg := treginifile.create(''); try myreg.rootkey := hkey_classes_root; // where all file-types are described if key = '' then key := copy(ft,2,maxint)+'_auto_file'; // if no key-name is given, // create one myreg.writestring(ft,'',key); // set a pointer to the description-key myreg.writestring(key,'',desc); // write the description if icon <> '' then myreg.writestring(key+'\DefaultIcon','',icon); // write the def-icon if given myreg.writestring(key+'\shell\open\command','',prg+' "%1"'); //association finally myreg.free; end;
//     showmessage('File-Type '+ft+' associated with'#13#10+
//     prg+#13#10); end;
end. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation uses regftyp; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFileType('.tst', 'testfile', 'A Testfile', '', Application.ExeName);
ShowMessage('.tst-Files are now registered under the type ''A Testfile''');
end; procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;
begin AssignFile(f, ExtractFilePath(Application.ExeName)+'test.tst'); Rewrite(f); writeln(f, 'This is a simple test'); closeFile(f); ShowMessage('File Created: '+ExtractFilePath(Application.ExeName)+'test.tst');
end; procedure TForm1.Button3Click(Sender: TObject);
begin
FileTAddAction('testfile', 'edit', 'Edit with Notepad', 'Notepad "%1"');
ShowMessage('''Edit with Notepad'' added to the context menu of all .tst-Files!');
end; procedure TForm1.Button4Click(Sender: TObject);
begin
FileTAddNew('.tst', '', ftNullFile);
ShowMessage('The entry ''A Testfile'' is now added to the ''New''-contextmenu'+#13+#13+ 'Before you test the next 4 Buttons, please have a look at the'+#13+ 'directory of this Application ('+ExtractFilePath(Application.ExeName)+ ')'+#13+'to see, what you have done while clicking the first 4 buttons!'); end; procedure TForm1.Button5Click(Sender: TObject);
begin
FileTDelNew('.tst');
ShowMessage('Entry deleted from the new-context-Menu');
end; procedure TForm1.Button6Click(Sender: TObject);
begin
FileTDelAction('testfile', 'edit');
ShowMessage('Action deleted from the context-Menu'); end; procedure TForm1.Button7Click(Sender: TObject);
begin
DeregisterFileType('.tst');
end; procedure TForm1.Button8Click(Sender: TObject);
begin
DeleteFile(ExtractFilePath(Application.ExeName)+'test.tst');
showMessage('File deleted');
end; end. 

{-------------------------------------------------------------------------------@过程名:    slpert -> TFm_main.SetAssociatedExec@作者:      Gavin@日期:      2004.09.08@功能描述：@参数:      FileExt, Filetype, FileDescription, MIMEType, ExecName: string@返回值:    Boolean
-------------------------------------------------------------------------------}Function TFm_main.SetAssociatedExec(FileExt, Filetype, FileDescription,MIMEType, ExecName: String): Boolean; {修改成功，返回True，否则False}
VarReg: TRegistry;ShFileInfo: TSHFILEINFO;IconIndex: integer;
BeginResult := False; {}// ShGetFileInfo(Pchar(ExecName), 0, SHFileInfo,SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_SMALLICON);//IconIndex:=SHFileInfo.iIcon;//showmessage(inttostr(iconIndex));If (FileExt = ) Or (ExecName = ) ThenExit; {如果文件类型为空或者没有定义执行程序就退出，FileExt必须带″.″，如.BMP}Reg := TRegistry.Create;TryReg.RootKey := HKey_Classes_Root;If Not Reg.OpenKey(FileExt, True) ThenExit; {当不能正确找到或创建FileExt键时退出，这种情况一般是注册表有错误，以下同}Reg.WriteString(, FileType);If MIMEType <> ThenBeginReg.WriteString(Content Type, MIMEType);End;Reg.CloseKey;If Not Reg.OpenKey(FileType, True) ThenExit;Reg.WriteString(, FileDescription);If Not Reg.OpenKey(shell\open\command, True) ThenExit;Reg.WriteString(, ExecName + "%1");{执行程序一般都有参数，例如WinZip的“winzip32.exe ″％1″”，″％1″参数指ZIP文件的文件名。因此ExecName应视情况加入参数}Reg.CloseKey;If Not Reg.OpenKey(FileType + \DefaultIcon, True) ThenExit;Reg.WriteString(,ExecName+ ,1);   ///ExtractFilePath(
    Reg.CloseKey;Result := true;FinallyReg.Free;End;
End;文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!