Programmposition beim Doppelaufruf ändern?

[OrNEC]

Hallo,

hab das Forum bereits durchgesucht, aber nichts passendes gefunden. Ich möchte die Position meines Programms ändern, falls das das zweite oder dritte mal gestartet wird. Sonst starten das immer überlappt an einer Stelle.

Die Position der Anwendung bestimme ich im OnCreate Eregnis:

Delphi-Quellcode:

Left := Ini.ReadInteger('Default', 'FormLeftPos', -1);
Top := Ini.ReadInteger('Default', 'FormTopPos', -1);

if (Left < Screen.DesktopLeft) or (Left > (Screen.DesktopLeft+Screen.DesktopWidth - Width)) or
  (Top < Screen.DesktopTop) or (Top > (Screen.DesktopTop + Screen.DesktopHeight - Height)) then
Form1.Position:=poScreenCenter;

Also die Anwendung mathematisch zu verschieben ist kein Problem, was mich interessiert ist es möglich im OnCreate Eregnis zu prüfen, ob die Anwendung bereits läuft? Ich denke das muss wo anders geschehen, aber ich frage das um auf Nummer sicher zu gehen.

Jah... wie gehe ich an diese sache richtig ran, wer kann mir da ein paar Tipps geben?

Danke!

[Luckie]

Stichwort Mutex OneInstance.

[OrNEC]

Zitat:

Zitat von Luckie (Beitrag 1067389)

Stichwort Mutex OneInstance.

Ich hab mir dieses angeguckt, aber da gibts, wie ich verstanden habe, mehrere Variablem um das Programm nicht zweimal starten zu lassen. Und das brauche ich nicht, da mein Programm gerade 2 mal starten darf, und ich traue mich nicht Mutex OneInstance an mein Bedürfnisse anzupassen.

[shmia]

Property Position des Formulars auf poDefaultPosOnly setzen.

[OrNEC]

Die Position wird doch im OnCreate glesen und dementsprechend angezeigt, poDefaultPosOnly kann da leider nichts mehr bewirken, denke ich. Habs auch getestet und das stimmt so.

[Luckie]

Natürlich nicht. Entweder das eine oder das andere. Aber wenn du das nicht willst, wirst du dich wohl mal mit Mutex und OneInstance auseinandersetzen müssen.

[H3llsing]

kannst du nicht mit dieser Komponente OneInstance angeben was geschehen soll wenn das Programm bereits gestartet ist ?

Dann könntest du es doch mit deinen Positionswerten starten.

ich glaub diese Komponente wars
-> http://www.delphipraxis.net/28020-me...erhindern.html


EDIT:
hab grad nochmal Nachgeschaut, die Kompo hat 2 ereignisse
OnExist und OnSwitch
damit lässt sich doch was anfangen ;)

[Klaus01]

.. aber ist es denn nicht so, dass Mutex und OneInstance nur erkennt das schon eine Instanz läuft und nicht wie viele?
Wenn also schon zwei laufen (die verschiedene Positionen haben) wird die dritte auch auf die Position der zweiten Instanz gelegt.

Grüße
Klaus

[shmia]

Zitat:

Zitat von OrNEC (Beitrag 1067418)

Die Position wird doch im OnCreate glesen und dementsprechend angezeigt, poDefaultPosOnly kann da leider nichts mehr bewirken, denke ich. Habs auch getestet und das stimmt so.

Natürlich setzt man die Eigenschaft schon im Objektinspektor!
poDefaultPosOnly bedeutet, dass sich das Betriebssystem die Position des Fensters aussucht.
Startet man das gleiche Programm mehrmals dann sorgt das Betriebsysstem dafür, dass jedesmal eine andere Position gewählt wird.
Starte mal den Taschenrechner (calc.exe) mehrmals, dann siehst du wie das aussieht.

[Satty67]

denke er will doppelten Komfort bieten?

1.Instanz wird an letzter gespeicherter Position angezeigt.
2.-n. überlapped

[H3llsing]

Ich weiß nicht obs auch leichter geht, aber man könnte sich die Fensternamen aller laufenden Handles ausgeben lassen und diese dann mitzählen. Bei mehr als 2 = Exit

Sowas zum beispiel ?!
listbox zum mitlesen der Fensternamen
// nicht getestet

Delphi-Quellcode:

 public
    { Public-Deklarationen }
  end;

  PMyEnumParam = ^TMyEnumParam;
  TMyEnumParam = record
    lb: TListbox;
 end;

...

FUNCTION TfrmMain.getAnzahlProgrammInstanzen(): Integer;
VAR
  Param: TMyEnumParam;
  I: Integer;
  wndHandle : TwndHandle;
  meinCounter :integer;

  function GetWindows(const hWnd : Longword; Param: PMyEnumParam): LongBool; stdcall;
var
  Len : Longint;
  S : String;
begin
  Result := True;
  if not ( IsWindow(hWnd) and IsWindowVisible(hWnd) ) then Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    SetLength(S, Len);
    SendMessage(hWnd, WM_GETTEXT, Len + 1, Longint(Pchar(S)));
    Param.lb.Items.Add(Inttostr(hwnd) + '; ' + s);
  end;
  // mit Result = False kann die Callbackfunktion vorzeitig verlassen werden
