프로그램의 중복 시작을 금지하는 또 다른 필요와 실현

1222 단어 이루어지다
수중에 있는 프로그램은 중복 시작을 금지해야 하지만, 새것을 보존하고 낡은 것을 닫아야 한다.
메인 창의 클래스 이름부터 시작해야 할 것 같습니다.Oncreate에서 호출할 수 있는 함수가 작성되었습니다.

{    }
procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string);
var
  h: HWND;
  buf: array[0..255] of Char;
begin
  h := ACurrentWindow;
  while h > 0 do
  begin
    h := GetWindow(h, GW_HWNDNEXT);
    GetClassName(h, buf, Length(buf));
    if buf = AClassName then
    begin
      SendMessage(h, WM_CLOSE, 0, 0);
      Break;
    end;
  end;
end;

{    }
procedure TForm1.FormCreate(Sender: TObject);
begin
  CloseSameClassNameWindow(Handle, ClassName);
end;
프로그램 파일에서 제어하는 것은 한 마디로 간단합니다.

program Project1;

uses
  Forms, Windows, Messages,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  SendMessage(FindWindow('TForm1', nil), WM_CLOSE, 0, 0); //          TForm1
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

좋은 웹페이지 즐겨찾기