관심을 보여주셔서 감사합니다.
단일 인스턴스 어플을 만들려고 합니다.
제가 작성한 프로젝트 소스입니다.
현재 문제점은
bool isiconic() api가 프로젝트 소스에서는 동작되지 않습니다.
(참고로 isiconic는 프로그램이 아이콘화 되었는가를 확인합니다.)
unit에서는 정상적으로 동작합니다.
또하나는 isiconic()를 삭제하고 showwindow()을 실행하면
프로젝트 소스에서 이상한동작을 합니다.
최소화 버튼이 눌러지지가 않습니다.
한번 봐주시고 도와주십시요.

program main;

uses
Forms,
Windows,
Main in 'Main.pas' {frmMain};

{$R *.RES}
var hwndPrev:HWND;
begin                 
hwndPrev:=FindWindow('TfrmMain','Main');
if hwndPrev <> 0 then begin
  if IsIconic(hwndPrev) then ShowWindow(hwndPrev,SW_RESTORE)
  else SetForegroundWindow(hwndPrev);
  Halt;
end else begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end;
end.

좋은시간 되세요.

화성산업 주식회사