김태영 wrote:

> Dim ClsC0 As cMyClsA0

> Dim ClsC1 As KwicLib

> Dim lTemp As Long

> '---클 래 스-생 성

> Set ClsC0 = New cMyClsA0

>

> Set ClsC1 = New KwicLib

> '---중복여부-체 크

> Select Case App.hInstance

> Case True:

> '

> MsgBox "중복실행" + vbCrLf + "다시실행", vbApplicationModal + vbDefaultButton1 + vbCritical + vbOKOnly, "현대해상"

> End

> '

> Case Else:

> If ClsC0.cfFindWind("fHILogInA") Then

> MsgBox "중복실행" + vbCrLf + "다시실행", vbApplicationModal + vbDefaultButton1 + vbCritical + vbOKOnly, "현대해상"

> End

> End If

> End Select



전 비베는 모릅니다. 위에 소스가 어떤 건지도 모르구요. 그렇지만 델에서는 중복실행을 하지 못하게 하는 방법은 많습니다.



dpr 파일에다가 아래 처럼 해보셔요..

program Project2;



uses

Forms,windows,

Unit1 in 'Unit1.pas' {Form1};



var

Mutex : THandle;



{$R *.RES}



begin

Mutex := CreateMutex(nil, True, 'YourMutex');

if (Mutex <> 0 ) and (GetLastError = 0) then begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

if Mutex <> 0 then CloseHandle(Mutex);

end;

end.

그럼 중복실행은 하지 않습니다.