regsvr32의 /s 옵션을 주게 되면 메시지 상자가 표시되지 않습니다.

WinExec(PChar('regsvr32 /s C:\aaa.dll'), SW_HIDE);

수고하십시오.

저두 레지스트리 다루는거 해보고는 싶었는데 님 덕분에 자료를 찾아봤네요. ^-^



uses 절에 Registry를 추가해주시공.....



procedure TForm1.Button1Click(Sender: TObject);

var

Reg : TRegistry;

begin

Reg := TRegistry.Create;

Try

Reg.RootKey := HKEY_CURRENT_USER;

Reg.CreateKey('web/handel');

Reg.OpenKey('web/handel',false);

Reg.WriteString('델파이','현존하는 최고의 툴');

Reg.CloseKey;

//showmessage('등록했습니다. 실행에서 Regedit을 열어 확인해보십시요.')

finally

Reg.Free;

end;

end;



HKEY_CURRENT_USER에 'web/handel'이란 섹션을 만들어 '델파이'란 키값에 ''현존하는 최고의 툴'이란 값을 넣었습니다.

박정모 wrote:

> 레지스트리 파일을 ShellExecute함수를 이용해서 레지스트리에 등록하려 합니다.

> 그런데 ShellExecute하니까 레지스트리 파일을 등록하면서 "등록할까요?"라는

> 메시지의 Dialog가 뜹니다.

>

> 제 프로그램에서 자동으로 레지스트리 파일을 레지스트리에 등록하려는데

> 이렇게 Dialog가 뜨게 되면 곤란하겠지요 ????

>

> ShellExecute나 다른 어떤 함수를 써서라도... Dialog가 화면에 안 나오게 하려면

> 어떻게 해야하나요 ???

>

> ps : 여기서는 모두들 "급합니다", "살려주세요"라는 말을 남발하는 것 같아서

> 저도 그런 엄살 대열에 끼이자니 좀... 여러 고수님들 부탁드립니다.