'2003/04/14'에 해당되는 글 2건

  1. 2003.04.14 델파이로 프로세스 종료하기 2
  2. 2003.04.14 델파이에서 일반 폼 출력후에 메인폼 출력하기 2
1. 설명
종료할 프로그램의 Handle을 얻고 그것을 이용해서 프로세스ID를 얻어서 프로그램을 종료 시킨다.

2. 소스
var
ProcessHandle: THandle;

ProcessId: Integer;

Wnd: HWND;

begin

Wnd := FindWindow('KMUtilWndClass',nil);

// 윈도우 핸들로 부터 프로세스 ID를 얻습니다.

GetWindowThreadProcessId(Wnd, @ProcessId);

// 얻어진 ID로 부터 프로세스 핸들을 얻습니다.

ProcessHandle := OpenProcess(PROCESS_TERMINATE, False, ProcessId);



// 죽여 버립니다...

TerminateProcess(ProcessHandle, 4);
Posted by Gu Youn
,
1. 설명
메인폼 이전에 출력할 폼을 먼저 모달로 보여준후 모달 폼에서 mrOk, mrCancel에 따라서 그 이후 메인폼 보여줄지 말지를 결정한다.

2. 소스
    Loginform := TLoginForm.Create(Application);

   try
     if LoginForm.ShowModal = mrCancel then
       Exit;
   finally
     LoginForm.Free;
   end;

   Application.CreateForm(TKomarooForm, KomarooForm);
   Application.CreateForm(TSendMemoForm, SendMemoForm);
   Application.Run;


Posted by Gu Youn
,