딸기
(이성민)
|
|
출처: https://developist.tistory.com/170 [Developist's Coding Story]
var
SEInfo : TShellExecuteInfo;
begin
SEInfo := Default(TShellExecuteInfo); //초기화
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
SEInfo.lpVerb := 'Open';
SEInfo.lpFile := '실행할 파일';
SEInfo.lpParameters := '';
if ShellExecuteEX(@SEInfo) then
WaitForSingleObject(ShellExecuteInfo.hProcess, INFINITE);
end;
출처: https://developist.tistory.com/170 [Developist's Coding Story]
2020-08-06 오후 3:12:54
|
|
| |
비와바람
(정진원)
|
|
그 두개의 winExe는 또 다른 프로그램에서 실행하는건가요??
여튼..
두개를 순서대로 해야 한다면 그냥 첫번째거만 실행하면 될거 같은데요.
두번째 것은 첫번째 프로그램이 할거 다하고 종료할때 실행해주면 되는거니까요.
그러면 말씀하신 백업이 다 끝나고 실행되니 문제가 없을거 같습니다.
보통 기본적인 업데이트 프로그램을 그렇게 만듭니다.
업데이트 완료후 업데이트 프로그램이 종료하면서 메인을 실행하게 합니다.
참고만하세요..
2020-08-07 오전 10:30:39
|
|
| |
peace
(고영호)
|
|
두분 답변감사합니다.
말씀하신 DB백업이 진행중에 다른 프로그램에서 접속하려니 문제가 발생하는 것이예요. embeded firebird여서요.
위의 코드를 어떻게 적용해야할지 모르겠군요ㅠ
2020-08-07 오전 11:19:14
|
|
| |
딸기
(이성민)
|
|
SEInfo.lpFile := '실행할 파일';
여기만 수정하시고 나머지는 그대로 복사 하시면 되고요.
실행된 exe가 종료 될때까지
WaitForSingleObject 에서 block 이 발생하기 때문에 순차적인
실행이 가능합니다.
WinExe 대신 ShellExecuteEX 를 사용하는거에요.
2020-08-07 오후 4:12:23
|
|
| |
peace
(고영호)
|
|
딸기님 감사합니다.
근데 Delphi7 구버전에서는 아래 두 부분에서 에러가 납니다.
1. SEInfo := Default(TShellExecuteInfo);
==>default 에러
2. WaitForSingleObject(ShellExecuteInfo.hProcess, INFINITE);
==>ShellExecuteInfo.hProcess 에러
그래서 아래처럼 바꿔봤는데요, 문제없는지 확인좀 부탁드릴게요.
1. FillChar(SEInfo, SizeOf(SEInfo), 0) ;
2. WaitForSingleObject(SEInfo.hProcess, INFINITE);
2020-08-09 오전 8:09:32
|
|
| |
딸기
(이성민)
|
|
1. 초기화를 위한 코드이므로 상관없습니다.
2. 수정하신 코드가 맞습니다. 기존 코드에 오타가 있네요.
2020-08-10 오전 10:59:19
|
|
| |
peace
(고영호)
|
|
끝까지 관심을 써 주셔서 고맙습니다^^
2020-08-10 오전 11:42:54
|
|
| |
팬더곰
(강택현)
|
|
헙.. 제 블로그를 찾아주시다니 감사합니다.. 오타는 수정하도록 하겠습니다ㅠㅠ
2020-08-10 오후 5:39:11
|
|
| |
