Сменить фон рабочего стола, используя ListView (LVM_SETBKIMAGE)

[TwiX]

Пытаюсь установить хук на експлорер, а получаю в ответ "неверные параметры". Как-то pid надо по-другому считать..

function GetPid():Cardinal;
var
  hSnap:THandle;
  pe:TProcessEntry32;
  pid: DWORD;
begin
  Result:=0;
 pe.dwSize:=SizeOf(pe);
 hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  If Process32First(hSnap,pe) then
    While Process32Next(hSnap,pe) do
      if ExtractFileName(pe.szExeFile)='explorer.exe' then
      begin
        showmessage(IntToStr(pe.th32ProcessID));
        Result:=pe.th32ProcessID;
        Exit;
      end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
  pid:Cardinal;
begin
  pid:=GetPid;
  if pid=0 then
    exit;
  Caption:=IntToStr(pid);
  SetHook(pid);
  Button1.Caption:='Bad';
  if IsActive then
    Button1.Caption:='GOOD';
end;


//В длл..

procedure SetHook(pid: Cardinal); stdcall; export;
begin
  if HookHandle=0 then
   HookHandle:=SetWindowsHookEx(WH_CALLWNDPROC, @KeyHook, hInstance, pid);
  if HookHandle=0 then
  begin
    ShowMessage(IntToStr(GetLastError));
  end;
end;

[Stilet]

pe.th32ProcessID

Это идентификатор процесса.
А SetWindowsHookEx принимает Specifies the identifier of the thread. Т.е. потока. Главного как я понимаю надо.
Т.е. тебе еще придется через OpenProcess() получать главный тред.
ИМХО.

[TwiX]

Да, уже разобрался. Результат 8 часов подряд перед гуглом.
Процесс по хендлу получал с помощью GetWindowProcessThreadId.
Спасибо