Q&A
- 외부프로그램 핸들명 구하기..
아래의 내용을 보고 실행하니 핸들값이 뭔지 모름니다.
고수님의 지도 부탁 합니다. -꾸벅- (test.exe 의 핸들값은....)
김정일 wrote:
> 예를들어,
> C:Program FilesTestTest.exe
> 라는 파일명을 이용해서,
> 현재 이 프로그램이 실행이 되었는지를 알고 싶습니다.
> 만일 해당 프로그램이 실행되어져 있는경우,
> 해당 프로그램의 핸들을 얻고 싶은데,
> 어찌하면 좋을까요?
이런식으로 코딩을 해보세요.
procedure FormCreate(Sender: TObject);
begin
if DoInstanceExist(Self.Caption) = true then
begin
showmessage('프로그램이 이미 실행중 입니다.');
halt;
end;
End;
function DoInstanceExist(WndTitle: String): Boolean;
var
hsem : THandle;
hWndMe : HWnd;
semNm, WTtl : array[0..256] of Char;
begin
Result := False;
StrPCopy(semNm, 'Test');
StrPCopy(WTtl, WndTitle);
hSem := CreateSemaphore(nil, 0, 1, semNm);
if ((hSem <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then begin
CloseHandle(hSem);
hWndMe := FindWindow(nil, wTtl);
if (hWndMe <> 0) then begin
if IsIconic(hWndMe) then
ShowWindow(hWndMe, SW_SHOWNORMAL)
else
SetForegroundWindow(hWndMe);
end;
Result := True;
end;
end;
고수님의 지도 부탁 합니다. -꾸벅- (test.exe 의 핸들값은....)
김정일 wrote:
> 예를들어,
> C:Program FilesTestTest.exe
> 라는 파일명을 이용해서,
> 현재 이 프로그램이 실행이 되었는지를 알고 싶습니다.
> 만일 해당 프로그램이 실행되어져 있는경우,
> 해당 프로그램의 핸들을 얻고 싶은데,
> 어찌하면 좋을까요?
이런식으로 코딩을 해보세요.
procedure FormCreate(Sender: TObject);
begin
if DoInstanceExist(Self.Caption) = true then
begin
showmessage('프로그램이 이미 실행중 입니다.');
halt;
end;
End;
function DoInstanceExist(WndTitle: String): Boolean;
var
hsem : THandle;
hWndMe : HWnd;
semNm, WTtl : array[0..256] of Char;
begin
Result := False;
StrPCopy(semNm, 'Test');
StrPCopy(WTtl, WndTitle);
hSem := CreateSemaphore(nil, 0, 1, semNm);
if ((hSem <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then begin
CloseHandle(hSem);
hWndMe := FindWindow(nil, wTtl);
if (hWndMe <> 0) then begin
if IsIconic(hWndMe) then
ShowWindow(hWndMe, SW_SHOWNORMAL)
else
SetForegroundWindow(hWndMe);
end;
Result := True;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보델피
- 2000.09.17 01:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 권영길
- 2000.09.17 00:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남영
- •
- 2000.09.16 23:59
- 1 COMMENTS
- /
- 0 LIKES
아래의 내용을 보고 실행하니 핸들값이 뭔지 모름니다. 고수님의 지도 부탁 합니다. -꾸벅- (test.exe 의 핸들값은....) 김정일 wrote: > 예를들어, > C:Program FilesTestTest.exe > 라는 파일명을 이용해서, > 현재 이 프로그램이 실행...-
타락천사...•2000.09.17 06:53안녕하세요.. 타락임다... 소스를 다시 함 잘 보시는게 좋겠습니다.. 소스안에 이미 핸들값이 있군여...
-
- 원령
- 2000.09.16 23:58
- 0 COMMENTS
- /
- 0 LIKES
-
- yunani
- •
- 2000.09.16 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
포커스•2000.09.17 02:35yunani wrote: > 2개의 table을 놓고 > Master Source를 연결했습니다. > 근데 마스터 필드를 누르면 ...
-
- coolling
- 2000.09.16 23:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 방기남
- 2000.09.16 22:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선웅
- •
- 2000.09.16 23:05
- 3 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.17 00:01첫번째는 이렇게 하면 되요... SELECT T1.FIELDA||T1.FIELDB C, T1.* FROM TABLENAME T1 두번째...
-
황선웅•2000.09.17 10:34답변에 감사드립니다. 그런데 두번째 경우는 테이블이 서로 다른 database에 존재하거든요.... 물론 같은 ...
-
까까•2000.09.16 23:49황선웅 wrote: > 제가 mssql에서 쓰던걸 Oracle로 바꾸려 합니다. > 원래 Ms-sql에서 쓰던 문장은 > ...
-
- Cha
- •
- 2000.09.16 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.17 00:21안녕하세요. 델파이세상(http;//www.freechal.com/delphiworld)의 최용일입니다. 디자인타임시에 생성한...
-
-
- 김남영
- 2000.09.16 20:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선희
- 2000.09.16 20:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 초
- •
- 2000.09.16 19:29
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.17 00:16안녕하세요. 델파이세상(http;//www.freechal.com/delphiworld)의 최용일입니다. Screen.Cursor := crHo...
-
-
- 꼴통
- •
- 2000.09.16 18:33
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.17 00:12폴더(디렉토리만)도 파일의 한가지입니다. 특수문자는 이름으로 사용하실 수 없습니다. 특수 문자를 폴...
-
꼴통•2000.09.18 17:08용일님 또 귀찮게 해서 지성합니다. 그럼 시간에 있는 ':' 폴더(디렉토리만)도 파일의 한가지입니다. 특...
-
- 알로에
- •
- 2000.09.16 18:22
- 1 COMMENTS
- /
- 0 LIKES
-
투덜이•2000.09.16 23:09저... 고수는 아니지만.... 퀵리포트같은 경우 폼을 AutoCreate로 하지 않고 보통 Available로 하죠. 필...
-
- 김옥란
- 2000.09.16 14:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 프랑켄
- •
- 2000.09.16 10:19
- 1 COMMENTS
- /
- 0 LIKES
-
HOON•2000.09.16 18:55시디안의 Runimage 디렉토리를 C드라이브로 카피한후 설치해보세요 저도 그런에러가 나서 그렇게 하니까 ...
-
- 김순하
- •
- 2000.09.16 08:36
- 3 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.09.16 11:04안녕하세요.. 타락천사입니다.. 단순히 몇가지만 병경하는것이 아닌... 좀 특별하게 하시려면.. 폼을...
-
김옥란•2000.09.16 15:17제가 초짜라서 말이죠. 죄송!! 타락천사 wrote: > 안녕하세요.. 타락천사입니다.. > > 단순히 몇가...
-
parkisu•2000.09.16 09:15김순하 wrote: > 풍선 도움말이라고 해야하나요?.. hint 속성에.. > 근데.. 단순히.. hint속성에.. 넣는 ...
-
- 김옥란
- 2000.09.16 08:32
- 0 COMMENTS
- /
- 0 LIKES
소스를 다시 함 잘 보시는게 좋겠습니다..
소스안에 이미 핸들값이 있군여..
조은 함수군여..
즐푸하세요...^^
타락천사....
김남영 wrote:
> 아래의 내용을 보고 실행하니 핸들값이 뭔지 모름니다.
> 고수님의 지도 부탁 합니다. -꾸벅- (test.exe 의 핸들값은....)
>
> 김정일 wrote:
> > 예를들어,
> > C:Program FilesTestTest.exe
> > 라는 파일명을 이용해서,
> > 현재 이 프로그램이 실행이 되었는지를 알고 싶습니다.
> > 만일 해당 프로그램이 실행되어져 있는경우,
> > 해당 프로그램의 핸들을 얻고 싶은데,
> > 어찌하면 좋을까요?
>
> 이런식으로 코딩을 해보세요.
> procedure FormCreate(Sender: TObject);
> begin
> if DoInstanceExist(Self.Caption) = true then
> begin
> showmessage('프로그램이 이미 실행중 입니다.');
> halt;
> end;
> End;
>
> function DoInstanceExist(WndTitle: String): Boolean;
> var
> hsem : THandle;
> hWndMe : HWnd;
> semNm, WTtl : array[0..256] of Char;
> begin
> Result := False;
> StrPCopy(semNm, 'Test');
> StrPCopy(WTtl, WndTitle);
> hSem := CreateSemaphore(nil, 0, 1, semNm);
> if ((hSem <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then begin
> CloseHandle(hSem);
> hWndMe := FindWindow(nil, wTtl);
> if (hWndMe <> 0) then begin
> if IsIconic(hWndMe) then
> ShowWindow(hWndMe, SW_SHOWNORMAL)
> else
> SetForegroundWindow(hWndMe);
> end;
> Result := True;
> end;
> end;
>