Programm für schließung eines Programes in der Taskleiste rechts neben der Uhr

[marco1204]

doch habe ich aber ich werde nicht schlau daraus

[DeddyH]

Ich weiß nicht mehr, wie ich da noch helfen soll :|

[Luckie]

Ein letzter Versuch:

Code:

LRESULT WINAPI SendMessage(
  __in  HWND hWnd,
  __in  UINT Msg,
  __in  WPARAM wParam,
  __in  LPARAM lParam
);

[Sir Rufo]

@Luckie noch mehr vorkauen bitte

SendMessage( <--- Funktionsname
__in HWND hWnd, <--- Handle vom Fenster/Form
__in UINT Msg, <--- Message (was soll getan werden)
__in WPARAM wParam, <--- ein Parameter mit Namen wParam
__in LPARAM lParam <--- ein Parameter mit Namen lParam
);

[Sir Rufo]

Man kann alles zunächst im WinSpy ausprobieren und wenn dann alles funktioniert in den eigenen Code übernehmen.

Allerdings sollte man wissen, dass sowas wie

Delphi-Quellcode:

ShowMessage

oder

Delphi-Quellcode:

FlashControl

nichts mit dem Schließen des Fensters zu schaffen hat.
Somit kann man das auch gleich rauslassen.

Also mit dem folgenden Code kann ich ganz hervorragend das Download-Fenster von Firefox schließen.

Wenn man das geschafft hat, dann sollte das Copy/Paste in die eigene Anwendung noch zu schaffen sein.

[DeddyH]

Letzter Versuch (nicht großartig getestet):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  NameDesProgramms = 'TripoX Keybinder 0.1a.exe';
var
  StartupInfo: TStartupInfoA;
  ProcessInfo: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOW;
  if CreateProcessA(nil, PAnsiChar(NameDesProgramms), nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo,
    ProcessInfo) then
    try
      PID := ProcessInfo.dwProcessId;  //PID ist eine private DWORD-Variable
    finally
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);

  function EnumWindowsProc(Wnd: HWnd; aPID: DWORD): BOOL; stdcall;
  var
    hProcess: DWORD;
  begin
    GetWindowThreadProcessID(Wnd, hProcess);
    if hProcess = aPID then
      PostMessage(Wnd, WM_SYSCOMMAND, SC_CLOSE, 0);
    Result := true;
  end;

begin
  if PID <> 0 then
    EnumWindows(@EnumWindowsProc, PID);
end;

[marco1204]

okay der letzte code von deddyH sieht ganz gut aus und auch beim einfügen wenig rot
ich füge nur den button2onclick ein, da ich ja das öffnen schon hinbekommen habe.
doch er makiert mir immer diese 'PID' Rot. woran liegt daS?

[Sir Rufo]

Zitat:

Zitat von marco1204 (Beitrag 1078026)

okay der letzte code von deddyH sieht ganz gut aus und auch beim einfügen wenig rot
ich füge nur den button2onclick ein, da ich ja das öffnen schon hinbekommen habe.
doch er makiert mir immer diese 'PID' Rot. woran liegt daS?

Ich möchte dir ja nicht zu nahe treten, aber bist du farbenblind? so auf dem grün-kanal?

[marco1204]

dazu möchte ich mich jetzt nicht äußern xD
ja aber was ist damit gemient "//PID ist eine private DWORD-Variable"
ist damit gemaint ich kann das weglassen?

[Luckie]

Meinst du die ist umsonst da? Wie wäre es, wenn du sie einfach mal deklarieren würdest?