Taskbar

Hnnm .. Lasse forstår jeg dig ret så vil du gerne selv lave en klon af taskbaren ? Altså nare windows til at tro at din taskbar er den \"rigtigt\" ? Well good luck. Der er et eksempel på hvordan man gør i den nyeste version af MSDN, men der er skrevet i C++ og lader sig ikke sådan lige porte til Delphi ...

Jens B

Nej, nej. Mit program skal bare vise de minimerede vinduer. Og når man trykker på dem, skal de bare blive maximerede eller i normal størelse.

Kan du ikke lige sende mig et eksempel, som virker i Delphi?

LSN

Du spørger om hvordan et helt almindeligt windows-program laves - det var vist ikke eningen ... håber jeg :-)

Mener du ikke et program der kører i taskbarens status-område ligesom uret og lydstyrke o.s.v.?

Carsten

En nem måde ville være at køre en FindWindow løkke og teste om vinduet er visible - så får du ALLE åbne vinduer...

Michael

OK rettelse til ovenstående... det er selvfølgelig EnumWindows der skal bruges...

EnumWindows kører alle top-level vinduer igennem og kalder en brugerdefineret funktion med vinduets handle som parameter...

Så er det bare at bruge GetWindowLong(vinduets_handle, GWL_STYLE) og teste for WS_VISIBLE

Flags := GetWindowLong(vindue_handle, GWL_STYLE);
if (Flags and WS_VISIBLE) <> 0 then ShowMessage(\'Visible Top-level vindue!\');

Michael

Du er på sporet Michael, men ikke helt ... Jeg arbejder lige på sagen, og dit forslag giver \"for mange\" vinduer ....

Jens B

Måske skulle man også filtrere WS_POPUP vinduer fra... ved ikke om det er det

Michael

Der var den sq !

if (Flags and WS_VISIBLE <> 0) and (Flags and WS_SYSMENU <> 0) and (Flags and WS_POPUP = 0)then ...

Hvis det udtryk evaluerer til sandt så findes den i taskbaren ... For et komplet eksempel skriv til Jens@borrisholt.com

Jens b

Måske skulle man lige skrive det hele:

function MinEnumWindows(Hnd: THandle; LParam : Integer) : Boolean;
begin
  if (Flags and WS_VISIBLE <> 0) osv osv
end;

Og starte det hele sådan her:
EnumWindows(@MinEnumWindows, 0);

Michael

Selvfølgelig:

function MinEnumWindows(Hnd: THandle; LParam : Integer) : Boolean;
  var Flags :Integer;
begin
  Flags := GetWindowLong(Hnd, GWL_STYLE);
  if (Flags and WS_VISIBLE <> 0) osv osv
end;

Michael

PS: Det er altså besværligt at skulle huske det hele i hovedet (Har ikke fået reinstalleret Delphi endnu efter formatering af harddisk :)

Ved egentlig ikke om det er nødvendigt at specificere MinEnumWindows som stdcall ??
altså:
function MinEnumWindows(Hnd: THandle; LParam : Integer) : Boolean; stdcall;

Michael

Eller:

function MinEnumWindows(Hnd: THandle; LParam : Integer) : Integer; stdcall;

Det er noget med at WIN32 API\'et bruger integers som Boolean...

Michael

En form, en knap og det her :

Function EnumProc( wnd: HWND; Memo : TMemo ): BOOL; stdcall;
Var
  buf, caption: Array [0..255] of char;
  Flags : Longint;
Begin
  result := True;
  Flags := GetWindowLong(wnd, GWL_STYLE);

  if (Flags and WS_VISIBLE <> 0) and (Flags and WS_SYSMENU <> 0) and (Flags and WS_POPUP = 0)then
  begin
    GetClassname( wnd, buf, 256 );
    SendMessage( wnd, WM_GETTEXT, 256, integer(@caption));
    Memo.Lines.Add(Format(\'Caption : %s  Classname : %s\',[caption, buf]));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  EnumWindows( @EnumProc, integer( Memo1 ));
end;

Jens B

Okay. Svaret er accepteret.

LSN