반응형 SB 리치 패밀리5248 [개발/delphi] 64bit OS 판별 [개발/delphi] 64bit OS 판별 // 64bit OS 판별 function Is64BitOS: Boolean; type TIsWow64Process = function(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall; var hKernel32 : Integer; IsWow64Process : TIsWow64Process; IsWow64 : BOOL; begin // we can check if the operating system is 64-bit by checking whether // we are running under Wow64 (we are 32-bit code). We must check if this // function is imple.. 2012. 1. 13. [개발/delphi] 64bit 시스템 디렉토리 가져오기 [개발/delphi] 64bit 시스템 디렉토리 가져오기 // 64bit 시스템 디렉토리 가져오기 function GetSystemDir: string; var Buff: array[0..MAX_PATH] of Char; Len: Integer; begin Len := GetSystemWow64Directory(Buff, MAX_PATH); if Len > 0 then begin Result := Buff; if Buff[Len - 1] '\' then Result := Result + '\'; end else Result := ''; end; 2012. 1. 13. [개발/웹] Post, Get 데이터 보내기 유의사항 [개발/웹] Post, Get 데이터 보내기 유의사항 POST, GET으로 데이터를 처리시에는 URL 인코딩을 해서 데이터를 넘겨야 하고 HTTP_RAW_POST_DATA로 데이터를 처리할 때는 URL 인코딩을 하면 안됨 2012. 1. 13. [개발/C++] 작업표시줄 정보 및 작업영역 구하기 SHAppBarMessage 작업표시줄 정보 및 작업영역 구하기 SHAppBarMessage 함수 http://msdn.microsoft.com/en-us/library/bb762108(VS-85).aspx How to find the edge of a task bar http://support.microsoft.com/kb/179908/en-us MinitorFromRect 함수 http://msdn.microsoft..com/en-us/library/dd145063(VS.85).aspx GetMonitorInfo 함수 http://msdn.microsoft..com/en-us/library/dd144901(VS.85).aspx 1. 먼저 작업표시줄의 위치와 영역을 알아야. SHAppBarMessage.. 2012. 1. 13. [문화/음식] 참치회에 대하여 참치의 종류 참치는 종류가 다양하여 횟감으로 사용하는 참다랑어, 눈다랑어, 황다랑어 등의 "다랑어류"와 통조림을 만드는 입이 뾰족한 황새치, 백새치 등 “새치류"로 구분할 수 있다. 참치는 종류에 따라 가격이 천차만별로 뱃살을 기준으로 보면 kg당, * 참다랑어(혼마구로) - 10만원-25만원 - 특사시미 * 눈다랑어(빅아이) - 1만원-4만원 - 저렴한 사시미 * 황다랑어 - 1만원-2만5천원 * 황새치 1만원-2만원 수준이며, 속살의 경우는 1kg당 * 참다랑어 - 1만5천원- 2만원 * 눈다랑어 - 1만원-1만8천원 * 황다랑어 - 1만원-1만8천원 수준이다. 캔용으로 사용되는 참치는 흔히 까스오(가다랑어)와 날개다랑어(알바코) 참치의 부위 “많이 준다고 좋아 말고 적게 준다고 투정말라” 참치는 부.. 2012. 1. 11. [개발/delphi] 키를 눌러 반복문 종료하기 [개발/delphi] 키를 눌러 반복문 종료하기 OnClick 이벤트에 글로벌 변수를 사용해서 처리할 수 있고 loop 안에서 키 상태값을 읽어서 처리할 수도 있다. var j : integer; begin for j:=0 to 9999999 do begin Label1.Caption := IntToStr(j) ; {.... loop main body here ...} Application.ProcessMessages; {ESC key stops the loop} if GetKeyState(VK_Escape) AND 128 = 128 then break; end; end; 2012. 1. 11. 이전 1 ··· 680 681 682 683 684 685 686 ··· 875 다음 반응형