EnumWindowsProc

HenryHux · Verfasst: Sa 29.01.11 20:57

Hey, bis jetzt habe ich immer erfolgreich mit dieser Funktion für das aufzählen von Prozessen gearbeitet.
Doch jetzt, wo ich sie in Klassen versuche aufzurufen, geht es nicht mehr wie vorher.
Hier die Funktion:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
  Title, ClassName: array[0..255] of char;
begin
  Result := True;
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if IsWindowVisible(wHandle) then
     lb.Items.Add(string(Title) + '-' + string(ClassName));
end;

Ohne Klassen hat der Aufruf so gut geklappt :

markieren

Delphi-Quelltext

1:	EnumWindows(@EnumWindowsProc, Integer(main.Listbox1));

Aber jetzt nimmt er kein @EnumWindowsProc mehr mit der Erklärung "Variable Erforderlich".
Habe vieles Probiert, aber er compiliert nicht oder kriegt Exceptions.
Habe leider keine Ahnung, was schief läuft.
Vlt weiß ja einer von euch weiter.

Lg

bummi · Verfasst: Sa 29.01.11 21:25

Zitat:

, wo ich sie in Klassen versuche aufzurufen

was genau meinst Du damit, unter XE zumindest funktioniert o.g.

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

HenryHux · Verfasst: Sa 29.01.11 21:30

Ich wusstes selber die ganze Zeit nicht ganz genau, nur jetzt klappt es.
Hier das hat mir geholfen : www.delphipraxis.net...dows-mit-handle.html .
Ich habe die Funktion also aus dem KlassenForwarding genommen und nur lokal in die Prozedur gestellt, die es benötigt.
Seitdem kann ich auch den Zeiger richtig angeben.
Trotzdem habe ich keine Ahnung, wieso es vorher nicht geklappt hat :?:

Lg

HenryHux · Ehemaliges Mitglied Erhaltene Danke: 1

Eine Klassenmethode hat immer noch einen unsichtbaren Self-Parameter, der ein Zeiger auf die Klasse selber ist. Wenn du die Callback jetzt als Klassenmethode implementiert hast, stimmt somit die Parameterliste nicht mehr. Und hier wäre eine Lösung: www.michael-puff.de/...CallbackMethod.shtml

HenryHux · Verfasst: Sa 29.01.11 21:41

Danke, wieder was neues gelernt.
Aber wie bitte soll man als Dephi-Anfänger auf sowas kommen??

Ehemaliges Mitglied Erhaltene Danke: 1

OK, das würde ich unter Erfahrung ablegen. Kommt mit der Zeit.

jaenicke · Verfasst: Sa 29.01.11 22:10

Man muss aber kein Assembler dafür nutzen. Ich habe einfach einen Record als Userdata mitgegeben, der die nötigen Infos zum Handling enthielt. Zum Beispiel eben den Methodenzeiger oder was man sonst haben will.

Dann kann man einfach aus der Prozedur heraus über diese zusätzlichen Daten die Methode in der Klasse aufrufen.

HenryHux · Verfasst: Sa 29.01.11 22:49

Luckie hat folgendes geschrieben :

OK, das würde ich unter Erfahrung ablegen. Kommt mit der Zeit.

Na, dann bin ich ja mal beruhigt =)
Ich denke ich kann hier nochmal ein ähnliches Problem ansprechen, ohne direkt einen neuen Thread aufzumachen.
Und zwar hängt es wieder mit Umstellungen zusammen, wenn ich etwas in Klassen stelle.
Hier das zb:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

constructor TClass.Create;
begin
  VListBox := TListBox.Create(application);
  VListBox.Parent := Nil;  //würde hier normalerweise self eintragen, nimmt er aber nicht, nil gibt exceptions
end;

Generell, wie löst man solche Probleme am besten?
Luckie hat da ja schon eine schöne Erklärung + Link gepostet, was ich aber leider nicht 100%tig nachvollziehen kann, vorallem weil ich keine Ahnung von Assembler-Befehlen habe.

jaenicke · Verfasst: Sa 29.01.11 22:53

Das ist eigentlich schon wieder eine ganz andere Frage. ;-)

Parent ist die visuelle Komponente, auf der die ListBox liegt. Das kann logischwerweise nicht nil sein. Und auch keine eigene Klasse, wenn das keine visuelle Komponente ist.

Du musst also z.B. die Parentkomponente mit an deine Klasse übergeben.

bummi · Verfasst: Sa 29.01.11 22:55

Wenn Du TListBox benötigst kannst Du dem Contructor einen Parent mitgeben, wenn nicht nimm eine TStringList.

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

HenryHux · Verfasst: Sa 29.01.11 23:03

Ok, danke, habe einfach als TWinControl das Self übergeben beim Aufruf, so klappt es.
Habe mich hier für eine Listbox entschlossen, da ich nicht wüsste, dass eine StringList Sachen wie items.count hätte, die ich aber benötige. Deshalb halt eine dynamisch erzeugte ListBox.
Korrigiert mich aber ruhig =)

Lg

jaenicke · Verfasst: Sa 29.01.11 23:06

bummi hat folgendes geschrieben :

Wenn Du TListBox benötigst kannst Du dem Contructor einen Parent mitgeben, wenn nicht nimm eine TStringList.

Nein, im Konstruktor übergibst du den Owner, das ist etwas anderes. ;-)

HenryHux hat folgendes geschrieben :

Habe mich hier für eine Listbox entschlossen, da ich nicht wüsste, dass eine StringList Sachen wie items.count hätte, die ich aber benötige. Deshalb halt eine dynamisch erzeugte ListBox.

Aua. Eine visuelle Komponente als Datenspeicher in einer eigenen Klasse zu missbrauchen ist so ungefähr der schlimmste Programmierstil, den es gibt...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  Test: TStringList;
begin
  Test := TStringList.Create;
  try
    Test.Add('a');
    ShowMessage(IntToStr(Test.Count));
    ShowMessage(Test[0]);
    ShowMessage(Test.Strings[0]);
    ShowMessage(IntToStr(Test.Strings.Count));
  finally
    Test.Free;
  end;

bummi · Verfasst: Sa 29.01.11 23:11

@jaenicke
da er von TClass ableitet kann er im Constructor übergeben was er will....

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

jaenicke · Verfasst: Sa 29.01.11 23:14

Ach so meinst du das, ja so meinte ich das vorher ja auch. :mrgreen:

Ich hatte das falsch verstanden, ich dachte du meintest den Konstruktor von TListBox. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme