Q&A

  • 실행파일을 한번만 하는 방법없나요???
안녕하세요?
프로그램을 중복해서 실행하지 않고 한번만 실행 하는 방법좀 가르쳐 주세요....
그럼 수고 하세요
이 게시물을
1  COMMENTS
  • Profile
    유효근 • 2005.07.23 11:41
    <!--CodeS-->
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    {프로그램이 이미 실행되어 있나 검사하는 곳}
    if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
    {실행되어 있지 않으면..}
    atom := GlobalAddAtom('PROGRAM_RUNNING')
    else begin
    { 프로그램이 이미 실행되어 있으면..}
    MessageDlg('이미 실행되어 있네요...', mtWarning,[mbOK], 0);
    Halt;
    end;
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    {프로그램이 끝날때 다시 정보를 지워줌}
    GlobalDeleteAtom(atom);
    end;
    <!--CodeE-->
←First Page
292 293 294 295 296 297 298 299 300 301
Last Page→
한델 로그인 하기