프로그램인스톨 자동으로 하는 프로그램을 작성중인데요. 얼마전에 용일님께서 알려주신것으로 해보았는데
안되더라구요.. 그래서 이것 저것 해보았지만 안되서 다시 문의드립니다.
위하면의 edit 박스에 각각 string을 넣으려고 합니다. enumwindows로 돌리는데 찾아지지가 않습니다.
무엇때문이지 모르겠습니다.
소스하고 인스톨프로그램 동봉합니다. 한번만 봐주세요..

소스는 다음과 같습니다.
-----------------------------------------------------------------------------------------------
unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry,shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//function EnumwindowsProc(WindowHandle: THandle; Param: PHandle): BOOL; stdcall;
//function EnumWindowsProc(WindowHandle: THandle; Param: THandle): BOOL; stdcall;
function EnumWindowsProc(WindowHandle: THandle; Param: THandle): BOOL; stdcall;
var
  VrayStaticHandle: THandle;
begin
  Result := True;
  Param := 0;
  VrayStaticHandle := FindWindowEx(WindowHandle,0,'Static','V-Ray destination folder(your plugins directory)');
  if VrayStaticHandle <> 0 then
  begin
    Result := False;
//    Param := WindowHandle;
//    Param^ := WindowHandle;
    Param := WindowHandle;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  VrayHwnd,VrayChildHwnd,VrayNextHwnd,VrayAgreeBtHwnd,MainHandle,AgreeBTHwnd : THandle;
  VrayMsBoxHwnd,VrayMsBoxBTHwnd,VrayStaticHandle,VrayStaticParentHwnd,VrayPluginDirctoryHwnd,VrayRootDirctoryHwnd : THandle;
  VrayReg : TRegistry;
  Drive,DrivePath,VrayOrinPath,VrayOrinFile,VeriS,VrayFullPath,VrayRootDirctory,VrayPluginDirctory : string;
begin
  VrayReg := TRegistry.Create;
  VrayReg.RootKey := HKEY_LOCAL_MACHINE;
  VrayReg.OpenKey('Software\Autodesk\3dsmax\7.0',false);
  edit1.Text := VrayReg.Readstring('installdir');
  VrayReg.Closekey;
  VrayOrinPath := '..\Util\Max_Prog\VRay_14703\';
  VrayOrinFile := 'Vray_14703.exe';
  VrayFullPath := VrayOrinPath+VrayOrinFile;
  Edit2.text := VrayFullPath;
  ShellExecute(Handle, 'Open', PChar(VrayFullPath), nil, nil, SW_SHOWNORMAL );
  sleep(4000);
  VrayHwnd := FindWindow(nil,'V-Ray installation wizard'); //  다음 버튼 클릭
  VrayNextHwnd := FindWindowEx(VrayHwnd,0,'Button','다음(&N) >');
  PostMessage(VrayNextHwnd,WM_LBUTTONDOWN,0,0);
  PostMessage(VrayNextHwnd,WM_LBUTTONUP,0,0);
  PostMessage(VrayNextHwnd,WM_LBUTTONDOWN,0,0);
  PostMessage(VrayNextHwnd,WM_LBUTTONUP,0,0);

  sleep(1000);

  VrayHwnd := FindWindow(nil,'V-Ray installation wizard');  // I agree 버튼클릭
  if VrayHwnd <> 0 then
    begin
      ShowMessage('VrayHwnd :'+inttostr(VrayHwnd));
    end;

  VrayChildHwnd := FindWindowEx(VrayHwnd,0,'#32770',nil); // child 윈도우찾기
  if VrayChildHwnd = 0 then
    begin
      ShowMessage('VrayChildHwnd 버튼을 찾지못했습니다'+inttostr(VrayHwnd));
    end;

  VrayAgreeBtHwnd := GetDlgItem(VrayChildHwnd,$000003EC);   // i agree버튼 클릭
  if VrayAgreeBtHwnd <> 0 then
    begin
      ShowMessage('VrayAgreeBtHwnd :' +inttostr(AgreeBtHwnd));
      PostMessage(VrayAgreeBtHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayAgreeBtHwnd,WM_LBUTTONUP,0,0);
      PostMessage(VrayAgreeBtHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayAgreeBtHwnd,WM_LBUTTONUP,0,0);
    end
  else begin
      ShowMessage('VrayAgreeBtHwnd을 찾지못했습니다.' +inttostr(VrayAgreeBtHwnd));
      Exit;
    end;

  VrayNextHwnd := FindWindowEx(VrayHwnd,0,'Button','다음(&N) >');  //다음버튼 클릭
  if VrayNextHwnd <> 0 then
    begin
      PostMessage(VrayNextHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayNextHwnd,WM_LBUTTONUP,0,0);
      PostMessage(VrayNextHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayNextHwnd,WM_LBUTTONUP,0,0);
    end
  else begin
      ShowMessage('다음버튼을을 찾지못했습니다.' +inttostr(VrayNextHwnd));
      Exit;
    end;

  Sleep(1000);

  VrayHwnd := FindWindow(nil,'V-Ray installation wizard');
  ShowMessage('VrayHwnd :' +inttostr(VrayHwnd));
  if VrayHwnd = 0 then
    begin
      ShowMessage('VrayHwnd핸들을 찾지못했습니다.' +inttostr(VrayHwnd));
      Exit;
    end;

{  VrayMsBoxHwnd := FindWindow('#32770','V-Ray installation'); //메세지박스 확인 버튼 클릭
  ShowMessage('VrayMsBoxHwnd :' +inttostr(VrayMsBoxHwnd));
  if VrayMsBoxHwnd = 0 then
    begin
      ShowMessage('Vray메세지박스핸들을 찾지못했습니다.' +inttostr(VrayMsBoxHwnd));
      Exit;
    end;

  VrayMsBoxBTHwnd := FindWindowEx(VrayMsBoxHwnd,0,'Button','확인');
  if VrayMsBoxBTHwnd = 0 then
    begin
      ShowMessage('확인버튼핸들을 찾지못했습니다.' +inttostr(VrayMsBoxBTHwnd));
      Exit;
    end
  else
    begin
      PostMessage(VrayMsBoxBTHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayMsBoxBTHwnd,WM_LBUTTONUP,0,0);
      PostMessage(VrayMsBoxBTHwnd,WM_LBUTTONDOWN,0,0);
      PostMessage(VrayMsBoxBTHwnd,WM_LBUTTONUP,0,0);
    end;}



// 브레이 디렉토리설정의 브라우저 핸들구하기
  EnumWindows(@EnumwindowsProc,MainHandle);
//  EnumWindows(@EnumWindowsProc,integer(@MainHandle));
  ShowMessage('MainHandle: ' +inttostr(MainHandle));
  ShowMessage('MainHandle의 부모핸들 :'+ inttostr(GetParent(MainHandle)));
  VrayStaticHandle := FindWindowEx(MainHandle,0,'Static','V-Ray destination folder(your plugins directory)');
  if VrayStaticHandle = 0 then
    begin
      ShowMessage('VrayStaticHandle핸들을 찾지못했습니다.' +inttostr(VrayStaticHandle));
      exit;
    end

  else
    begin
      VrayRootDirctory := 'c:\3dsmax7\';
      VrayPluginDirctory := 'c:\3dsmax7\Plugin\';
       VrayStaticParentHwnd := GetParent(VrayStaticHandle);
       VrayRootDirctoryHwnd := GetDlgItem(VrayStaticParentHwnd,$000003EE);
       VrayPluginDirctoryHwnd := GetDlgItem(VrayStaticParentHwnd,$000003EC);
      SendMessage(VrayRootDirctoryHwnd,WM_SETTEXT,0,LParam(Pchar(VrayRootDirctory)));
      SendMessage(VrayPluginDirctoryHwnd ,WM_SETTEXT,0,LParam(Pchar(VrayPluginDirctory)));
   end;


end;
end.