-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
27. Okt 2018
hab den pointer überlesen *whoops*, klar ohne.
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
26. Okt 2018
Komisch, also wenn bei Dir Edit1.Text einen guten Namen wie "Explorer.exe" annimmt aber "xyz.exe" nicht, obwohl mein processlister "xyz.exe" anzeigen kann, da fällt mir nichts weiter zu ein.
Ich nutz identischen Code zum ermitteln der Prozesse, da passiert genau das gleiche, nur das ich in der Schleife alle Prozesse sammel und System-Prozesse gleich rauswerfe (die sind bei Dir noch enthalten),...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
26. Okt 2018
Dankeschön, sieht gut aus :thumb: werde ich fast so übernehmen, ich lass das var vorm nSize drinnen, Api sagt
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
26. Okt 2018
Hallo nochmal, ohne zu sehen wie Du den Code verarbeitest ist es schwer zu sagen was bei Dir falsch läuft.
Es kann auch gut möglich sein das Du versuchst auf System-Prozesse zuzugreifen (die sieht man in meinem Process Lister nämlich erst gar nicht, weil eben solche mit "Verboten" "Fehler" zurückkommen.)
Ich selbst kann mein Programm nicht in der Ide ausführen da ich bewusst auf Exceptions...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
23. Okt 2018
Das geht schon in Ordnung, ich wollte nur nicht das fehler dem Luckie nachgesagt werden, seine funktion arbeitet 1A.
Orignal stammt glaub ich von StackOverflow, ich habs nur für Dich angepasst.
Das ist Sinn und Zweck vom Result. True = einer der gefundenen Prozesse ist der Host.
Um zu prüfen nach einem Ja/Nein nimm einfach den Count von der Liste, wenn der höher als null = dann wurde was...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
21. Okt 2018
function PidToFilename(const TargetPID: THandle): WideString;
type
TQueryFullProcessImageNameW = function(AProcess: THANDLE; AFlags: DWORD; lpExeName: PWideChar; var nSize: DWORD): BOOL; stdcall;
var
hProcess: THandle;
TargetName: array of WideChar;
QueryFullProcessImageNameW: TQueryFullProcessImageNameW;
nSize: DWORD;
begin
Result := '';
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
21. Okt 2018
ahh ich verstehe, also delphi 5 nimmt da dann wohl die ansi wo hingegen meins automatisch wide verwendet, ich werde es nochmal überarbeiten, danke!
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
21. Okt 2018
Och, ich dachte das ich das mache mit dem GetProcAddress(GetModuleHandle('kernel32'), 'QueryFullProcessImageNameW'); Befehl.
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
21. Okt 2018
Ps: Für Dein Delphi 5 musst Du Char mit WideChar und String mit WideString ersetzen (ich kann es nicht prüfen da ich version 5 nicht habe)
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
20. Okt 2018
Michaels Code ist die KillProcess() Funktion.
Da ich nun weiß worum es Dir mehr oder weniger geht und ich die ANSI Version gelesen habe, war ich so frei es noch mal zu überarbeiten, etwas gezielter für Deine Bedürfnisse:
function PidToFilename(const TargetPID: THandle): string;
type
TQueryFullProcessImageName = function(hProcess: THandle; dwFlags: DWORD; lpExeName: PChar; nSize:...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
20. Okt 2018
dass das alles optionen sind ist dir schon bewusst, ja? das man nicht alle optionen auf einmal anwenden kann hoffentlich auch.
man könnte es noch mehr erweitern mit logging und all so was, war hier nicht nötig.
ohne in forms/application/messages einzugreifen würde es mir schwer fallen einen dateinamen rüberzuschaffen und app anzustubsen auch was damit zu machen, also nein, nicht nur die .dpr...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
In meiner Eigenen Mutex variante passiert ein wenig mehr als wie bei dem Sample was ich verlinkt habe.
Bei Interesse kann ich es eventuell Suchen, ich habe da mehrere Switches eingebaut so das man verschiedene Dinge damit machen kann.
1. das reguläre "NurEineInstanz" wie aus dem Code von Luckie
2. zu alter Instanz wechseln, im Vordergrund
3. alte Instanz töten bevor neue lädt
4. alte...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
Ein Teil Deines Codes verunsichert mich aber verwenden mag ich ihn dennoch 8-)
Danke für Deine tolle Seite, mit viel Augenmerk auf schmale Sachen :thumb:
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
Ebenfalls von Moderator Luckie dieses Mutex Beispiel, falls es darauf hinaus laufen sollte.
Oben wäre nun auch eine TerminateProcess funktion enthalten :-)
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
LOL madExcept 4.0.20, nein das wollte ich nicht kaufen (ich bin bei der Konkurenz seit Jahren, vielleicht haben die ja was ähnliches, so intern habe ich mich damit noch nicht viel beschäftigt, EurekaLog ist verbaut in Version 7, seit dem hat CRC ne macke, na egal, alles wird gut^^)
für Interessierte, ich habe da oben noch ne Host-Prozess ability eingepflanzt damit eben dieser nicht in der...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
Hallo Uwe, Klasse Tipp von Dir (wie gewohnt :)), ich habe mich da mal umgeschaut, die IProcesses Methode würde da dann wohl eher zu tragen kommen (TE meinte was das mehrere Instanzen vorhanden sein könnten), ich hoffe den Source dazu kann man einsehen, der würde mich schon Interessieren, schaut sehr lecker aus.
An TE:
Vielleicht wäre es auch besser eine "OnlyOneInstance" funktionalität Deinem...
-
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
19. Okt 2018
Mit folgender funktion hast Du 2 Ergebnisse auf einmal, wenn TRUE dann ist es im selben Verzeichnis gestartet, wenn Count > 0 dann kannst Du alle geladenen Prozesse mit gleichen Dateinamem abrufen.
Sorry aber ein paar uses braucht man schon dafür.
uses TlHelp32, PsAPI;
{*
* Procedure : KillProcess
* Author : Michael Puff
* Date : 2006-09-15
* Terminates a process identified...