Thema: Delphi Fenster verstecken

Einzelnen Beitrag anzeigen

gabneo

Registriert seit: 15. Okt 2006
Ort: Deutsche Toskana :)
93 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#15

Re: Fenster verstecken

  Alt 22. Sep 2007, 12:43
Hi,
danke für die Infos. Ich möchte nur verstehen worum es grundlegend geht, und mit den Infos kann ich was anfangen. Vielleicht hilft dir dieser Code, mit dem ich mal ermittelt habe welche Prozesse alle laufen, in dem pos vergleich werden System-Prozesse aussortiert (hat keine Anforderung auf Vollständigkeit):

Delphi-Quellcode:
procedure m;
var SHandle:THandle; Continue:boolean; ProcEntry:ProcessEntry32; s:tstringlist; i:integer;
begin
s:=tstringlist.Create;
s.Sorted:=true;
shandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize := Sizeof(ProcEntry);
  Continue := Process32First(SHandle, ProcEntry);
  while Continue do
   begin
    if (pos('|'+lowercase(procentry.szExeFile)+'|','|rundll32.exe|msrtmon.exe|lsm.exe|fdm.exe|dwm.exe|taskmgr.exe@|explorer.exe|csrss.exe|wininit.exe|lsass.exe|slsvc.exe|spoolsv.exe|svchost.exe|system|[system process]|smss.exe|winlogon.exe|searchfilterhost.exe|')<1) and (pos('|'+lowercase(procentry.szExeFile)+'|','|searchindexer.exe|searchprotocolhost.exe|services.exe|project1.exe')<1) then s.Add(procentry.szExeFile);
    Continue := Process32Next(SHandle, ProcEntry);
  end;
  CloseHandle(SHandle);
 //try for i:=0 to s.Count do irgendwas except end;
end;
Hoffe das hilft dir schonmal, denn dann weißt du welche Programme alle aktiv sind.
greez
gabneo
  Mit Zitat antworten Zitat