发表于 2009-1-5 19:48
| 
濡備綍灏嗕綘鐨勭▼搴忔斁鍦╓indows鍚姩涓
鍙戝竷: 2008-6-26 20:33 | 浣滆: admin | 鏌ョ湅: 31娆
width="84%">濡備綍灏嗕綘鐨勭▼搴忔斁鍦╓indows鍚姩涓
鏈夋椂闇瑕佽Windows鍦ㄥ惎鍔ㄦ椂鑷姩杩愯浣犵殑绋嬪簭,濡備綍鍦ㄧ▼搴忎腑瀹炵幇鍛?
浣跨敤Regedit鏌ユ壘HKEY_LOCALMACHINE\Sodtware\Microsoft\Windows\CurrentVersion\Run,浣犱細鍙戠幇鎵鏈夌殑Windows鍚姩鏃惰皟鐢ㄧ殑绋嬪簭閮藉湪杩欓噷,浜庢槸浣犲皢浣犵殑绋嬪簭澧炲姞鍦ㄨ繖閲屽氨鍙互浜.鍚嶇О涓轰綘鐨勭▼搴忕殑鏍囬,鍏跺间负浣犵殑绋嬪簭鐨勬墽琛岃矾寰勫拰鏂囦欢鍚嶇О.
濡侷nterbase:
Interbase Server"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"
鍦ㄧ▼搴忎腑瀹炵幇鍙互浣跨敤TRegIniFile鎴栬呬娇鐢═Registry閮藉彲浠.
User Registry;
Var
銆 RegF:TRegistry;
begin
銆 RegF:=TRegistry.Create;
銆 RegF.RootKey:=HKEY_LOCAL_MACHINE;
銆 try
銆銆 RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
銆銆 RegF.WriteString('Interbase Server', '"D:\Program
Files\Borland\IntrBase\BIN\ibserver.exe"');
except 銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆 ...
銆End;
銆RegF.Close;
銆RegF.Free;
銆end;
