Ersatz für Office Shurtcut unter Windows 10

[waldforest]

Hallo Zusammen,
nun habe ich mein System doch auf Windows 10 umgestellt. Die Installation meiner Standardanwendungen verlief recht gut, auch mein XE 3 mit all meinen Kompos habe ich wieder zum Laufen bekommen.

Das Einzige, was ich nun vermisse, ist die Office Shortcut-Leiste, auf der ich all meine wichtigen Links zu meinen häufig genutzten Anwendungen abgelegt habe.
Leider funktionieren die Shortcut-Leiste unter Windows 10 nicht mehr, oder weiß jemand wie man diese wieder zum Laufen bringt ?.

Kennt, nutzt jemand eine Alternative?
Wie könnte man so etwas selber programmieren, ein Aufruf über Shellexecute scheint mir hier sicher nicht angebracht, oder ?

[Bernhard Geyer]

Windows 2010? Was ist das?

Du kannst in der Taskleiste eigene Symbolleisten definieren. Damit sollte du das was die Office-Leisten sind AFAIK ziemlich nachbauen.

[uligerhardt]

Du kannst doch deine Anwendungen einfach an die Taskbar pinnen.
http://windows.microsoft.com/de-de/w...to-the-taskbar

[waldforest]

Hallo,
danke für die Hinweise, werde noch etwas Zeit brachen mich an Windows 10 zu gewöhnen.

Aber ungeachtet davon, wie würde man so etwas selber programmieren, angehen ?

[FarAndBeyond]

Vielleicht eine dll, die ein IDeskBand Interface implementiert... siehe BatteryBar https://batterybarpro.com/

Oder eben die schon erwähnte QuickLaunch oder etwas im TNA-Bereich...
Oder 'ne selbstgebaute ShortCutLeiste...
Oder ein eigener Launcher: z.B. immer wenn die Maus über dem letzten Pixel der rechten Bildschirmkante ist und gleichzeitig die rechte Maustaste gedrückt wird, dann zeigt sich deine GUI...

EDIT:
Das Einfachste in Windows 7 ist: im Windows-Explorer ein RECHTSKLICK auf die EXE und dann "An Startmenü anheften" auswählen. Geht das in Windows 10 noch ???

[samso]

Zitat:

Zitat von FarAndBeyond (Beitrag 1338484)

EDIT:
Das Einfachste in Windows 7 ist: im Windows-Explorer ein RECHTSKLICK auf die EXE und dann "An Startmenü anheften" auswählen. Geht das in Windows 10 noch ???

Bei Windows 10 ist es so:
- Bei dem Menüpunkt "An Start anheften" wird die Anwendung in den Kachelbereich des Startmenüs gelegt. Leider wird dabei auch nicht mehr die Beschreibung der Anwendung als Name für den Link übernommen, sondern statt dessen der Dateiname.
- Bei dem Menüpunkt "An Taskleiste heften" wird die Anwendung in die Taskleiste gelegt.

[EWeiss]

Meinst so was?

gruss

[FarAndBeyond]

@samso:
Bedeutet das, dass man den EXE-Namen und/oder das Icon nachträglich nicht editieren kann? Das wäre ja ziemlich blöd...

@waldforest:
Es gibt ja auch Freeware-Programme wie RocketDock die man als Launcher einsetzen kann. Aber etwas Eigenes ist ja eigentlich viel schöner, zumal das dann zu 100% so aussieht und funzt wie man es mag und auch nur den Arbeitsspeicher in Beschlag nimmt, den man dafür zur Verfügung stellen möchte (Keine übertriebenen Funktionen die man gar nicht benötigt).

[waldforest]

Hallo,

@Eweiss, genau so etwas.

[samso]

Zitat:

Zitat von FarAndBeyond (Beitrag 1338543)

Bedeutet das, dass man den EXE-Namen und/oder das Icon nachträglich nicht editieren kann? Das wäre ja ziemlich blöd...

Hmm, stimmt. Geht nicht! Zumindest kriege ich das nicht hin, aber vielleicht gibt es da noch irgendeinen versteckten Trick?

[EWeiss]

Zitat:

Zitat von waldforest (Beitrag 1338554)

Hallo,

@Eweiss, genau so etwas.

Gib mir ne Mail und ich schicke dir den Source
Ohne gewähr das es unter W10 noch funktioniert.

