본문 바로가기

전체 글888

[Delphi] 바탕화면 강제 새로고침 procedure UpdateDesktop; var hDesktop: HWND; begin hDesktop := FindWindowEx(FindWindowEx (FindWindow('Progman', 'Program Manager'), 0, 'SHELLDLL_DefView', nil), 0, 'SysListView32', nil); PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0); PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31); end; 단점)) 새로고침 되면서 깜빡임!! 2011. 4. 5.
[Delphi] 문자수, 바이트수 문자수 ByteToCharLen(str, Length(str)) 바이트수 Length(str) 2011. 4. 5.
[Delphi] URL에서 파일이름 추출하기 ExtractFileName(StringReplace(url, '/', '\', [rfReplaceAll])); 2011. 4. 5.
[Delphi] uJSON 라이브러리 ex) JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(0).keys.Strings[0] JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(I).get('name').toString =========================================================================================== procedure TForm1.Test; var JSONObject: TJSONObject; begin JSONObject := TJSONObject.create('json데이타내용'); for i := 0 to JSON.. 2011. 4. 5.
[Delphi] 파일 다운로드 - TFileStream var dStream: TFileStream; begin dStream := TFileStream.Create('파일위치및이름', fmCreate or fmShareExclusive); try try IdHTTP.Get(URL_DOWN, dStream); // 설치파일 다운 except on E: EIdException do ; on E: Exception do ; end; finally dStream.Free; end; end; 2011. 4. 5.
[Delphi] TStringStream을 TStringList에 담기 var StringStream: TStringStream; StringList: TStringList; begin StringList:= TStringList.Create; StringStream := TStringStream.Create(''); StringStream.Position := 0; // Reset to the beginning of the stream IdHTTP.Get('주소', StringStream); StringList.Text := StringStream.DataString; end; 2011. 4. 5.
[Delphi] 폼에 에니메이션 효과주기 AnimateWindow(handle, 1000, AW_HOR_POSITIVE); // 왼쪽->오른쪽 AnimateWindow(handle, 1000, AW_HOR_NEGATIVE); // 오른쪽->왼쪽 AnimateWindow(handle, 1000, AW_VER_POSITIVE); // 위->아래 AnimateWindow(handle, 1000, AW_VER_NEGATIVE); // 아래->위 AnimateWindow(handle, 1000, AW_CENTER); // 내부적으로 축소 혹은 외부적으로 확장 AnimateWindow(handle, 1000, AW_HIDE); // 윈도우를 숨기는 효과 AnimateWindow(handle, 1000, AW_ACTIVATE); // 윈도우 활성화시키는 효.. 2011. 4. 1.
[Delphi] 작업표시줄을 제외한 작업영역 구하기 오른쪽 하단에 팝업처럼 띄우기 var Rect: TRect; begin // 작업표시줄을 제외 한 영역 구하기 SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@Rect), 0); Fm_Banner := TFm_Banner.Create(Self); Fm_Banner.Left := Rect.Right - Fm_Banner.Width; Fm_Banner.Top := Rect.Bottom - Fm_Banner.Height; end; 2011. 4. 1.
Shell 1. comd.csh 사용자가 입력한 임의의 명령어를 실행하고 thanks를 출력하는 스크립트 ($< 변수 이용) #!/bin/csh echo -n "Enter a command : " set a = $< $a echo "thanks" 2. ls.csh ls 명령어의 옵션을 마치 ls.csh 스크립트의 인수로 취급해 ls.csh -옵션의 형식으로 명령어를 수행하는 스크립트 ($1 변수 이용, switch case 사용) #!/bin/csh switch($1) case "-a" : ls -a breaksw case "-l" : ls -l breaksw case "-al" : ls -al breaksw default : echo error breaksw endsw 3. rm.csh 파일을 삭제할 때 현재 유.. 2009. 12. 6.
awk ** 입력자료 ** donors.txt (이름, 전화번호, 3개월 동안 제공한 기부금 액수 데이터) Mike Harrington:(510) 548-1278: 250:100:175 = 525 Christian Dobbins:(408) 538-2358: 155:90:201 = 446 Susan Dalsass:(206) 654-6279:250: 60:50 = 110 Archie McNichol:(206) 548-1348: 250:100:175 = 525 Jody Savage:(206) 548-1278: 15:188:150 = 353 Guy Quigley:(916) 343-6410: 250:100:175 = 525 Dan Savage:(406) 298-7744: 450:300:275 = 1025 Nancy Mc.. 2009. 12. 6.

티스토리툴바