Q&A
- Windws7에서 Logon User를 Registry에서 읽는방법은?
<!--
XP에서 현재 로그온 사용자는
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer', False);
user := ReadString('Logon User Name');
로 잘 되는데......
Windws7에서는 위의 Key도 없지만 OpenKey로 읽히지도 않아 OpenKeyReadOnly로 바꾸어 아래 Key를
읽었지만 Registery에는 있는데 읽혀지지않네요.
RootKey := HKEY_CURRENT_USER;
OpenKeyReadOnly('Volatile Environment');
user := ReadString('USERNAME');
아시는 고수님들, 도움 부탁드립니다.
--!>
(NOTICE) You must be logged in to comment on this post.
-
- 뉴질랜드목동
- 2011.07.15 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 심즈
- •
- 2011.07.15 00:57
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2011.08.11 22:24project1.dof 파일이 있는 위치를 열어서 확인해보세요.. 디렉토리가 읽기 전용으로 되어 있다거나, 파일이... -
심즈•2011.08.25 00:27답변 감사합니다.. 확인 해 볼게요..^^
-
- 오프라인
- •
- 2011.07.12 01:54
- 2 COMMENTS
- /
- 0 LIKES
-
수원성•2011.07.26 18:34QR Code가 많이 사용 (서적,스마트 폰 사용)2D Barcode VCL Componentshttp://www.han-soft.com/barcode2d....
-
Jins_lee•2011.08.03 19:54델파이 3에서도 출력 가능했습니다. 이미지 형태로 만들어서 넣었던 걸로 기억합니다.
-
- 견공자
- 2011.07.10 08:42
- 0 COMMENTS
- /
- 0 LIKES
-
- delphi
- 2011.07.08 02:04
- 0 COMMENTS
- /
- 0 LIKES
-
- ph1000
- 2011.07.05 04:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 심즈
- •
- 2011.07.02 20:10
- 1 COMMENTS
- /
- 0 LIKES
-
심즈•2011.07.03 07:37Form의 오브젝트 인스펙터에서 HorzScrollBar 속성 의 Tracking 을 True 로 하니 웹브라우저도 ...
-
- 빡스
- •
- 2011.06.25 04:37
- 2 COMMENTS
- /
- 0 LIKES
-
소나기•2011.06.25 16:38책이 거의 전무하다 싶네요.인터넷 서점을 보시면 중고책을 팔고 있습니다. 그런데서 한번 찾아 보시고.시...
-
수인아빠•2011.06.27 17:307월중에 데브기어에서 책이 출간된다는 소식이 있긴 합니다.....
-
- 델캡짱
- •
- 2011.06.15 22:00
- 2 COMMENTS
- /
- 0 LIKES
-
zeliard•2011.06.17 07:00TScrollBox에 TImage를 넣어서 써보세요.
-
anonymous•2011.06.17 08:14http://www.delphi.co.kr/?mid=lecture&document_srl=213987
-
- 심즈
- •
- 2011.06.11 22:12
- 6 COMMENTS
- /
- 0 LIKES
-
zeliard•2011.06.12 17:02장비가 PC로 데이터를 능동적으로 보내면 UDPServer 컴포넌트를 사용하는것이 맞는데... PC에서 장비의 데...
-
심즈•2011.06.12 19:35최용일님 댓글 감사합니다.. 제 생각에는 UDPClient컴포넌트를 사용해서 장비의 Data를 읽는 방법이 ...
-
zeliard•2011.06.13 20:14접속이 성공했다면 절반 이상은 하신겁니다. 데이터 읽는것은 장비의 매뉴얼을보세요. 장비의 프로토콜에 ...
-
심즈•2011.06.14 05:57최용일님 정성스러운 답변 감사합니다^^ 제가 자꾸 글을 올려서 죄송합니다만.. UDPClient 컴포넌트로...
-
zeliard•2011.06.14 19:49인디 예제를 보세요. IdUDPClient1.Host := '192.168.0.10'; // Server IP address &n...
-
심즈•2011.07.02 20:11답변 감사합니다^^
-
- 신기스칸!
- •
- 2011.06.07 00:40
- 2 COMMENTS
- /
- 0 LIKES
<!-- XP에서 현재 로그온 사용자는 RootKey := HKEY_CURRENT_USER;OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer', False);user := ReadString('Logon User Name'); 로 잘 되는데...... Windws7에서는 위의 Key도 없지만 ...-
구창민•2011.06.11 02:09API 가 존재합니다. 아래 함수를 사용해 보세요. function _GetLogonUserName : String;var&n...
-
누구를대신해•2012.06.12 02:09그런방법이
-
- xxxx
- 2011.06.06 12:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 우당탕탕
- •
- 2011.06.01 22:45
- 4 COMMENTS
- /
- 0 LIKES
-
zeliard•2011.06.01 23:30병렬처리라... 걱정하실 필요가 없습니다. 서버와 여러 클라이언트들과의 커넥션이 하나라는것은 존재할 수...
-
우당탕탕•2011.06.01 23:42답변 감사합니다. 제가 글을 잘못 올린듯 한데요. 서버와 클라이언트가 각각 하나입니다. 측...
-
이정욱•2011.06.02 00:17Que 를 만들어서 사용하세요.그리고 처리 루틴을 원하시는 쓰레드 수 만큼 생성 후, 각 쓰레드에서 Que에서... -
zeliard•2011.06.02 01:34정욱님 말씀이 정답입니다.
-
-
홍성락•2011.05.31 03:52아주예전에 올렸던건데요. : 는 선언문(~이다), GOTO문의 레벨명에 사용도 합니다.:= &nb... -
은우•2011.06.01 17:43감사합니다.
-
-
- 완전한사랑
- •
- 2011.05.27 19:23
- 1 COMMENTS
- /
- 0 LIKES
-
완전한사랑•2011.05.31 18:58자문 자답을 하게 되는 군요,,, ^^ procedure Copy_File(FromFile, ToFile: String); var FD...
-
- 연락두절
- •
- 2011.05.27 02:20
- 2 COMMENTS
- /
- 0 LIKES
-
소프트테크•2011.05.27 16:22짚어봐야 할 사항 들입니다.1. 통신포트를 설정하고 , 통신포트를 열었는가?2. 통신포트의 설정내용은 정확...
-
소나기•2011.05.27 19:28음 스크롤 되고 있는 상황인걸 보니 데이터는 들어 오고 있네요. 들어 오는 데이터가 아스...
-
- 완전한사랑
- •
- 2011.05.25 19:20
- 4 COMMENTS
- /
- 0 LIKES
-
초보델피언•2011.05.25 20:48정확히 어떤 필드가 숫자형인지는 모르지만 ''' 를 ' 만 사용하면 되지 않을까요?
-
완전한사랑•2011.05.25 21:59답변 감사드립니다.. 제가 너무 설명을 못한거 같네요. .ㅠ.ㅠSqlData[1]~[25]까지 전부 문자형으...
-
karl•2011.05.26 19:10Query.SQL.Clear; Query.SQL.Add('INSERT INTO 테이블 (컬럼1, 컬럼2, 컬럼3) &nb...
-
완전한사랑•2011.05.27 19:18답변 감사합니다.. 우선 여러 가지 방법으로 함 해보려고 합니다..말씀 하신 내용 참고해서 작업해 볼께...
-
- karl
- •
- 2011.05.24 02:08
- 4 COMMENTS
- /
- 0 LIKES
-
zeliard•2011.05.24 17:26TIdTCPClient.ReadTimeout을 설정해보세요.
-
karl•2011.05.24 18:36ReadTimeout 을 5 ~ 5000 까지줘봤는데, 커넥트 하자마자 ReadTimeError 가 나오네요.
-
zeliard•2011.05.25 15:14데이터가 없으면 예외가 발생합니다. 예외처리하시고 데이터가 올때까지 기다리세요.
-
karl•2011.05.25 18:31아... 그런거였군요! 감사합니다!! ^^
-
- karl
- •
- 2011.05.23 20:02
- •
- 2 COMMENTS
- /
- 0 LIKES
-
zeliard•2011.05.23 21:56포인터를 보내면 안됩니다. 포인터의 내용을 보내야죠... 포인터는 현재 프로그램내에서만 유효한 값입니다...
-
karl•2011.05.24 01:59답변감사드립니다. 다음과 같이 두번 전송하여 해결하였습니다. WriteBuff...
-
- anonymous
- 2011.05.19 05:12
- 0 COMMENTS
- /
- 0 LIKES
API 가 존재합니다.
아래 함수를 사용해 보세요.
function _GetLogonUserName : String;
var
NSize: DWORD;
UserName: string;
begin
NSize := 25;
SetLength(UserName,NSize);
if GetUserName(PChar(UserName), NSize) then
result := UserName;
end;
ex)
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := _GetLogonUserName;
end;