Thema: Delphi Startmenü-Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Aya
Aya

Registriert seit: 24. Jul 2003
Ort: Kassel
138 Beiträge
 
Delphi 6 Professional
 
#18

Re: Startmenü-Problem

  Alt 28. Aug 2003, 14:22
Hi,

ich hab gestern Nacht mal ne Funktion gebastelt um das Handle vom StartMenü zu ermitteln.. klappt allerdings nur wenn es bereits sichtbar ist. (SetWindowPos klappt wunderbar um das Menü zu verschieben)

Delphi-Quellcode:
function GetStartMenuHandle: HWND;
var
  h: HWND;
  lpClassName: PChar;
begin
  Result:=0;
  GetMem(lpClassName,256);
  h:=GetWindow(GetDesktopWindow,GW_CHILD);
  while h<>0 do begin
    GetClassName(h,lpClassName,256);
    if lpClassName='BaseBarthen begin
      if GetWindowLong(h,GWL_STYLE) = -1774190592 then
        if GetWindowLong(h,GWL_EXSTYLE) = 392 then begin
          Result:=h;
          Exit;
        end;
    end;
    h:=GetWindow(h,GW_HWNDNEXT);
  end;
  FreeMem(lpClassName);
end;
Au'revoir,
Aya~
I aim for my endless dreams and I know they will come true!
S: String = #86^)^3^)^4#58#32^(^4^4^0#58#47#47^7^7^7#46^+^/^3^(^)^'^!^9^!#46^$^%;
  Mit Zitat antworten Zitat