Q&A
- 레지스트리의 서브키의 값을 읽어올때요~~~
리스트박스에 HKEY_CLASSES_ROOT의 CLSID 의 서브키의 값을 보여주려고 하는데요.
아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요..
아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하겠습니다..
답변 꼬옥 부탁드립니다요~~ ㅠㅠ
procedure TItems.Button2Click(Sender: TObject);
var
Reg: TRegistry;
rInfo: TRegKeyInfo;
aList: TStringList;
gList: TStringList;
i: Integer;
begin
reg := TRegistry.Create;
aList := TStringList.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
if reg.OpenKey('CLSID', False) then
if reg.GetKeyInfo(rInfo) then begin
if rInfo.NumSubKeys > 0 then begin
reg.GetKeyNames(aList); //서브키 항목들 구하기
for i := 0 to rInfo.NumSubKeys -1 do begin
listbox1.items.Add(reg.ReadString(aList.strings[i]));
end;
end;
end;
finally
reg.CloseKey;
reg.Free;
aList.Free;
end;
end;
아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요..
아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하겠습니다..
답변 꼬옥 부탁드립니다요~~ ㅠㅠ
procedure TItems.Button2Click(Sender: TObject);
var
Reg: TRegistry;
rInfo: TRegKeyInfo;
aList: TStringList;
gList: TStringList;
i: Integer;
begin
reg := TRegistry.Create;
aList := TStringList.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
if reg.OpenKey('CLSID', False) then
if reg.GetKeyInfo(rInfo) then begin
if rInfo.NumSubKeys > 0 then begin
reg.GetKeyNames(aList); //서브키 항목들 구하기
for i := 0 to rInfo.NumSubKeys -1 do begin
listbox1.items.Add(reg.ReadString(aList.strings[i]));
end;
end;
end;
finally
reg.CloseKey;
reg.Free;
aList.Free;
end;
end;
3
COMMENTS
-
-
제가 원하는게 바로.. 지적하신대로..
항목들의 value 를 아는 거였거덩요~
구래서 readstring을 쓴거구요.. ^^;;
CLSID 밑에 있는 항목들의 value를 리스트 박스에 다 나타내게 하는 방법 혹시 아시면..
흐윽.. 부탁 드립니다......
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> aList에 키들이 들어 있는데 왜 또 reg.ReadString(aList.strings[i]);를 하셨는지?
>
> ReadString은 키값을 얻는게 아니라 항목(Data)에 연결된 값(Value)를 얻는것입니다.
>
>
> > reg.GetKeyNames(aList); //서브키 항목들 구하기
> > for i := 0 to rInfo.NumSubKeys -1 do begin
> > listbox1.items.Add(aList.strings[i]); <<<<<<<<<<<<<<<<<<<<<<<<<<<
>
> ^^ 항상 즐코하세요...
> eocn wrote:
> > 리스트박스에 HKEY_CLASSES_ROOT의 CLSID 의 서브키의 값을 보여주려고 하는데요.
> > 아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요..
> > 아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하겠습니다..
> > 답변 꼬옥 부탁드립니다요~~ ㅠㅠ
> >
> > procedure TItems.Button2Click(Sender: TObject);
> > var
> > Reg: TRegistry;
> > rInfo: TRegKeyInfo;
> > aList: TStringList;
> > gList: TStringList;
> > i: Integer;
> > begin
> > reg := TRegistry.Create;
> > aList := TStringList.Create;
> > try
> > reg.RootKey := HKEY_CLASSES_ROOT;
> > if reg.OpenKey('CLSID', False) then
> > if reg.GetKeyInfo(rInfo) then begin
> > if rInfo.NumSubKeys > 0 then begin
> > reg.GetKeyNames(aList); //서브키 항목들 구하기
> > for i := 0 to rInfo.NumSubKeys -1 do begin
> > listbox1.items.Add(reg.ReadString(aList.strings[i]));
> > end;
> > end;
> > end;
> > finally
> > reg.CloseKey;
> > reg.Free;
> > aList.Free;
> > end;
> > end;
> >
-
CLSID키에는 항목이 없는데요. 기본값밖에는.. 그 밑에 있는 키들이 몇개씩의 항목을
가지고 있는데... 쩝~ 그것들을 얻을려면 그 키를 열어야 해요...
eocn wrote:
> 제가 원하는게 바로.. 지적하신대로..
> 항목들의 value 를 아는 거였거덩요~
> 구래서 readstring을 쓴거구요.. ^^;;
> CLSID 밑에 있는 항목들의 value를 리스트 박스에 다 나타내게 하는 방법 혹시 아시면..
> 흐윽.. 부탁 드립니다......
>
>
> 최용일 wrote:
> > 안녕하세요. 최용일입니다.
> >
> > aList에 키들이 들어 있는데 왜 또 reg.ReadString(aList.strings[i]);를 하셨는지?
> >
> > ReadString은 키값을 얻는게 아니라 항목(Data)에 연결된 값(Value)를 얻는것입니다.
> >
> >
> > > reg.GetKeyNames(aList); //서브키 항목들 구하기
> > > for i := 0 to rInfo.NumSubKeys -1 do begin
> > > listbox1.items.Add(aList.strings[i]); <<<<<<<<<<<<<<<<<<<<<<<<<<<
> >
> > ^^ 항상 즐코하세요...
> > eocn wrote:
> > > 리스트박스에 HKEY_CLASSES_ROOT의 CLSID 의 서브키의 값을 보여주려고 하는데요.
> > > 아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요..
> > > 아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하겠습니다..
> > > 답변 꼬옥 부탁드립니다요~~ ㅠㅠ
> > >
> > > procedure TItems.Button2Click(Sender: TObject);
> > > var
> > > Reg: TRegistry;
> > > rInfo: TRegKeyInfo;
> > > aList: TStringList;
> > > gList: TStringList;
> > > i: Integer;
> > > begin
> > > reg := TRegistry.Create;
> > > aList := TStringList.Create;
> > > try
> > > reg.RootKey := HKEY_CLASSES_ROOT;
> > > if reg.OpenKey('CLSID', False) then
> > > if reg.GetKeyInfo(rInfo) then begin
> > > if rInfo.NumSubKeys > 0 then begin
> > > reg.GetKeyNames(aList); //서브키 항목들 구하기
> > > for i := 0 to rInfo.NumSubKeys -1 do begin
> > > listbox1.items.Add(reg.ReadString(aList.strings[i]));
> > > end;
> > > end;
> > > end;
> > > finally
> > > reg.CloseKey;
> > > reg.Free;
> > > aList.Free;
> > > end;
> > > end;
> > >
(NOTICE) You must be logged in to comment on this post.
-
- 초보임다..
- •
- 2001.03.08 03:14
- 2 COMMENTS
- /
- 0 LIKES
-
이기태•2001.03.09 03:44저희 샘플을 하나 보여드릴께요 참조해서 사용해보세요. with q_MyQuery do begin Close ; S...
-
옌날에..•2001.03.09 03:16초보임다.. wrote: > 안녕하세요!! > 델파이 왕초보입니다.. > > 디비를 오라클로 연결해서 사용하...
-
- 임성옥
- •
- 2001.03.08 03:07
- 3 COMMENTS
- /
- 0 LIKES
-
구경꾼•2001.03.08 10:22임성옥 wrote: > 고수님!부탁드립니다.. > > 파일 다운로드 중 취소를 누르면 > 파일다운이 중단되고...
-
임성옥•2001.03.08 19:44구경꾼 wrote: > 임성옥 wrote: > > 고수님!부탁드립니다.. > > > > 파일 다운로드 중 취소를 누르면 ...
-
써니•2001.04.11 02:20폼을 부를때 showmodal말고 show로 부르시고요. 닫을때 NMFTP1.Disconnect; NMFTP1.Free; Form.Close;...
-
- 초보자
- 2001.03.08 03:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음이예요
- •
- 2001.03.08 03:05
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.08 05:41안녕하세요. 최용일입니다. 아이콘을 실행파일에 넣는방법은 여러가지가 있습니다. 근데 >bmp 파일은...
-
- 써니
- 2001.03.08 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- 2001.03.08 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 한대필
- •
- 2001.03.08 02:48
- 3 COMMENTS
- /
- 0 LIKES
-
난나야!•2001.03.08 02:53한대필 wrote: > 질문 그대로 입니다. > > 어느 한 디렉토리의 자료를 디렉토리와 파일에 상관없이 깨...
-
한대필•2001.03.08 03:26답변 정말로 감사합니다.... 답변의 내용중엔 DeleteFile 가 들어있던데.. 그것으로는 디렉토리까지 지...
-
최용일•2001.03.08 05:44안녕하세요. 최용일입니다. 델파이 팁모아에서 찾아보시면 강민주님의 팁이 있습니다. 항상 먼저 검색해...
-
- eocn
- •
- 2001.03.08 02:20
- 3 COMMENTS
- /
- 0 LIKES
리스트박스에 HKEY_CLASSES_ROOT의 CLSID 의 서브키의 값을 보여주려고 하는데요. 아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요.. 아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하...-
최용일•2001.03.08 05:56안녕하세요. 최용일입니다. aList에 키들이 들어 있는데 왜 또 reg.ReadString(aList.strings[i]);를 하...
-
eocn•2001.03.09 00:16제가 원하는게 바로.. 지적하신대로.. 항목들의 value 를 아는 거였거덩요~ 구래서 readstring을 쓴거구...
-
최용일•2001.03.09 03:55CLSID키에는 항목이 없는데요. 기본값밖에는.. 그 밑에 있는 키들이 몇개씩의 항목을 가지고 있는데... ...
-
- error
- •
- 2001.03.08 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.08 05:59안녕하세요. 최용일입니다. ExtractString함수를 쓰세요... ExtractStrings([구분자], [화이트스페이...
-
- 초보자~
- 2001.03.08 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 라케
- 2001.03.08 01:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 난나야!
- 2001.03.08 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자~
- 2001.03.08 01:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 경석이!!
- 2001.03.08 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.03.08 00:06
- 0 COMMENTS
- /
- 0 LIKES
-
-
-
- 초보자
- •
- 2001.03.07 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
허접맨....•2001.03.08 22:18DATAPUMP 로 DB를 넘기면 구조뿐아니라 내용이랑 필드 명까지 가능 합니다. 그러나 파라독스를 쓰면 자료...
-
- 찌르
- 2001.03.07 22:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 박범석
- 2001.03.07 22:47
- 0 COMMENTS
- /
- 0 LIKES
aList에 키들이 들어 있는데 왜 또 reg.ReadString(aList.strings[i]);를 하셨는지?
ReadString은 키값을 얻는게 아니라 항목(Data)에 연결된 값(Value)를 얻는것입니다.
> reg.GetKeyNames(aList); //서브키 항목들 구하기
> for i := 0 to rInfo.NumSubKeys -1 do begin
> listbox1.items.Add(aList.strings[i]); <<<<<<<<<<<<<<<<<<<<<<<<<<<
^^ 항상 즐코하세요...
eocn wrote:
> 리스트박스에 HKEY_CLASSES_ROOT의 CLSID 의 서브키의 값을 보여주려고 하는데요.
> 아래와 같이 코딩을 했는데... 리스트 박스에 아무값도 나오지 않는데 그 이유를 모르겠네요..
> 아래의 소스에서 제가 잘못한 부분을 알려주심 정말 감사하겠습니다..
> 답변 꼬옥 부탁드립니다요~~ ㅠㅠ
>
> procedure TItems.Button2Click(Sender: TObject);
> var
> Reg: TRegistry;
> rInfo: TRegKeyInfo;
> aList: TStringList;
> gList: TStringList;
> i: Integer;
> begin
> reg := TRegistry.Create;
> aList := TStringList.Create;
> try
> reg.RootKey := HKEY_CLASSES_ROOT;
> if reg.OpenKey('CLSID', False) then
> if reg.GetKeyInfo(rInfo) then begin
> if rInfo.NumSubKeys > 0 then begin
> reg.GetKeyNames(aList); //서브키 항목들 구하기
> for i := 0 to rInfo.NumSubKeys -1 do begin
> listbox1.items.Add(reg.ReadString(aList.strings[i]));
> end;
> end;
> end;
> finally
> reg.CloseKey;
> reg.Free;
> aList.Free;
> end;
> end;
>