아래와 같이 하면..
시작프로그램 폴더에 입력하지 않아도..
시작시 프로그램이 시작됩니다..
Procedure AddProgramOnStart(ProgramName,FileName:String);
Var
Temp : Hkey;
MyReg : TRegistry;
Begin
MyReg:= TRegistry.Create;
Temp:= HKEY_LOCAL_MACHINE;
MyReg.RootKey:= Temp;
MyReg.OpenKey('SoftWare', False);
MyReg.OpenKey('Microsoft', False);
MyReg.OpenKey('Windows', False);
MyReg.OpenKey('CurrentVersion', False);
MyReg.OpenKey('Run', False);
MyReg.WriteString(ProgramName, FileName);
End;
AddProgramOnStart('My Program', 'c:\my folder\myprg.exe');
From 류..
|