[개발/delphi] 다른 프로그램 버튼 클릭하기
다른 프로그램 버튼 클릭하기 // in delphi procedure TForm2.Button1Click(Sender: TObject) var hParent: HWND; hChild: HWND; begin hParent := FindWindow('TForm1', nil); if hParent 0 Then begin hChild := FindWindowEx(hParent, 0, 'TButton', nil); if (hChild 0) Then begin SendMessage(hChild, WM_LBUTTONDOWN, 0, 0); SendMessage(hChild ,WM_LBUTTONUP, 0, 0); end; end; end;
2012. 2. 7.
[개발/API] 웹에 있는 파일크기 알아오기
[개발/API] 웹에 있는 파일크기 알아오기 DWORD GetHttpFileSize(LPCTSTR lpszUrl) { HINTERNET hInternet,hURL; TCHAR buffer[32]; DWORD dwSize=32,dwFileSize; // 인터넷 연결 hInternet=InternetOpen(TEXT(""), INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0); if (hInternet == NULL) return -1; // 인터넷 연결이 되지 않았으면 에러 리턴 // URL 오픈 hURL=InternetOpenUrl(hInternet, lpszUrl, NULL, 0, INTERNET_FLAG_TRANSFER_BINARY, 0); // 오픈에 실패했을 경우 에러 리턴 if..
2012. 1. 27.
