Скачать: CL | DM;

Хочу HWND Desktopa!   Найти похожие ветки 

← →
Style   (2003-02-09 00:06) [0]

Чегото я в WinXP не могу получить HWND рабочего стола. А точнее SysListView32 который.

т.е. FindWindow("SysListView32",""); возвращает 0!
GetDesktopWindow таже история..

Что делать???

Работает только WindowFromPoint(0,0) если тама ничего акромя SysListView32 нету!!

Хелп плиз! 8-[]

---

← →
DVM ©   (2003-02-09 01:55) [1]

hwndShell := FindWindow("Progman", nil);

или

function ShellWindow: HWND;
type
TGetShellWindow = function(): HWND; stdcall;
var
hUser32: THandle;
GetShellWindow: TGetShellWindow;
begin
Result := 0;
hUser32 := GetModuleHandle("user32.dll");
if (hUser32 > 0) then
begin
@GetShellWindow := GetProcAddress(hUser32, "GetShellWindow");
if Assigned(GetShellWindow) then
begin
Result := GetShellWindow;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
hShellWindow: Hwnd;
strWinText: array[0..260] of char;
begin
hShellWindow := ShellWindow;
if hShellWindow <> 0 then
begin
GetWindowText(ShellWindow, strWinText, 255);
ShowMessage(strWinText);
end;
end;

---

← →
Style   (2003-02-10 13:43) [2]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c