정민석 wrote:

> 안녕하세요. 새해 복 많이 받고들 계시죠. 다름이 아나리 예를 들어 윈도우 화면창에 (기타 여러 프로그램) 사용자 록인암호 입력창이 뜨잖아요. 여기서 암호를 넣었을경우 프로그램이 실행돼게 하고 싶은데 (물론 암호를 넣지않은 경우에는 암호창이 뜨 있고요) 여러 고수님들의 많은 조언 부탁드립니다.



program p_ovt;

....

function CheckUser: Boolean;

begin

Result := False;

try

frm_pass := Tfrm_pass.Create(Application);

frm_pass.showmodal;

//showmodal이어야함.... 그냥 모달이면 안됨

frm_pass.Update;

if frm_pass.ModalResult = idOK then Result := True;

finally

frm_pass.Free;

end;

end;

begin

if CheckUser then begin

// 로그인 성공이면 다음 작업을 실시한다.

..

end ;



unit ovt_pass;

// 로그인 폼

var



ModalResult: TModalResult; // Modal폼을 닫는 변수

...

//중간에는 사용자와 암호가 ini,registry,db 파일등에서 확인하는 작업을 거친다.



// 성공했다면 위와 같이 만든다.

ModalResult := mrok ;