Uses Registry;
Var
RegF:TRegistry;
BEGIN
REGF:=TREGISTRY.CREATE;
REGF.ROOTKEY:=HKEY_LOCAL_MACHINE;
TRY
REGF.OPENKEY('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN,TRUE');
REGF.WRITESTRING('文件名','".EXE文件的绝对路径"');
EXCEPET
SHOWMESSAGE();
END;
REGF.FREE;
END;
责任编辑:小草