Q&A
- 소스 어디가 틀린거죠? 레지스트리 값 삭제 안돼요.
체크박스에 체크되어 있으면 레지스트리에 등록하고, 아니면 삭제 할려고 그러는데
삭제가 안돼요.. 소스 어디가 틀린거지요?
procedure Tdirect.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
MyReg:TRegistry;
begin
if CheckBox.Checked then
begin
MyReg:= TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
MyReg.WriteString('main.exe',Application.ExeName);
MyReg.CloseKey;
MyReg.Free
end
else
begin
MyReg:= TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
MyReg.DeleteKey('main.exe');
MyReg.CloseKey;
MyReg.Free
end;
end;
삭제가 안돼요.. 소스 어디가 틀린거지요?
procedure Tdirect.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
MyReg:TRegistry;
begin
if CheckBox.Checked then
begin
MyReg:= TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
MyReg.WriteString('main.exe',Application.ExeName);
MyReg.CloseKey;
MyReg.Free
end
else
begin
MyReg:= TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
MyReg.DeleteKey('main.exe');
MyReg.CloseKey;
MyReg.Free
end;
end;
2
COMMENTS
-
-
고마워요~~ ^O^
안그래도 자문자답하러 들어온건데...
네.. 아직 레지스트리에 대해서 몰랐어요..
전 그게 키값인줄 알고.. 음.. 맞아여..
DeleteValue라구 하니깐 삭제되더라구..그 기분 날아갈 것 같십니당..
대답아무두 안해주셨으면 섭했을텐데..
전 언제쯤 여기 게시판에 답변을 올릴까요?
아유~ 앞이 껌껌하당..
병부잡이 wrote:
> 보니깐 값인거 같은데요
> DeleteKey는 키를 지우는 겁니다(레지스트리 열어보면 왼쪽에 폴더로 있는거 있죠
> 그게 키고 오른쪽 에 나오는게 값입니다)
> 값을 지우실땐 DeleteValue를 사용해야 할겁니다..
>
>
> 파이걸 wrote:
> > 체크박스에 체크되어 있으면 레지스트리에 등록하고, 아니면 삭제 할려고 그러는데
> > 삭제가 안돼요.. 소스 어디가 틀린거지요?
> >
> > procedure Tdirect.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> > var
> > MyReg:TRegistry;
> > begin
> > if CheckBox.Checked then
> > begin
> > MyReg:= TRegistry.Create;
> > MyReg.RootKey := HKEY_LOCAL_MACHINE;
> > if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
> > MyReg.WriteString('main.exe',Application.ExeName);
> > MyReg.CloseKey;
> > MyReg.Free
> > end
> > else
> > begin
> > MyReg:= TRegistry.Create;
> > MyReg.RootKey := HKEY_LOCAL_MACHINE;
> > if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
> > MyReg.DeleteKey('main.exe');
> > MyReg.CloseKey;
> > MyReg.Free
> > end;
> > end;
(NOTICE) You must be logged in to comment on this post.
-
- 끄응~^^
- 2000.10.05 19:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 박인영
- 2000.10.05 19:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 전준형
- •
- 2000.10.05 18:01
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.10.05 18:56전준형 wrote: > NMFTP 컴퍼넌트에서 ListItem 이란 이벤트가 있던데... > 이게 어떤 이벤트인지 알고 싶...
-
- 델파이초보
- •
- 2000.10.05 21:38
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.10.05 18:37델파이초보 wrote: > 델파이 책을 보고 있는 parambyname에 설명이 없어서 궁금합니다...부탁합니다. ...
-
- 프로그래밍초보
- •
- 2000.10.05 13:01
- 1 COMMENTS
- /
- 0 LIKES
-
각시탈•2000.10.05 18:30프로그래밍초보 wrote: > 텍스트 파일의 내용을 검색하려고 합니다. > > 예) Edit1.text 에 "귀여운 여...
-
- 네트웍/통신초보
- •
- 2000.10.05 12:54
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.10.05 19:22네트웍/통신초보 wrote: > 전 델파이로 프로그래밍하는것을 재밌어하는 프로그래밍 초보입니다. > 예를들...
-
- 이경수
- 2000.10.05 10:36
- 0 COMMENTS
- /
- 0 LIKES
-
- sonny
- •
- 2000.10.05 09:38
- 1 COMMENTS
- /
- 0 LIKES
-
백근훈•2000.10.05 18:25sonny wrote: > 안녕하셔요? > String Grid내에 출력된 문자의 Byte수를 > 구할려면 어떻게 해야되죠? ...
-
- 정진아
- •
- 2000.10.05 08:08
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.05 21:58정진아 wrote: > 움.. 컴퓨터를 옮겨.. 프로젝트와.. 테이블을.. 다운 받아.. > ODBC로.. 새로 다 잡아주...
-
- 송길수
- 2000.10.05 07:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 걸음마
- •
- 2000.10.05 06:51
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.10.05 13:39걸음마 wrote: > adobe 나 그림판에서 혹은 화면을 캡쳐한 정보는 클립보드로 들어 간다고 그러던데요 > ...
-
- delpo
- •
- 2000.10.05 05:44
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.10.05 08:40if trim(combobox1.text) = '' then showmessage('값을 넣으세염.'); 잠시 쉬시는게 좋을듯. ^-^; ...
-
- 김지명
- 2000.10.05 05:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 코스모
- •
- 2000.10.05 05:00
- 1 COMMENTS
- /
- 0 LIKES
-
이영준•2001.02.03 04:59먼저..MSDE는 공짜가 아니구여...ACCESS,OFFICE 또는 V STUDIO를 사면 라이센스가 따라 오는 것이구여......
-
- 호짐
- •
- 2000.10.05 04:53
- 1 COMMENTS
- /
- 0 LIKES
-
병부잡이•2000.10.05 05:54스트링 그리드를 사용할 때는 TQuery 컴포넌트를 이용하여 SQL문을 사용합니다 SQL문 아시죠? 모르시면 어...
-
- 우희연
- •
- 2000.10.05 04:47
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.05 18:08우희연 wrote: > K := 100101; > Qry_Code.Close; > Qry_Code.ParamByName('A1').AsString := 'A0...
-
신호성•2000.10.05 17:07우희연 wrote: > K := 100101; > Qry_Code.Close; > Qry_Code.ParamByName('A1').AsString := 'A0...
-
- coco
- 2000.10.05 04:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이걸
- •
- 2000.10.05 03:32
- 2 COMMENTS
- /
- 0 LIKES
체크박스에 체크되어 있으면 레지스트리에 등록하고, 아니면 삭제 할려고 그러는데 삭제가 안돼요.. 소스 어디가 틀린거지요? procedure Tdirect.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var MyReg:TRegistry; begin if...-
병부잡이•2000.10.05 06:00보니깐 값인거 같은데요 DeleteKey는 키를 지우는 겁니다(레지스트리 열어보면 왼쪽에 폴더로 있는거 있죠...
-
파이걸•2000.10.05 06:33고마워요~~ ^O^ 안그래도 자문자답하러 들어온건데... 네.. 아직 레지스트리에 대해서 몰랐어요.. 전 그...
-
- 이호형
- •
- 2000.10.05 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.05 03:31이호형 wrote: > 안녕하세요.. > > 어떤 명령을 서버로 보낼때 필요한 파라미터를 입력 받아 > 화면 D...
-
- 전한민
- 2000.10.05 03:19
- 0 COMMENTS
- /
- 0 LIKES
DeleteKey는 키를 지우는 겁니다(레지스트리 열어보면 왼쪽에 폴더로 있는거 있죠
그게 키고 오른쪽 에 나오는게 값입니다)
값을 지우실땐 DeleteValue를 사용해야 할겁니다..
파이걸 wrote:
> 체크박스에 체크되어 있으면 레지스트리에 등록하고, 아니면 삭제 할려고 그러는데
> 삭제가 안돼요.. 소스 어디가 틀린거지요?
>
> procedure Tdirect.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> var
> MyReg:TRegistry;
> begin
> if CheckBox.Checked then
> begin
> MyReg:= TRegistry.Create;
> MyReg.RootKey := HKEY_LOCAL_MACHINE;
> if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
> MyReg.WriteString('main.exe',Application.ExeName);
> MyReg.CloseKey;
> MyReg.Free
> end
> else
> begin
> MyReg:= TRegistry.Create;
> MyReg.RootKey := HKEY_LOCAL_MACHINE;
> if MyReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionrun',true) then
> MyReg.DeleteKey('main.exe');
> MyReg.CloseKey;
> MyReg.Free
> end;
> end;