Zitat:

Bedeutet das, dass man den EXE-Namen und/oder das Icon nachträglich nicht editieren kann?

Bei meinem Programm wird das Icon aus der Exe extrahiert, alternativ kann man auch ein eigenes einfügen.
DragDrop also...

gruss

[waldforest]

Zitat:

Zitat von EWeiss (Beitrag 1338560)

Zitat:

Zitat von waldforest (Beitrag 1338554)

Hallo,

@Eweiss, genau so etwas.

Gib mir ne Mail und ich schicke dir den Source
Ohne gewähr das es unter W10 noch funktioniert.

gruss

mmh, gerne, laut Forumhinweis kann ich keine PN an dich senden, hast du nicht zugelassen. Schick mir gerne ne PN.



gruss

[EWeiss]

Zitat:

Zitat von waldforest (Beitrag 1338566)

Zitat:

Zitat von EWeiss (Beitrag 1338560)

Zitat:

Zitat von waldforest (Beitrag 1338554)

Hallo,

@Eweiss, genau so etwas.

Gib mir ne Mail und ich schicke dir den Source
Ohne gewähr das es unter W10 noch funktioniert.

gruss

mmh, gerne, laut Forumhinweis kann ich keine PN an dich senden, hast du nicht zugelassen. Schick mir gerne ne PN.



gruss

Versuchs nochmal..

gruss

[FarAndBeyond]

Ein einfaches Beispiel:

Delphi-Quellcode:

Unit uSimpleLauncher;

