한국 델파이 개발자 모임 - ShellExecute 사용시 문제..

ShellExecute 사용시 문제..

ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 와 같이 사용하고 있습니다. 그런데...

shellExecute문 다음 문장에서 ShellExecute문의 결과로 나온 것을 사용합니다. 이 때문에... 원하는 결과가 나오지 않습니다. .

--> ShellExecute문의 실행이 완전히 끝난후에 다음 문장들을 실행하려고 할 때 어떻게 해야합니까.. 알려주십시요.. please..

이 게시물을

3 COMMENTS

이정욱 • 1999.11.11 04:17

한델의 팁모아에서 가져왔습니다... 미리 검색해 보시지...

프로그램을 만들다가 보면 외부프로그램을 실행시켜주고 그 프로그램이 끝난후에 계속 진행이 되도록 하고 싶은 경우가 생길것이다.

16비트에서는 실행시키고 그냥 반복문으로 그 프로그램의 핸들이 없어질때까지 루프를 돌면 되지만 32비트에서는 그방법이 통하지 않는다. 쓰레드라는 놈때문에...

이 함수를 쓰면 간단히 해결할 수 있다.

function TMainForm.AsyncShell(FilePath, CmdLine:string) : Boolean;

var

StartInfo : TStartupInfo;

ProcessInfo : TProcessInformation;

bCreatedOk : Boolean;

IsTerminated : Integer;

begin

