andere app verstecken

[glkgereon]

hi
mal wieder gesucht und nix gefunden...

ich mach php und nutze xampp, mich nervt aber, das der server imnmer in der leiste unten dick drin ist...

ich hab mir ein progg geschrieben, über das ich xampp starten und beenden kann

ich muss nur nach das eigentliche xampp fenster (ne art dos-konsole) vollständig verbergen
also im taskmanager darf es noch stehen, aber es muss vom bildschirm verschwunden sein, geht das?

[fkerber]

Hi!

Sicher doch.
Habe ich mit meinem WinAmp gemacht.
Du suchst dir mit FindWindow das richtige Fenster.
Codes zum rausschmeißen aus der Taskleiste müsste es eigentlich in der CodeLib geben.

Ciao Frederic

[glkgereon]

meine delphi-hilfe kennt findwindow nit :(

[fkerber]

Hi!

Hier mal meine Anwendung für WinAmp:

Delphi-Quellcode:

procedure TForm1.WinAmp1Click(Sender: TObject);
var
  hHandle: THandle;
  str: string;
  i: integer;
  LPARRAM : DWord;
begin
  EnumWindows (@EnumWindowsProc,Integer(@LPARRAM));
  for i:=0 to Listbox1.Items.count-1 do begin
    hHandle := FindWindow(nil, PChar(Listbox1.Items[i]));
    str:=gettext(hhandle);
    if pos('Playlist', str)<> 0 then
      begin amphandle:=hhandle;
        break;
      end;
  end;

  if WinAmp1.Checked then
    begin
      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_MINIMIZE);
      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_HIDE);
      Winamp1.Checked:=false
    end
  else
    begin
      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_SHOW);
      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_MAXIMIZE);
      Winamp1.Checked:=true;
    end;
end;

EnumWindowsProc:

Delphi-Quellcode:

function EnumWindowsProc(const hWnd : Longword; Param: lParam): LongBool; stdcall; 
var
  Buffer: array[0..1024] of Char;
begin
  Result := True;
  GetWindowText(hWnd, Buffer, sizeof(Buffer));
  if lstrlen(Buffer) = 0 then
   begin
    exit;
   end
  else
   begin
    Form1.listbox1.items.Add (buffer);
   end;
end;

GetText:

Delphi-Quellcode:

function GetText(Wnd: HWND): string;
var
  textlength: Integer;
  Text: PChar;
begin
  textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
  if textlength = 0 then Result := ''
  else
  begin
    GetMem(Text, textlength + 1);
// Änderung ->
    if Assigned(Text) then
    try
      SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
//      Result := Text;
// Änderung ->
    SetString(Result, Text, lstrlen(Text));
    finally
      FreeMem(Text);
    end;
  end;
end;

Ich hoffe, das war alles.


Ciao Frederic

[Alexander]

Zitat:

Zitat von glkbkk

meine delphi-hilfe kennt findwindow nit :(

Ist auch keine Delphi-eigene Funktion, sondern eine WinAPI-Funktion. Wenn du im PSDK bzw. FindWindow suchst wirst du fündig ;-)

[glkgereon]

Was ist WinAmp1?

ich hoffe ich verstehs halbwegs und kanns umändern

[Alexander]

Du kennst nicht WinAMP ? :shock:
Das ist ein super MP3 Player ;-)
http://www.winamp.de/

[glkgereon]

klar kenn ich winamp...

aber was ist dein ding da Winamp1 mit dem du da rumfuchtelst?
ein button?

[MrKnogge]

nein es ist kein Button, ich vermute nal dass es sich um einen TCheckbox handelt

( :mrgreen: )

[Die Muhkuh]

Zitat:

Zitat von MrKnogge

japs ist ein Button

:shock:???

Ein Button mit Checked? :mrgreen:

Ich denke das WinAmp1 eine CheckBox ist.

[fkerber]

Hi!

Es war ein Eintrag in einem PopUp-Menü
Sorry für die Verwirrung, ist halt rauskopiert.

Ciao Frederic

[glkgereon]

sorry, ich habs probiert, aber ich blick nicht durch den code durch.... :(

kannst du vielleicht ma in etwa sagen was welche aufgabe hat, und wo die entscheidenden passagen sind?

[fkerber]

Hi!

Aaaalso: :-D

Delphi-Quellcode:

EnumWindows (@EnumWindowsProc,Integer(@LPARRAM));

Das listet alle Fenster auf, die momentan vorhanden sind.
Dafür wird die EnumWindowsProc verwendet.
Alle gefundenen Fenster werden in der Listbox1 aufgelistet.

Dann gehst du alle durch, suchst per FindWindow das Handle und dann mit GetText den Fenstertitel.
In diesem Fall war Playlist im Titel enthalten, deshalb suche ich danach auch mit Pos.
Wenn ich so das richtige Handle habe, speicher ich es in AmpHandle und verwende es später.

Mit

Delphi-Quellcode:

      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_MINIMIZE);
      ShowWindow(GetWindow(amphandle,GW_OWNER),SW_HIDE);

Minimiere ich das Fenster und verstecke es.

Die ganze Sache mit dem Winamp.Checked dient nur dazu, festzustellen, ob der Popupmenü-Eintrag gewählt ist oder nicht und dementsprechend, ob WinAmp versteckt oder wieder angezeigt werden soll.

Ich hoffe, es ist alles klar.


Ciao Frederic