Q&A
- Win NT에서 재부팅할 수 있는 방법은 과연 없는가요???
안녕하세요.
필요한 일이 있어서 Windows NT를 재부팅할 수 있는 프로그램을 찾다가 아래와 같은
것이 가능하다기에 델파이로 실행을 해보니 Run조차 되지를 않았습니다.
======================================================================
var
PreviosPrivileges : ^TTokenPrivileges;
TokenPrivileges : TTokenPrivileges;
ProcessHandle : THandle;
tmp : Integer;
begin
if not OpenProcessToken( GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,ProcessHandle ) then
Exit;
LookupPrivilegeValue( '', 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid );
TokenPrivileges.PrivilegeCount := 1;
TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tmp := 0;
PreviosPrivileges := nil;
AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp);
if not GetLastError()=ERROR_SUCCESS then
Exit;
if not InitiateSystemShutdown( '', '', 0, True, True ) then
Exit;
TokenPrivileges.Privileges[0].Attributes := 0;
AdjustTokenPrivileges( ProcessHandle, False, TokenPrivileges,
0,PreviosPrivileges^, tmp );
end;
==================================================================
에러메세지는 다음과 같습니다.
Error[41] : 'Types of actual and formal var parameters must be identical'
Error[47] : 'Types of actual and formal var parameters must be identical'
즉, AdjustTokenPrivileges()함수가 쓰여진 줄에서 에러가 발생합니다.
누군가 이 함수가 에러가 없다고 하였는데 저는 왜 이런 에러가 발생하여 실행조차 되지 않는지 모르겠습니다.
고수님들이 한수 지도 부탁드립니다.
필요한 일이 있어서 Windows NT를 재부팅할 수 있는 프로그램을 찾다가 아래와 같은
것이 가능하다기에 델파이로 실행을 해보니 Run조차 되지를 않았습니다.
======================================================================
var
PreviosPrivileges : ^TTokenPrivileges;
TokenPrivileges : TTokenPrivileges;
ProcessHandle : THandle;
tmp : Integer;
begin
if not OpenProcessToken( GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,ProcessHandle ) then
Exit;
LookupPrivilegeValue( '', 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid );
TokenPrivileges.PrivilegeCount := 1;
TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tmp := 0;
PreviosPrivileges := nil;
AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp);
if not GetLastError()=ERROR_SUCCESS then
Exit;
if not InitiateSystemShutdown( '', '', 0, True, True ) then
Exit;
TokenPrivileges.Privileges[0].Attributes := 0;
AdjustTokenPrivileges( ProcessHandle, False, TokenPrivileges,
0,PreviosPrivileges^, tmp );
end;
==================================================================
에러메세지는 다음과 같습니다.
Error[41] : 'Types of actual and formal var parameters must be identical'
Error[47] : 'Types of actual and formal var parameters must be identical'
즉, AdjustTokenPrivileges()함수가 쓰여진 줄에서 에러가 발생합니다.
누군가 이 함수가 에러가 없다고 하였는데 저는 왜 이런 에러가 발생하여 실행조차 되지 않는지 모르겠습니다.
고수님들이 한수 지도 부탁드립니다.
2
COMMENTS
-
-
김상호님께서 답변해주신 ExitWindowsEx()함수는 Windows 95/98에서만 사용가능한 함수입니다.
그리고, 제가 가진 OS는 Windows NT이구요.
그리고, AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp) 함수의 맨 끝인자 (즉, tmp)를 다음과 같이 선언을 해도 역시 같은 에러가 뜹니다.
tmp : DWORD;
역시 Windows NT에서의 재부팅은 불가능한것인가요????
답변 부탁드립니다.
김상호 wrote:
> ExitWindowsEx(EWX_SHUTDOWN,0); // 종료
>
> ExitWindowsEx(EWX_REBOOT,0) ; // 재부팅
>
> 이 명령이 작동되는지 모르겠네요... 한번 해보세요..
>
>
> 홍진혁 wrote:
> > 안녕하세요.
> >
> > 필요한 일이 있어서 Windows NT를 재부팅할 수 있는 프로그램을 찾다가 아래와 같은
> > 것이 가능하다기에 델파이로 실행을 해보니 Run조차 되지를 않았습니다.
> >
> > ======================================================================
> > var
> > PreviosPrivileges : ^TTokenPrivileges;
> > TokenPrivileges : TTokenPrivileges;
> > ProcessHandle : THandle;
> > tmp : Integer;
> > begin
> > if not OpenProcessToken( GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,ProcessHandle ) then
> > Exit;
> >
> > LookupPrivilegeValue( '', 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid );
> > TokenPrivileges.PrivilegeCount := 1;
> > TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
> > tmp := 0;
> > PreviosPrivileges := nil;
> > AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp);
> > if not GetLastError()=ERROR_SUCCESS then
> > Exit;
> > if not InitiateSystemShutdown( '', '', 0, True, True ) then
> > Exit;
> > TokenPrivileges.Privileges[0].Attributes := 0;
> > AdjustTokenPrivileges( ProcessHandle, False, TokenPrivileges,
> > 0,PreviosPrivileges^, tmp );
> > end;
> > ==================================================================
> >
> > 에러메세지는 다음과 같습니다.
> > Error[41] : 'Types of actual and formal var parameters must be identical'
> > Error[47] : 'Types of actual and formal var parameters must be identical'
> >
> > 즉, AdjustTokenPrivileges()함수가 쓰여진 줄에서 에러가 발생합니다.
> >
> > 누군가 이 함수가 에러가 없다고 하였는데 저는 왜 이런 에러가 발생하여 실행조차 되지 않는지 모르겠습니다.
> >
> > 고수님들이 한수 지도 부탁드립니다.
> >
(NOTICE) You must be logged in to comment on this post.
-
- 꼴통
- •
- 2000.12.15 19:46
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.12.18 03:17안녕하세요. 최용일입니다. TListView의 CustomSort메소드의 파라메터로 들어가는 함수는 콜백함수입니...
-
꼴통•2000.12.18 16:35.
-
- 초보
- 2000.12.15 19:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정규
- •
- 2000.12.15 19:11
- 4 COMMENTS
- /
- 0 LIKES
-
오병주•2001.07.05 20:27김정규 wrote: > with query1 do > begin > close; > sql.clear; > s_sql :='select c...
-
김정규•2000.12.15 19:13with query1 do begin close; sql.clear; s_sql :='select count(m_sabun) aa fro...
-
이성주•2000.12.16 21:06"00" 에서 에러가 나신다고 하셨지요.. 혹시... '00' 이렇게 해야 되는게 아닐까요.. 델파이에서 오라클...
-
방경주•2000.12.15 22:28흠...and and가 겹쳐 있네여...이게 아닌가? ^^;; 저 같음...이렇게 해보셈...소스는 잘 정리 된게 에...
-
- 초보
- •
- 2000.12.15 18:38
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.12.15 18:50안녕하세요. Application.Exename 은 현재 프로그램이 실행되고 있는 패스를 말합니다. 만약 님의 프로그...
-
초보•2000.12.15 18:53감사합니다.....꾸벅
-
- 기타맨
- 2000.12.15 18:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광섭
- •
- 2000.12.15 18:08
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2000.12.15 18:41김광섭 wrote: > 델파이를 이용하면서 여태 무심코 지나쳤던 현상이 있어서 이렇게 질문합니다. > 디비그...
-
- 밍시
- 2000.12.15 17:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.12.15 12:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김오성
- •
- 2000.12.15 09:35
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.15 10:17wave파일은 일단 8000Hz 16bit mono로 샘플링해주세요. 그리고 설치된 Voice Modem의 DeviceID를 얻은 다...
-
- 초보자
- •
- 2000.12.15 09:06
- 1 COMMENTS
- /
- 0 LIKES
-
프지초보•2000.12.15 20:18저도 초보라 잘 모르는데.. 질문이 너무 막연하군요.. index나 filter를 이용하세요 그리고 데이타 베이...
-
- 아기코알라
- •
- 2000.12.15 07:53
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2000.12.15 18:20아기코알라 wrote: > > 안녕하세요 고수님들... > 여러고수님들의 도움으로 조그마한 프로그램을 마...
-
+^-_-^+•2000.12.15 20:36김광섭 wrote: > 아기코알라 wrote: > > > > 안녕하세요 고수님들... > > 여러고수님들의 도움으로 ...
-
- 진현주
- •
- 2000.12.15 06:16
- 4 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.12.15 23:12안녕하세요. 저도 얼마전에 그런일이 있어서 여기서 돔을 받았습니당. 아마 이 부분도 참고가 되셨음 하...
-
김동규•2000.12.15 06:33진현주 wrote: > 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요. > > 여기에 텍스트를 넣으려고 ...
-
김상호•2000.12.15 06:32For j := 1 to 15 do begin TEdit(FindComponent('A' + IntToStr(j))).Text :='테스트'; ...
-
권경미•2000.12.15 18:33for i := 0 to form1.ControlCount - 1 do begin if (form1.controls[i] is tedit) and ...
-
- 델초보..
- •
- 2000.12.15 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•2000.12.15 04:59DbfFiles: string; if FileExists(DbfFiles) then 이와 같은 명령을 사용해서 화일유무를 판...
-
- 홍진혁
- •
- 2000.12.15 03:25
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요. 필요한 일이 있어서 Windows NT를 재부팅할 수 있는 프로그램을 찾다가 아래와 같은 것이 가능하다기에 델파이로 실행을 해보니 Run조차 되지를 않았습니다. ==============================================================...-
김상호•2000.12.15 05:12ExitWindowsEx(EWX_SHUTDOWN,0); // 종료 ExitWindowsEx(EWX_REBOOT,0) ; // 재부팅 ...
-
홍진혁•2000.12.15 08:34김상호님께서 답변해주신 ExitWindowsEx()함수는 Windows 95/98에서만 사용가능한 함수입니다. 그리고, 제...
-
- 초보자
- •
- 2000.12.15 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2000.12.15 05:29초보자 wrote: > 안녕하세요. > > Delphi 4.0에 있는 인스톨쉴드로 설치 프로그램 작성시 궁금한 사항...
-
- 초보
- 2000.12.15 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 괴물초쟁이
- •
- 2000.12.15 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.12.15 03:05Open이 잘못된건가요? 전 파라미터를 쓰는걸 참 좋아하는데 이유는 코딩이 보기 편해서입니다. ^^ 그리...
-
-
강인규•2000.12.15 03:58이게 답변이 될까요? var i : integer; begin i := 1; (FindComponent('edit'+IntToStr(i)) a...
-
김상국•2000.12.18 22:43님의 도움으로 인하여 400라인을 40라인으로 줄였여요.. 감사합니다. ^*^ 좋은 한 주 되세요... ...
-
-
- 델피언
- 2000.12.15 02:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이공주
- •
- 2000.12.15 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
고대서창•2000.12.15 02:56mediaplayer 컴포넌트를 사용하세요. 파이공주 wrote: > .avi 화일로된 동영상을 보구 싶은데요.. 어...
ExitWindowsEx(EWX_REBOOT,0) ; // 재부팅
이 명령이 작동되는지 모르겠네요... 한번 해보세요..
홍진혁 wrote:
> 안녕하세요.
>
> 필요한 일이 있어서 Windows NT를 재부팅할 수 있는 프로그램을 찾다가 아래와 같은
> 것이 가능하다기에 델파이로 실행을 해보니 Run조차 되지를 않았습니다.
>
> ======================================================================
> var
> PreviosPrivileges : ^TTokenPrivileges;
> TokenPrivileges : TTokenPrivileges;
> ProcessHandle : THandle;
> tmp : Integer;
> begin
> if not OpenProcessToken( GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,ProcessHandle ) then
> Exit;
>
> LookupPrivilegeValue( '', 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid );
> TokenPrivileges.PrivilegeCount := 1;
> TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
> tmp := 0;
> PreviosPrivileges := nil;
> AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp);
> if not GetLastError()=ERROR_SUCCESS then
> Exit;
> if not InitiateSystemShutdown( '', '', 0, True, True ) then
> Exit;
> TokenPrivileges.Privileges[0].Attributes := 0;
> AdjustTokenPrivileges( ProcessHandle, False, TokenPrivileges,
> 0,PreviosPrivileges^, tmp );
> end;
> ==================================================================
>
> 에러메세지는 다음과 같습니다.
> Error[41] : 'Types of actual and formal var parameters must be identical'
> Error[47] : 'Types of actual and formal var parameters must be identical'
>
> 즉, AdjustTokenPrivileges()함수가 쓰여진 줄에서 에러가 발생합니다.
>
> 누군가 이 함수가 에러가 없다고 하였는데 저는 왜 이런 에러가 발생하여 실행조차 되지 않는지 모르겠습니다.
>
> 고수님들이 한수 지도 부탁드립니다.
>