![]() |
beliebiges programm schließen und wieder neu öffnen
hi@all! ich bräuchte mal schnell nen source code, um ein beliebiges offenes programm zu schließen und dnan wieder neu zu starten! kann mir da mal jmd schnell helfen!
mfg mr.unbekannt |
Re: beliebiges programm schließen und wieder neu öffnen
Um ein Programm zu öffnen verwendest du einfach die API funktion Shellexecute
Bsp:
Delphi-Quellcode:
Wie man ein beliebiges Programm schließt weis ich auf anhieb jedoch nicht :?
ShellExecute(Handle, 'open',DEIN PROGRAMM, nil, nil, SW_Show);
|
Re: beliebiges programm schließen und wieder neu öffnen
Liste der Anhänge anzeigen (Anzahl: 1)
vielleicht kannst du mit der Unit von Luckie was anfangen:
[siehe download] ich habs schon fertiggebracht damit eine art taskmanager zu proggen. |
Re: beliebiges programm schließen und wieder neu öffnen
und iwe eisht es mit dem shcließen aus?
ShellExecute(Handle, 'close',DEIN PROGRAMM, nil, nil, SW_Show); klappt net! |
Re: beliebiges programm schließen und wieder neu öffnen
Delphi-Quellcode:
Für weitere Möglichkeiten:
SendMessage(Handle.desProgramms, WM_SYSCOMMAND, SC_CLOSE, 0);
![]() |
Re: beliebiges programm schließen und wieder neu öffnen
Also ich hab jetzt nachgeschaut und folgendes gefunden:
Delphi-Quellcode:
Sendmessage( Handle ,WM_Close,0,0)
|
Re: beliebiges programm schließen und wieder neu öffnen
mit "meiner" Unit kannste ganz gewalttätig gleich den Prozess aus dem Arbeitsspeicher löschen, ohne ihm noch Zeit für Userfragen und on-close-events zu lassen. musste aber erst mal durchblicken.
|
Re: beliebiges programm schließen und wieder neu öffnen
dnake erstmal für die antwort, teste es schnell! uhm naja ich habe ein beliebieges prog offen, und ich habe den link dafür da. ich will es erst schließen und dann wieder starten!
habe es noch nicht zum laufen gekriegt, dass starten geht, schlißen noch nicht, hat da jmd ne funktion parat? |
Re: beliebiges programm schließen und wieder neu öffnen
So müsste es gehn:
Delphi-Quellcode:
//EDIT
procedure TForm1.Button1Click(Sender: TObject);
var Handle: HWND; begin Handle:=GetWindow(GetDesktopWindow(),GW_CHILD); while (Handle<>0) do begin if (IsMainAppWindow(Handle) and (AnsiContainsStr(GetWindowCaption(Handle),NAME DEINES PROGRAMMS))) then begin SendMessage(handle, WM_CLOSE, 0, 0); break; end; Handle:=GetWindow(Handle,GW_HWNDNEXT); end; end; Du musst aber noch diese Units hinzufügen: JclSysInfo und StrUtils Wobei die JclSysInfo bei den Jedis dabei ist!! |
Re: beliebiges programm schließen und wieder neu öffnen
hmm geht das net ganz einfach über die shellexecute ein prog zu schlißen was den unden pfad hat?
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz