Forum: Software-Projekte der Mitglieder
by Whookie,
16. Jun 2017
Das stimmt, wenn ich die beiden Dateien ins Originalverzeichnis kopiere und starte kommt der schwarze Balken nicht mehr, nur mehr das "OverTheTaskBar funktioniert nicht mehr..." - Fenster und wenn ich das wegklicke gibts einen Anwendungsfehler
Forum: Software-Projekte der Mitglieder
by Whookie,
16. Jun 2017
Da gibts nur einen Crash...
Forum: Software-Projekte der Mitglieder
by Whookie,
15. Jun 2017
Das mit dem Backslash hat bei mir überhaupt keine Auswirkung unter Windows 10. Ob mit oder ohne Doppeltem Backslash spielt keine Rolle, das eigentliche Problem liegt darin, das unter Windows 10 der 'SHELLDLL_DefView' nicht mehr unter 'Progman' liegt sondern in einem Fenster der Klasse "WorkerW".
Solange also die Liste nicht gefunden wird der Code unter:
ItemCount :=...
Forum: Software-Projekte der Mitglieder
by Whookie,
15. Jun 2017
Hab da jetzt noch mal reingeschaut und das unter Windows 10 zum Laufen gebracht:
uShortCut.pas
procedure TShortCut.CreateShortCut(WinHandle: HWND);
...
begin
..
if Win32MajorVersion >= 10 then
Forum: Software-Projekte der Mitglieder
by Whookie,
15. Jun 2017
Zu mindestens solltest du das so machen, dann gibts keinen Absturz, wenn keine Elemente in der Liste sind:
if (Sprites.Count > ID_FIRST) And (Sprites.Left < 40) then
Sprites.Visible := True
else
Sprites.Visible := false;
Forum: Software-Projekte der Mitglieder
by Whookie,
15. Jun 2017
Liegt wohl wirklich eher unter Windows 10. Das Problem scheint zu sein, dass unter Windows 10 den Desktop-Ordner nicht gefunden wird (daher bleibt die Leiste auch leer).
Selbst mit der OTTB.txt/.config wird nichts angezeigt.
Forum: Software-Projekte der Mitglieder
by Whookie,
15. Jun 2017
Hab es auch mal versucht (Win10/64), leider kriege ich auch einen Absturz beim Start.
Der Grund bei mir scheint daran zu liegen, das über die WM_PRINT Message DockBar.DrawDockBar aufgerufen wird und dort (ab Zeile 128)
if Sprites.Left < 40 then
Sprites.Visible := True
else
Sprites.Visible := false;