エクスプローラのフォルダを変更する方法 (ID:38228)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なんどのあれですが

これでOKかな

function Find(OwnerHandle: HWND): Boolean;
    var
        A1,A2: Integer;
    begin
      A1 := 0;
      A2 := 1;
      while A2 <> 0 do
      begin
        A2 := FindWindowEx (OwnerHandle , A1 ,nil,nil);

if OwnerHandle = 0 then //Top の Class名を保存しておく
        begin
          GetClassName(A2,Buffer,SizeOf(Buffer));
          OwnerWindowClassName := StrPas(Buffer);
        end;

if A2 <> 0 then
        begin
          GetClassName(A2,Buffer,SizeOf(Buffer));
          if StrPas(Buffer) = 'ComboBoxEx32' then
          begin
            if OwnerWindowClassName = 'CabinetWClass' then // IE の クラス名
            begin
              StrPCopy(Buffer,'D:\');
              SendMessage (A2,WM_SETFOCUS,0,0);
              SendMessage (A2,WM_SETTEXT,0,Integer(@Buffer));
              KeybdInput (13,0);
              Windows.SendInput (1,Input[0],SizeOf(Input[0]));
              Memo1.Lines.Add ('#');
            end;
          end;
          Find(A2);
        end
        else
        begin
        end;
        A1 := A2;
      end;

end;

begin

ShellExecute(Handle, nil, PChar('C:\'), nil, nil, SW_SHOW);
    Sleep(3000);
    Find (0);

←解決時は質問者本人がここをチェックしてください。

戻る