채윤이네집

uses ActiveX, ShlObj, ...; // ... var pidl, pidlSelected: PItemIDList; ABrowserInfo: TBrowseInfo; szDirName: array [0..260] of AnsiChar; begin {Get the root PIDL of the network neighborhood tree} if SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, pidl) = NOERROR then begin {Populate a BROWSEINFO structure} ABrowserInfo.hwndOwner :=Handle; ABrowserInfo.pidlRoot :=pidl; ABrowserInfo.pszDisplayNa..

비트맵 이미지를 회전하는 메소드 입니다. {** 이미지를 회전시킨다. @param SourceBitmap 원본 비트맵 @param DestBitmap 회전된 이미지 비트맵 @param dAngle 회전 방향은 반시계 방향. 0~360 사이의 각도 @param clBackground 배경색 *} procedure RotateBitmap(SourceBitmap, DestBitmap: TBitmap; dAngle: Double; clBackground: TColor); const MaxPixelCount = 32768; type PRGBTripleArray = ^TRGBTripleArray; TRGBTripleArray = array[0..MaxPixelCount] of TRGBTriple; var A: Ex..

매크로미디어 플래쉬를 임포트한 ShockwaveFlashObjects_TLB를 유닛절에 포함. TShockwaveFlash 컴포넌트를 올려 추가 플래쉬 HTML 위 HTML과 동일하게 델파이로 구현한다면 아래와 같습니다. ShockwaveFlash1.MovieFile:='http://localhost/image/home/main.swf' ShockwaveFlash1.SetVariable('quality', 'high');

프로그램을 개발하던 중에, IE를 모두 닫은 후에 프로그램을 제거해야만 하는 경우가 있었습니다. 이런 경우 InstallShield 프로그램에서 다음과 같이 처리하면 IE를 모두 닫고 제거를 수행하도록 할 수 있습니다. 아래의 코드를 OnMaintUIBefore에 적당히 넣으시면 됩니다. STRING svResult, szCaption, szAppPath; NUMBER nResult, nRetry; HWND nhWnd, nHwnd; .... svResult = @PRODUCT_NAME+"를 시스템에서 제거합니다. 계속 하시겠습니까?"; szCaption = @PRODUCT_NAME+" 제거"; nResult = SprintfBox(MB_YESNO|MB_ICONQUESTION, szCaption, "%s"..

다음과 같은 코드를 OnEnd 스크립트에 추가하면 됩니다. STRING szAppPath; ... if (!MAINTENANCE) then szAppPath=FOLDER_PROGRAMS^IFX_PRODUCT_NAME; AddFolderIcon( szAppPath, "프로그램 제거하기", UNINSTALL_STRING, DISK1TARGET, DISK1TARGET^"setup.exe", 0, "", REPLACE); endif; 그러면, 시작 프로그램 메뉴의 해당 프로그램 폴더에 보면 "프로그램 제거하기"라는 아이콘이 만들어져 있을 겁니다.

1. 원하는 프로세스를 찾기 위해서 ToolAPI를 이용해야 합니다. 이를 위해서는 TlHelp32 유닛을 사용합니다. 다음은 현 시스템의 모든 프로세스 목록을 얻는 예제입니다. uses ... , TlHelp32, ... ; procedure TMainForm.btnGetProcessListClick(Sender: TObject); var AProcessEntry32:LPPROCESSENTRY32; hProcessSnap:THandle; blnNext:BOOL; i:integer; begin ClearProcessList; hProcessSnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); try New(AProcessEntry32); AProcessEntr..

pg_dump 명령으로 데이터베이스를 백업합니다. pg_dump --help pg_dump dumps a database as a text file. Usage: pg_dump [options] dbname Options: -a dump out only the data, no schema -b dump out blob data -c clean (drop) schema prior to create -C output commands to create database -d dump data as INSERT, rather than COPY, commands -D dump data as INSERT commands with attribute names -f FILENAME specify output file n..

아래와 같이 연결 문자열을 생성하면 됩니다. Provider=MSDASQL;Driver=PostgreSQL;Server=[Host IP];uid=[User ID];pwd=[Password];Database=[DB Name]

IE 보안탭의 신뢰할 수 있는 사이트에 등록하는 함수를 만들어 보았습니다. 함수의 매개변수로 신뢰할 수 있느 사이트에 추가할 호스트 URL을 입력하면 됩니다. function SetReliableSite(const strSite:string):boolean; const CLSID_InternetSecurityManager: TGUID = '{7b8a2d94-0ac9-11d1-896c-00c04fB6bfc4}'; CLSID_InternetZoneManager : TGUID = '{7B8A2D95-0AC9-11d1-896c-00C04FB6BFC4}'; var AResult:HRESULT; AInternetZoneManager:IInternetZoneManager; AInternetSecurityManager..

델파이로 DLL을 만들때는 별도로 버전 정보를 넣어야 합니다. 프로젝트 옵션에서 바로 버전 정보를 줄 수가 없더군요.(델7) DLL에 버전 정보를 넣기 위해서는 다음과 같은 리소스(*.rc) 파일을 만듭니다. 1 VERSIONINFO FILEVERSION 1,0,0,1 PRODUCTVERSION 1,0,0,1 FILEFLAGSMASK 0x3fL FILEFLAGS 0x1L FILEOS 0x4L FILETYPE 0x2L FILESUBTYPE 0x0L BEGIN BLOCK "StringFileInfo" BEGIN BLOCK "040904b0" BEGIN VALUE "Comments", "Sample Application\0" VALUE "CompanyName", "Microsoft Corp.\0" VALUE ..