Turbo-C
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
터보-C 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
Lua 게시판
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C/C++ Q/A
[6844] Install Sheild에 환경변수를 추가하는 스크립트를 작성하려 합니다.
비타민 E [ksalung] 20988 읽음    2013-09-07 16:02
Install Sheild에 환경변수를 추가하는 스크립트를 작성하려 합니다.

function MyFunction(hMSI)  
    // To Do:  Declare local variables.
begin            

    // To Do:  Write script that will be executed when MyFunction is called.
    addEnviromentVariable("test","C:\test\chartdir51.dll");
end;


function addEnviromentVariable(regKey, regValue)
    STRING szRegKey, svValue, szEnv, szPathSet;
    number nvType, nvSize, nResult;
begin                   
  RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
  szRegKey="SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
  nvType = REGDB_STRING_EXPAND;              
 
  nResult = RegDBGetKeyValueEx(szRegKey,regKey, nvType, svValue, nvSize);
  if(nResult<0) then
   MessageBox(" [Enviroment Variable] Registry Path is incorrect. ",SEVERE);
  if(StrFind(svValue, regValue)<0) then
    szPathSet = svValue +";"+regValue;
    StrReplace(szPathSet, ";;",";",0);
    RegDBSetKeyValueEx(szRegKey,regKey,nvType,szPathSet,-1);
   endif;
  endif;

end;


이렇게 하면 test란 이름으로 C:\test\chartdir51.dll란 path가 생기는거 아닌가요?

정확히 install shield가 어떤 구조로 어떻게 이용하는건지 모르겠습니다.

답변 부탁 드려요~

+ -

관련 글 리스트
6844 Install Sheild에 환경변수를 추가하는 스크립트를 작성하려 합니다. 비타민 E 20988 2013/09/07
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.