냉혈군 wrote:

> 조건부선언에서... 윈98과 윈이천을 가려낼라구 하는데....

>

> 델파이에서는.. 해볼라구 했는데. 방법이 없는거 같더라구여..

>

> 저의 수준에서 말이죠... 그른데 sdk를 보니...

>

> vs에서는... 거가 되는거 같던데

>

> 막강한 델파이에서는 하는방법이 없을란지...

>

> 꼭필요하니... 많은 고수님들의 조언을 부탁드림다.. *^^*

>

> 그름 오늘하루두 즐코하시구여...



//================================================================================

// OS의 Version을 인식하기 위한 Function .....

// 1: Win 3.1, 2: Win95, 3: Win98, 4: WinNT3 5: WinNT4, 6: Win2000, 7: WinMe

//================================================================================

Function FindOSVersion : Integer ;

Var

myVersionInfo : TOSVersionInfo ;

Begin

FillChar ( myVersionInfo, SizeOf(myVersionInfo), #0 ) ;

myVersionInfo.dwOSVersionInfoSize := SizeOf ( myVersionInfo ) ;



If ( GetVersionEx( myVersionInfo ) = False ) Then

Begin

Result := -1 ; //error

Exit ;

End ;



Case myVersionInfo.dwPlatformId Of

VER_PLATFORM_WIN32S:

Begin

Result := 1; // Win3.1

End ;



VER_PLATFORM_WIN32_WINDOWS:

Begin

If (myVersionInfo.dwMajorVersion = 5) Then

Begin

Result := 7; // WinMe

End

Else

If (myVersionInfo.dwMinorVersion = 0) Then

Begin

Result := 2; // Win95

End

Else If (myVersionInfo.dwMinorVersion > 0) Then

Begin

Result := 3; // Win98

End ;

End ;



VER_PLATFORM_WIN32_NT:

Begin

Case myVersionInfo.dwMajorVersion of

3: Result := 4; // WinNT 3

4: Result := 5; // WinNT 4

5: Result := 6; // Win2000

End ;

End ;

End ;

end;



적당히 알아서 쓰세요... 먼저 강의실, 자료실, 팁모아를 뒤져본뒤에

질문해도 늦지는 않겠네요...