www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.'Get Windows Temporary Directory'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)'Insert this code to the module :Declare Function SendMessage Lib "User32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _ Long, lParam As Any) As Long Declare Sub ReleaseCapture Lib "User32" ()Public Const WM_NCLBUTTONDOWN = &HA1 Public Const HTCAPTION = 2 'Insert this code to your form:Public Function GetTmpPath() Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetTempPath(MAX_PATH, strFolder) If lngResult <> 0 Then GetTmpPath = Left(strFolder, InStr(strFolder, _ Chr(0)) - 1) Else GetTmpPath = ""End If End Function Private Sub Form_Load() MsgBox GetTmpPath End Sub