FillChar( StartInfo, Sizeof(TStartupInfo), #0);

FillChar( ProcessInfo, Sizeof(TProcessInformation), #0);

StartInfo.cb := sizeof(StartInfo);

StartInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_FORCEONFEEDBACK;

// 매개변수가 있을 경우와 없을 경우를 달리호출한다.

if CmdLine <> '' then

bCreatedOk := CreateProcess(PChar(FilePath), PChar(CmdLine),

nil, nil, false,

DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

nil, nil, StartInfo, ProcessInfo )

else

bCreatedOk := CreateProcess(nil, PChar(FilePath),

nil, nil, false,

DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

nil, nil, StartInfo, ProcessInfo );

if bCreatedOk then begin

while True do begin

GetExitCodeProcess(ProcessInfo.hProcess, IsTerminated);

if (IsTerminated = 0) or (IsTerminated = 1) then Break;

Application.ProcessMessages;

end;

end;

CloseHandle(ProcessInfo.hProcess);

Result := True;

end;

여용구 wrote:

> ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 와 같이 사용하고 있습니다. 그런데...

> shellExecute문 다음 문장에서 ShellExecute문의 결과로 나온 것을 사용합니다. 이 때문에... 원하는 결과가 나오지 않습니다. .

>

> --> ShellExecute문의 실행이 완전히 끝난후에 다음 문장들을 실행하려고 할 때 어떻게 해야합니까.. 알려주십시요.. please..

>
- 0
- 0
- 삭제
- 수정
- 댓글
rika • 2000.07.22 01:27

좀 고쳐봤습니다. 버그수정

이정욱 wrote:

> 한델의 팁모아에서 가져왔습니다... 미리 검색해 보시지...

>

> 프로그램을 만들다가 보면 외부프로그램을 실행시켜주고 그 프로그램이 끝난후에 계속 진행이 되도록 하고 싶은 경우가 생길것이다.

> 16비트에서는 실행시키고 그냥 반복문으로 그 프로그램의 핸들이 없어질때까지 루프를 돌면 되지만 32비트에서는 그방법이 통하지 않는다. 쓰레드라는 놈때문에...

> 이 함수를 쓰면 간단히 해결할 수 있다.

> function TMainForm.AsyncShell(FilePath, CmdLine:string) : Boolean;

> var

> StartInfo : TStartupInfo;

> ProcessInfo : TProcessInformation;

> bCreatedOk : Boolean;

> IsTerminated : Integer;

command : PChar;

> begin

> FillChar( StartInfo, Sizeof(TStartupInfo), #0);

> FillChar( ProcessInfo, Sizeof(TProcessInformation), #0);

>

> StartInfo.cb := sizeof(StartInfo);

> StartInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_FORCEONFEEDBACK;

>

> // 매개변수가 있을 경우와 없을 경우를 달리호출한다.

// 매개변수 영향이 없다.

CmdLine := FilePath + ' ' + CmdLine;

command := PChar(CmdLine);

bCreatedOk := CreateProcess(PChar(FilePath), PChar(CmdLine),

nil, nil, false,

DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

nil, nil, StartInfo, ProcessInfo )

> if bCreatedOk then begin

> while True do begin

> GetExitCodeProcess(ProcessInfo.hProcess, IsTerminated);

> if (IsTerminated = 0) or (IsTerminated = 1) then Break;

> Application.ProcessMessages;

// disable code 추가(아마도)

> end;

> end;

> CloseHandle(ProcessInfo.hProcess);

// enable code 추가(아마도)

>

> Result := True;

> end;

>

>

> 여용구 wrote:

> > ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 와 같이 사용하고 있습니다. 그런데...

> > shellExecute문 다음 문장에서 ShellExecute문의 결과로 나온 것을 사용합니다. 이 때문에... 원하는 결과가 나오지 않습니다. .

> >

> > --> ShellExecute문의 실행이 완전히 끝난후에 다음 문장들을 실행하려고 할 때 어떻게 해야합니까.. 알려주십시요.. please..

> >
- 0
- 0
- 삭제
- 수정
- 댓글
여용구 • 1999.11.12 18:30

답변 감사합니다..

제가 잘 몰라서 그러는데.. ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 문을 AsyncShell(FilePath, CmdLine:string) 를 사용하여 적용하려면 어떻게 해야할지 알려주십시요..

이정욱 wrote:

> 한델의 팁모아에서 가져왔습니다... 미리 검색해 보시지...

>

> 프로그램을 만들다가 보면 외부프로그램을 실행시켜주고 그 프로그램이 끝난후에 계속 진행이 되도록 하고 싶은 경우가 생길것이다.

> 16비트에서는 실행시키고 그냥 반복문으로 그 프로그램의 핸들이 없어질때까지 루프를 돌면 되지만 32비트에서는 그방법이 통하지 않는다. 쓰레드라는 놈때문에...

> 이 함수를 쓰면 간단히 해결할 수 있다.

> function TMainForm.AsyncShell(FilePath, CmdLine:string) : Boolean;

> var

> StartInfo : TStartupInfo;

> ProcessInfo : TProcessInformation;

> bCreatedOk : Boolean;

> IsTerminated : Integer;

> begin

> FillChar( StartInfo, Sizeof(TStartupInfo), #0);

> FillChar( ProcessInfo, Sizeof(TProcessInformation), #0);

>

> StartInfo.cb := sizeof(StartInfo);

> StartInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_FORCEONFEEDBACK;

>

> // 매개변수가 있을 경우와 없을 경우를 달리호출한다.

> if CmdLine <> '' then

> bCreatedOk := CreateProcess(PChar(FilePath), PChar(CmdLine),

> nil, nil, false,

> DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

> nil, nil, StartInfo, ProcessInfo )

> else

> bCreatedOk := CreateProcess(nil, PChar(FilePath),

> nil, nil, false,

> DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

> nil, nil, StartInfo, ProcessInfo );

> if bCreatedOk then begin

> while True do begin

> GetExitCodeProcess(ProcessInfo.hProcess, IsTerminated);

> if (IsTerminated = 0) or (IsTerminated = 1) then Break;

> Application.ProcessMessages;

> end;

> end;

> CloseHandle(ProcessInfo.hProcess);

>

> Result := True;

> end;

>

>

> 여용구 wrote:

> > ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 와 같이 사용하고 있습니다. 그런데...

> > shellExecute문 다음 문장에서 ShellExecute문의 결과로 나온 것을 사용합니다. 이 때문에... 원하는 결과가 나오지 않습니다. .

> >

> > --> ShellExecute문의 실행이 완전히 끝난후에 다음 문장들을 실행하려고 할 때 어떻게 해야합니까.. 알려주십시요.. please..

> >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이영근
- •
- 1999.11.11 21:11
- 1 COMMENTS
- /
- 0 LIKES
usb 카메라 로 사진 캡쳐 방법은?
- 이정욱
  
  •
  
  1999.11.11 21:39
  
  USB카메라에 TWAIN드라이버를 지원하면 델파이에서 TWAIN을 지원하는 컴포넌트를 사용하시면 됩니다. 하지...
- 혀니
- •
- 1999.11.11 20:59
- 1 COMMENTS
- /
- 0 LIKES
QReport 에서 subdetail 사용하기...
- 이재식
  
  •
  
  1999.11.12 02:08
  
  혀니 wrote: > 델퐈이 초본데요 QReport 를 사용하다가 subdetail 까지 쓰게 되었는데 > 잘 안되네요. ...
- 통신초보
- •
- 1999.11.11 20:05
- 4 COMMENTS
- /
- 0 LIKES
TCP/IP 클라이언트 소켓 컴포넌트
- TeamX
  
  •
  
  1999.11.11 21:35
  
  제가 잘은 모르지만 아래처럼하면 되지 않을까요?. ... try Clientsocket1.Open; except Show...
- 통신초보
  
  •
  
  1999.11.11 22:55
  
  죄송하지만 해당 방법으로 해도 마찬가지로 Asyncronous error Message 가 계속납니다. 다른 방법을 ...
- TeamX
  
  •
  
  1999.11.11 23:45
  
  이런 죄송합니다. 제가 해보질 않고 머릿속에서 잔머리를 굴렸더니만.. 잔머리의 최후 정말 죄송합니다....
- 통신초보
  
  •
  
  1999.11.12 00:30
  
  TeamX님께 많이 감사합니다. 아주 잘 됩니다. 종종 조언 부탁드립니다. 꾸벅 !!! TeamX wrote: > 이...
- 유니
- •
- 1999.11.11 20:02
- 1 COMMENTS
- /
- 0 LIKES
Query결과를 Excel 파일로 저장하는 방법
- 이미선
  
  •
  
  1999.11.12 02:33
  
  유니 wrote: > Query결과를 Excel 파일로 곧바로 보내는 방법을 알고 싶습니다. > > 감사합니다. ...
- 조진희
- •
- 1999.11.11 19:50
- 2 COMMENTS
- /
- 0 LIKES
[급해요제발.]블럭지정된것만 폰트변경은..
- TeamX
  
  •
  
  1999.11.11 21:37
  
  제가 알기로는 메모콤포넌트는 불가능한걸로 압니다. 대신 리치에디터를 사용하세요. 조진희 wrote: ...
- 조진희
  
  •
  
  1999.11.12 02:08
  
  정말 감사합니다. 덕분에 고민이 해결되었습니다 그런데요.. 프린터가 원하는 대로 안되는 군요.. 폰...
- 홍승현
- •
- 1999.11.11 18:32
- 2 COMMENTS
- /
- 0 LIKES
프로그램간 데이타 전달
- 김종호
  
  •
  
  1999.11.12 03:55
  
  홍승현 wrote: > [No.290] 홍승현 - 99/11/11 > ● [질문] 프로그램간 데이타 전달 > > 델파이 3.0...
- TeamX
  
  •
  
  1999.11.11 21:39
  
  간단한거라면 WM_COPYDATA 메세지를 사용하세요. 자세한건 Win32API 도움말을 참고하세요. 홍승현 wrot...
- 진요한
- 1999.11.11 18:17
- 0 COMMENTS
- /
- 0 LIKES
델파이 OOP에 대한 질문
- popsy
- •
- 1999.11.11 17:53
- 1 COMMENTS
- /
- 0 LIKES
[급질] Active X 관련 컴포넌트 설치
- TeamX
  
  •
  
  1999.11.11 21:42
  
  프로젝트의 라이브러리패스에 그 콤포넌트의 경로를 넣어주세요. Make sure "$(DELPHI)Imports" is in y...
- 문영철
- •
- 1999.11.11 17:31
- 1 COMMENTS
- /
- 0 LIKES
web browser 에서(TWEB module) 전체화면 채우기?
- 이정욱
  
  •
  
  1999.11.11 21:46
  
  htm 문서에 ActiveX를 보여주는 부분을 보시면 width와 height가 있습니다. 그곳에 숫자를 100% 로 주시면...
- termy
- 1999.11.11 11:07
- 0 COMMENTS
- /
- 0 LIKES
QRImage를 동적으로 생성시킬려면 어떻게하죠???
- 손창근
- 1999.11.11 08:45
- 0 COMMENTS
- /
- 0 LIKES
File Copy시 프로그시바 상태 변환
- 오정운
- 1999.11.11 08:07
- 0 COMMENTS
- /
- 0 LIKES
ADOQuery에서 Parameters 설정시 문제가 발생해서요..
- jtkimkit
- 1999.11.11 07:32
- 0 COMMENTS
- /
- 0 LIKES
긴급출동114 삐뽀삐뽀 => 특정 폴더를 보호 하고 싶습니다.(쓰기금지)
- 장철진
- 1999.11.11 07:11
- 0 COMMENTS
- /
- 0 LIKES
테이블에서 락걸고 해제 시키는 방법...........
- 조한석
- •
- 1999.11.11 05:43
- 1 COMMENTS
- /
- 0 LIKES
GetWindowThreadProcessID() 함수 사용법 아시는 분, 도와주세요.
- 오세웅
  
  •
  
  1999.11.11 22:09
  
  조한석 wrote: > 좀 전에 핸들을 이용해서 프로세스 ID 구한은 함수를 알아냈느데. > 사용법을 잘 모르겠...
- 세리
- •
- 1999.11.11 05:36
- 3 COMMENTS
- /
- 0 LIKES
서브메뉴 실행을 하려면???
- 박성훈
  
  •
  
  1999.11.11 09:59
  
  세리 wrote: > 메인메뉴에서 메뉴아이템을 작성하고 > 각 아이템을 선택시 해당 애플리케이션을 실행하...
- 이만준
  
  •
  
  1999.11.11 06:43
  
  세리 wrote: > 메인메뉴에서 메뉴아이템을 작성하고 > 각 아이템을 선택시 해당 애플리케이션을 실행하...
- 세리
  
  •
  
  1999.11.11 20:44
  
  만든 unit을 main form uses 에 포함시키고, 알려주신 대로 했더니.... 아니 이럴수가... 되더라...
- 나원용
- 1999.11.11 05:31
- 0 COMMENTS
- /
- 0 LIKES
[질문(초 긴급)] midas의 Remote DataModule 에서의 설정.....
- 유재우
- 1999.11.11 04:32
- 0 COMMENTS
- /
- 0 LIKES
제발~ 이 에러좀 잡아 주세요 흑흑..
- 여용구
- •
- 1999.11.11 03:11
- 3 COMMENTS
- /
- 0 LIKES
ShellExecute 사용시 문제..

ShellExecute(handle, 'print', PChar(ObjectFileName), nil, nil, SW_HIDE); 와 같이 사용하고 있습니다. 그런데... shellExecute문 다음 문장에서 ShellExecute문의 결과로 나온 것을 사용합니다. 이 때문에... 원하는 결과가 나오지 않...
- 이정욱
  
  •
  
  1999.11.11 04:17
  
  한델의 팁모아에서 가져왔습니다... 미리 검색해 보시지... 프로그램을 만들다가 보면 외부프로그램을 ...
- rika
  
  •
  
  2000.07.22 01:27
  
  좀 고쳐봤습니다. 버그수정 이정욱 wrote: > 한델의 팁모아에서 가져왔습니다... 미리 검색해 보시지.....
- 여용구
  
  •
  
  1999.11.12 18:30
  
  답변 감사합니다.. 제가 잘 몰라서 그러는데.. ShellExecute(handle, 'print', PChar(ObjectFileName), n...
- 임형준
- 1999.11.11 03:11
- 0 COMMENTS
- /
- 0 LIKES
TNestedTable이 뭔가요?

여용구
1999/11/11 03:11
Views867

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2756 2757 2758 2759 2760 2761 2762 2763 2764 2765

Last Page→