FindWindow zum 215. Mal

[Luckie]

Es hat auch niemand das gegenteil behauptet und davon reden wir übrigens die ganze Zeit. :roll:

[pizza]

sry :oops:
hab ich net gemerkt ;) hab das thema nur überflogen und gedacht, dann schreib ich halt schnell mal nen kelienen source..

PS:
MathiasSimmack Verfasst am: 21.05.2004, 16:50 Titel: Re: FindWindow zum 215. Mal
Ein eindeutiger Name für die Form ist zu bevorzugen, weil du sonst u.U. das falsche TForm1-Programm beendest. Und dann ist der Klassenname der erste Parameter, der zweite ist der Fenstertitel. Eine Abfrage müsste daher so aussehen:
stimmt das hier denn?? :

Code:

 
Source: 
if findwindow('TForm1',nil) <> 0) then
  ShowMessage('läuft');

[toms]

Zitat:

Ansonsten alle Prozesse auflisten und nachsehen ob das Programm läuft
PROZESSE und AUFLISTEN

Ist eine Möglichkeit. Jedoch geht's doch einfacher mit der FindWindow() Abfrage.

[Luckie]

Zitat:

Zitat von pizza

stimmt das hier denn?? :

Code:

 
Source: 
if findwindow('TForm1',nil) <> 0) then
  ShowMessage('läuft');

Probier es aus. Aber als kleinen Tipp sage ich dir schon mal: Es ist ein Fehler in dem Code drin.

[pizza]

also stimmts nicht :mrgreen:
ich bleib dann mal bei meinem FIndWindow(nil, 'dings'); :zwinker:

mfg rob :dancer2:

EDIT: :gruebel: so schnell wie ihr antwortet kann man das forum nicht mehr forum sondern chat nennen :hello:

[MaxMara]

So.
Ich werd mir die ganzen Dinge mal übers Wochenende durch den Kopf gehen lassen und am Montag dann mal ausprobieren.
Ich meld mich dann wieder.

Danke für die vielen Antworten (von denen ich nur 20% verstehe :oops: )

gtx
MaxMara

[Pseudemys Nelsoni]

hat zwar nichts mit dem Thema zu tun, aber egal, ich wollte nur anmerken das du kein typcastin (PChar) machen brauchst wenn du den 'test' direkt angibst

[Luckie]

Zitat:

Zitat von pizza

also stimmts nicht :mrgreen:

Von der Logik her schon und auch was die Parameter angeht. Aber es ist ein syntaktischer Fehler drin.

[MathiasSimmack]

Upps, ja ... Ich gestehe: Ich bin ein "Klammerer". Wenn ich versuche, mich dem Stil anderer Entwickler anzupassen, dann komme ich garantiert mit den Klammern durcheinander. Ich bin´s eben von PHP usw. gewohnt, min. eine Klammer zu setzen. So wär´s richtig:

Delphi-Quellcode:

if findwindow('TForm1',nil) <> 0 then
  ShowMessage('läuft');

oder in "meinem" bevorzugten Stil:

Delphi-Quellcode:

if(findwindow('TForm1',nil) <> 0) then
  ShowMessage('läuft');

;)

[toms]

oder noch schöner so: :wink:

Delphi-Quellcode:

if FindWindow('TForm1', nil) <> 0 then

vs

Delphi-Quellcode:

if findwindow('TForm1',nil) <> 0 then