Q&A
- 프로그램 중복실행 방지에서
프로그램 중복실행을 방지하려고 GlobalAddAtom과 GlobalFindAtom함수를 아래와 같이 썼습니다.
var
atom:Word; //전역변수
procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('ISRUNNING') = 0 then
atom := GlobalAddAtom('ISRUNNING')
else begin
MessageDlg('프로그램이 이미 실행중입니다.', mtWarning,[mbOK], 0);
Halt;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
GlobalDeleteAtom(atom);
end;
그런데 프로그램을 한번만 실행해도 메세지가 뜨는군요. 뭐가 잘못되었나요?
var
atom:Word; //전역변수
procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('ISRUNNING') = 0 then
atom := GlobalAddAtom('ISRUNNING')
else begin
MessageDlg('프로그램이 이미 실행중입니다.', mtWarning,[mbOK], 0);
Halt;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
GlobalDeleteAtom(atom);
end;
그런데 프로그램을 한번만 실행해도 메세지가 뜨는군요. 뭐가 잘못되었나요?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- sirius
- •
- 1999.08.11 23:40
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•1999.08.12 00:15sirius 께서 말씀하시기를... > 안녕하세요. 델파이 초보랍니다. > 테이블은 마스터/디테일 테이블이랍... -
최석기•1999.08.12 00:13sirius 께서 말씀하시기를... > 안녕하세요. 델파이 초보랍니다. > 테이블은 마스터/디테일 테이블이랍...
-
- 양효비
- •
- 1999.08.11 23:37
- 1 COMMENTS
- /
- 0 LIKES
-
하남수•1999.08.11 23:52양효비 께서 말씀하시기를... > 안냐세요. > 페스워드란에 페스워드를 쓰니 모두 볼수 있자나여 ㅠ.ㅠ >...
-
- 양효비
- •
- 1999.08.11 23:26
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.08.12 00:08양효비 께서 말씀하시기를... > 안녕 하세요 > edit1에 입력을 8자로 제안하려고 합니다. > 아래에서 ed...
-
- 이현철
- •
- 1999.08.11 23:14
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•1999.08.14 18:24이현철 께서 말씀하시기를... > 안녕하세요. > Query로 레코드를 얻었거든요. 그런데 Query1.RecordCount...
-
- 우미선
- •
- 1999.08.11 23:14
- 1 COMMENTS
- /
- 0 LIKES
-
유도삼•1999.08.12 00:34우미선 께서 말씀하시기를... > Title -----> Title Band > > col1 col2 col3 ...
-
- 김태성
- 1999.08.11 22:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.08.11 22:28
- 1 COMMENTS
- /
- 0 LIKES
-
유시니•1999.08.12 04:37박성훈 께서 말씀하시기를... > procedure TfrmLogin.UserLogin; > var > exepath: pchar; > begin ...
-
- 황하성
- •
- 1999.08.11 22:09
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.11 22:57변수인데 '' 로 둘러사시면 안되죠.... 그러면 그냥 문자열이 되버립니다. 전에 하신건 결과가.. a.e...
-
- 박성훈
- •
- 1999.08.11 21:45
- 1 COMMENTS
- /
- 0 LIKES
프로그램 중복실행을 방지하려고 GlobalAddAtom과 GlobalFindAtom함수를 아래와 같이 썼습니다. var atom:Word; //전역변수 procedure TForm1.FormCreate(Sender: TObject); begin if GlobalFindAtom('ISRUNNING') = 0 then atom := Globa...-
유시니•1999.08.12 04:42박성훈 께서 말씀하시기를... > 프로그램 중복실행을 방지하려고 GlobalAddAtom과 GlobalFindAtom함수를 ...
-
- 김유중
- •
- 1999.08.11 20:30
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.11 21:17100메가라면 힘들구요....흐.. 20메가 정도의 메모리를 잡고 나누어서 저장을 하세요. 김유중 께서 ...
-
- 김선태
- •
- 1999.08.11 20:00
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•1999.08.12 00:01김선태 께서 말씀하시기를... > 안녕하세요? > > 델파이에서 메세지 가로채는 법을 알고 싶습니다. ...
-
신인재•1999.08.11 23:39선태님이 말씀 하시는 것이 바로 서브 클래싱이란 건데요.. 델코(http://blue.snu.ac.kr/delphikorea)에...
-
- 야생마
- 1999.08.11 19:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 화랑
- 1999.08.11 19:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 곽승주
- 1999.08.11 18:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태성
- 1999.08.11 18:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 김병철
- 1999.08.11 18:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 이인환
- 1999.08.11 18:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태성
- •
- 1999.08.11 17:55
- 1 COMMENTS
- /
- 0 LIKES
-
영덕게•1999.08.11 20:10김태성 께서 말씀하시기를... > 안녕하세요? > > A TABLE(MASTER) > > 소속 사번 성명 주소 ...
-
- 황현동
- •
- 1999.08.11 17:48
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.08.11 20:41예...맞습니다. 하지만 StrToInt()는 인수로 정수형 문자열만 받아 들이거든요 따라서 예외 처리를 해...
-
- 궁금이
- 1999.08.11 14:27
- 0 COMMENTS
- /
- 0 LIKES
> 프로그램 중복실행을 방지하려고 GlobalAddAtom과 GlobalFindAtom함수를 아래와 같이 썼습니다.
>
> var
> atom:Word; //전역변수
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> if GlobalFindAtom('ISRUNNING') = 0 then
> atom := GlobalAddAtom('ISRUNNING')
> else begin
> MessageDlg('프로그램이 이미 실행중입니다.', mtWarning,[mbOK], 0);
> Halt;
> end;
> end;
>
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
> GlobalDeleteAtom(atom);
> end;
>
> 그런데 프로그램을 한번만 실행해도 메세지가 뜨는군요. 뭐가 잘못되었나요?
>
위에서와 마찬가지로 똑같이 코딩하면 한번만 실행되고 다음번 실행시
실행이 않돼던데요..
즉, 코딩에는 잘못이 없는것 같은데....
코딩말고 다른 부분이 이상인가봐요...