end;

BEGIN

  ListBox1.Items.Clear;
  Param.lb := Listbox1;
  Listbox1.Items.clear;
  EnumWindows(@GetWindows, LPARAM(@Param));


  //F2 aus Taskleiste anzeigen
  FOR I := 0 TO ListBox1.Items.Count - 1 DO
  BEGIN
    //machwas mit den fensternamen
    IF Pos('FENSTERNAME', Trim(AnsiUppercase(ListBox1.Items.Strings[i]))) > 0 THEN
      inc(meinCounter);
  END;

  
  result :=  meinCounter;


END;

[OrNEC]

Also ich verdeutliche das mal.
Meine Anwendung darf man auch 15 mal starten, nicht nur 2 mal, sondern x mal.

Die Postion des Fensters wird abgespeichert und beim Aufruf der Anwendung gelesen. poDefaultPosOnly funktioniert bei mir nicht, da ich die Postion selber manuell bestimme, der Test hat das auch bestätigt. Ich denke das muss so laufen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if (läuft schon eine Anwendung?) then 
 begin
 PositionLeft=PositionLeft+20;
 PositionTop=PositionTot+20;
 end;
end;

[H3llsing]

Achso ! Ich bin von nur 2 mal ausgegangen aufgrund dieser Aussage ;)

Zitat:

Zitat von OrNEC (Beitrag 1067390)

Zitat:

Zitat von Luckie (Beitrag 1067389)

Stichwort Mutex OneInstance.

.... Und das brauche ich nicht, da mein Programm gerade 2 mal starten darf, ....

du könntest dir auch das Fensterhandle der zu letzt erstellten Instanz ausgeben lassen und daran dann die Aktuelle Position + 20 nehmen und dann deine neue Intanz erstellen.

[OrNEC]

Zitat:

Zitat von H3llsing (Beitrag 1067456)

du könntest dir auch das Fensterhandle der zu letzt erstellten Instanz ausgeben lassen und daran dann die Aktuelle Position + 20 nehmen und dann deine neue Intanz erstellen.

Wie geht denn das? Fensterhandle? Was das ein Rückgabewert oder wie kann man das verstehen?

[H3llsing]

Ein Handle ist eine eindeutige Identifikationsnr, darüber lassen sich beispielsweise die fremde Fenster steuern.

also entweder die funktion die ich oben gepostet habe erweitern
hier die Funktion, hoffe das war alles ;)

Delphi-Quellcode:

 type
  TwndHandle = record
    Handle :LongWord;
    title    :string;
  end;

...

FUNCTION TfrmMain.getMyHandle: TwndHandle;
VAR
  Param: TMyEnumParam;
  I: Integer;
  myhandle : Cardinal;
  wndHandle : TwndHandle;

  function GetWindows(const hWnd : Longword; Param: PMyEnumParam): LongBool; stdcall;
var
  Len : Longint;
  S : String;
begin
  Result := True;
  if not ( IsWindow(hWnd) and IsWindowVisible(hWnd) ) then Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    SetLength(S, Len);
    SendMessage(hWnd, WM_GETTEXT, Len + 1, Longint(Pchar(S)));
    Param.lb.Items.Add(Inttostr(hwnd) + '; ' + s);
  end;
  // mit Result = False kann die Callbackfunktion vorzeitig verlassen werden
end;

BEGIN

  ListBox1.Items.Clear;
  Param.lb := Listbox1;
  Listbox1.Items.clear;
  EnumWindows(@GetWindows, LPARAM(@Param));
  wndHandle.Handle := 0;
  wndHandle.title  := 'false';


  //Fenster aus Taskleiste anzeigen
  FOR I := 0 TO ListBox1.Items.Count - 1 DO
  BEGIN
    IF Pos('Fenstername', Trim(AnsiUppercase(ListBox1.Items.Strings[i]))) > 0 THEN
        begin
      myHandle := StrtoInt(Copy(ListBox1.Items.Strings[i], 1, pos(';', ListBox1.Items.Strings[i]) - 1));
      ShowWindow(myhandle,SW_SHOWNORMAL);
      wndHandle.Handle := myHandle;
      wndHandle.title  := 'minimiert';
      break;
    end;
  END;

  //Anmeldungsfenster zurückgeben
  FOR I := 0 TO ListBox1.Items.Count - 1 DO
  BEGIN
    //ANMELDUNG ist hier der Fenstername der gesucht wird
    IF Pos('ANMELDUNG', Trim(AnsiUppercase(ListBox1.Items.Strings[i]))) > 0 THEN
    begin
      myHandle := StrtoInt(Copy(ListBox1.Items.Strings[i], 1, pos(';', ListBox1.Items.Strings[i]) - 1));
      wndHandle.Handle := myHandle;
      wndHandle.title  := Copy(ListBox1.Items.Strings[i], pos(';', ListBox1.Items.Strings[i]) + 1,length(ListBox1.Items.Strings[i]));
      break;
    end;
  END;

  result :=  wndHandle;


END;

oder hier zum selber basteln
http://www.delphipraxis.net/745-das-...ausfinden.html