Interface
 Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, Forms;

 Type
  TwndGUI = Class(TForm)

   Procedure FormCreate     (Sender: TObject);
   Procedure FormShow       (Sender: TObject);
   Procedure FormMouseUp    (Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   Procedure FormCloseQuery (Sender: TObject;  Var CanClose: Boolean);

   Procedure TimerTOPdo     (Sender: TObject);
   Procedure TimerGUIdo     (Sender: TObject);

    PRIVATE
     Procedure WMGetMinMaxInfo   (Var MSG: TWMGetMinMaxInfo);   Message WM_GETMINMAXINFO;
     Procedure WMSysCommand      (Var MSG: TWMSysCommand);      Message WM_SYSCOMMAND;
  End;

 VAR
  wndGUI   : TwndGUI;
  wndLaunch: TForm;
  timerGUI : TTimer;
  timerTOP : TTimer;
Implementation
 {$R *.dfm}


Procedure TwndGUI.FormCreate(Sender: TObject);
 Begin
  SetBounds(0, 0, Screen.Width, 100);

  DoubleBuffered:= True;
  Color         := clNavy;
  BorderStyle   := bsNone;
  FormStyle     := fsStayOnTop;

   wndLaunch                := TForm.Create(Application);
   wndLaunch.AlphaBlend     := True;
   wndLaunch.AlphaBlendValue:= 1;
   wndLaunch.BorderStyle    := bsNone;
   wndLaunch.FormStyle      := fsStayOnTop;
   wndLaunch.OnCloseQuery   := wndGUI.FormCloseQuery;
   wndLaunch.OnShow         := wndGUI.FormShow;
   wndLaunch.SetBounds(100, 0, (Screen.Width-200), 1);
   wndLaunch.Show;

    timerTOP         := TTimer.Create(Application);
    timerTOP.Interval:= 30;
    timerTOP.Enabled := False;
    timerTOP.OnTimer := wndGUI.TimerTOPdo;

    timerGUI         := TTimer.Create(Application);
    timerGUI.Interval:= 30;
    timerGUI.Enabled := False;
    timerGUI.OnTimer := wndGUI.TimerGUIdo;

    timerTOP.Enabled:= True;
 End;


Procedure TwndGUI.WMGetMinMaxInfo(Var MSG: TWMGetMinMaxInfo);
 Begin
  Inherited;
   With MSG.MinMaxInfo^
   Do
    Begin
     ptMinTrackSize.x:= Screen.Width;
     ptMaxTrackSize.x:= Screen.Width;
     ptMinTrackSize.y:= 100;
     ptMaxTrackSize.y:= 100;
    End;
 End;


Procedure TwndGUI.WMSysCommand(Var MSG: TWMSysCommand);
 Begin
  If MSG.CmdType And $FFF0=SC_MINIMIZE
  Then wndGUI.Hide
  Else Inherited;
 End;


Procedure TwndGUI.FormShow(Sender: TObject);
  Var
   Owner: HWND;
 Begin
  Owner:= GetWindow(TForm(Sender).Handle, GW_OWNER);
  ShowWindow(Owner, SW_HIDE);
 End;


Procedure TwndGUI.TimerTOPdo(Sender: TObject);
  Var
   Cursor: TPoint;
 Begin
  GetCursorPos(Cursor);
   If PtInRect(wndLaunch.BoundsRect, Cursor)
   Then
    Begin
     timerTOP.Enabled:= False;
      wndGUI.Show;
     timerGUI.Enabled:= True;
      Exit;
    End;
  SetWindowPos(wndLaunch.Handle, HWND_TOPMOST,0,0,0,0, SWP_NOMOVE Or SWP_NOSIZE);
 End;


Procedure TwndGUI.TimerGUIdo(Sender: TObject);
  Var
   Cursor: TPoint;
 Begin
  GetCursorPos(Cursor);
   If Not PtInRect(wndGUI.BoundsRect, Cursor)
   Then
    Begin
     timerGUI.Enabled:= False;
      wndGUI.Hide;
     timerTOP.Enabled:= True;
    End;
 End;


Procedure ExitPRG;
 Begin
  If Assigned(wndGUI)
  Then
   Begin
    wndGUI.Release;
    wndGUI:= Nil;
   End;

  If Assigned(wndLaunch)
  Then
   Begin
    wndLaunch.Release;
    wndLaunch:= Nil;
   End;

  Application.Terminate;
 End;


Procedure TwndGUI.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 Begin
  If Button = mbRight
  Then ExitPRG;
 End;


Procedure TwndGUI.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
 Begin
  CanClose:= False;
 End;


End.

Delphi-Quellcode:

Program Launcher;

 Uses
  Forms,
  uSimpleLauncher In 'uSimpleLauncher.pas' {wndGUI};

 {$R *.res}

Begin
 Application.Initialize;
 Application.ShowMainForm:= False;
 Application.CreateForm(TwndGUI, wndGUI);
 Application.Run;
End.

Was soll eigentlich falsch sein an ShellExecute ???

Delphi-Quellcode:

Procedure StartProgram(Path: String);
 Begin
  ShellExecute(wndGUI.Handle, Nil, PChar(Path), Nil, Nil, SW_SHOW);
 End;

Jetzt nur noch ein paar Bilder oder Icons drauf und den Pfad reinhauen und los geht's...
Kommt natürlich drauf an wie man den Pfad bezieht... (Datei, UserInput_Menü, Direkteingabe...)

Einfach starten und mit der Maus an die obere Bildschirmkante...
Schließen mit rechter Maustaste...


EDIT: CloseQuery war doppelt und wndLaunch.OnShow fehlte...

[EWeiss]

Zitat:

Einfach starten und mit der Maus an die obere Bildschirmkante...

Sind die Ränder nicht reserviert unter W10 ?

Zitat:

Was soll eigentlich falsch sein an ShellExecute ???

Auch hier soll es Einschränkungen unter W10 geben.

Ob das allerdings so stimmt mag dahingestellt sein.
Hab kein W10

gruss

[FarAndBeyond]

Zitat:

Sind die Ränder nicht reserviert unter W10 ?

Echt, sowas machen die bei MS... Ich fordere freien Zugang zu allen Rändern... :-)

Na ja, kann ich leider auch nicht ausprobieren...

[EWeiss]

Zitat:

Zitat von FarAndBeyond (Beitrag 1338578)

Zitat:

Sind die Ränder nicht reserviert unter W10 ?

Echt, sowas machen die bei MS... Ich fordere freien Zugang zu allen Rändern... :-)

Na ja, kann ich leider auch nicht ausprobieren...

Bei den ganzen Touch Kram sollte das eigentlich klar sein..
Da wird alles benutzt was möglich ist.
Aber egal.

gruss

[Adama]

gelöscht Seite 2 übersehen

[MisterCP]

@EWeiss

für mich ist dieses Thema gerade erst aktuell geworden, ich bin allerdings kein großer Delphi-Programmierer.
Könntest du mir ggf. deinen Code zur Verfügung stellen?

Vielen Dank