Desktop: Iconansicht -> Listenansicht ?

[gmarts]

Hallo,
kennt jemand von euch eine Möglichkeit oder ein Tool, welches die Iconansicht des Desktops in eine Listenansicht umwandelt?

Grüße GM

[Rastaman]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CommCtrl;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetView(hWndListView: HWND; dwView: dword);
var
  dwStyle : dword;
begin
  dwStyle := GetWindowLong(hWndListView,GWL_STYLE);
  if(dwStyle and LVS_TYPEMASK <> dwView) then
    SetWindowLong(hWndListView,GWL_STYLE,
      dwStyle and not LVS_TYPEMASK or dwView);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('Progman','Program Manager');
  wnd := FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
  wnd := FindWindowEx(wnd, 0, 'SysListView32', nil);
  SetView(wnd, LVS_SMALLICON);
end;

end.

Funzt! Grad ausprobiert, finds ne coole Idee :mrgreen:
SetView is von Luckies nonVCL Tutorials.
Wichtig: CommCtrl einbinden.

[gmarts]

Zitat:

Zitat von Rastaman

Funzt! Grad ausprobiert, finds ne coole Idee

Ich weiß! :mrgreen:


Vielen vielen Dank...auch noch in Delphi...bin begeistert!

So gerade noch weitergesucht: Window Styles

Gruß Gunar

[Luckie]

Gib mal einer eine Screenshot davon. ;)

[Rastaman]

Da issa :bouncing4:

[Palando]

... kranke Idee :D

[hanselmansel]

Wenn die Frage erlaubt ist: Was versprichst du dir davon :?: Ich dachte immer, die Desktop-Icons seien so schön groß und bunt, damit man sie direkt sieht und klicken kann. :gruebel: Das ist bei einer Liste doch nicht gegeben. :| (Zumal du erschreckend wenige Objekte auf dem Desktop hast)

MfG,

hanselmansel *lovinghisdesktop*

[Rastaman]

Für mich isses auch nix, aber für Leute die die jede .pas und .mp3 Datei aufm Desktop haben (solls geben ;)) ist das genau das Richtige :mrgreen:

[toms]

Und dann druekt man F5 und alle Icons sind weg...

[hanselmansel]

Stimmt, ich kenn' da so einige, die den Desktop als globales Ablagefach benutzen...
Wenn du zu viel Freizeit haben solltest, kannst du das Programm ja so umschreiben, dass es den desktop in verschiedene Felder unterteilt, sodass man trotz Listview die thematisch zusammenhängenden Sachen gruppieren kann!

[toms]

Zitat:

Und dann druekt man F5 und alle Icons sind weg...

Wie lautet dann der reverse Code?

[Aenogym]

fett :mrgreen:
jetzt hab ich ein kleines unscheinbares programm im autostart, dass das regelmäßig für mich erledigt - endlich wieder platz auf dem desktop! :)

danke :)

[gmarts]

Zitat:

Zitat von hanselmansel

Stimmt, ich kenn' da so einige, die den Desktop als globales Ablagefach benutzen...
Wenn du zu viel Freizeit haben solltest, kannst du das Programm ja so umschreiben, dass es den desktop in verschiedene Felder unterteilt, sodass man trotz Listview die thematisch zusammenhängenden Sachen gruppieren kann!

Das werde ich mir mal vornehmen. Schließlich ist der Desktop ja als "Schreibtisch" konzipiert...und bei einigen liegt da ziemlich viel rum.
Aber das allertollste ist, daß die Dateinamen in voller Länge dargestellt werden! :bounce1:
Ein bisschen stört mich bei der jetzigen Variante, daß es keinen Header gibt und das Zeit, Typ, etc nicht angezeigt werden.

[FriFra]

Wann gibts da was fertiges unter Freeware? :roll:

Dann kann ich endlich mal wieder an alles dran, was auf dem Desktop liegt :angel2:
http://www.frifra.de/Temp/vollerdesktop.jpg

[Jelly]

Zitat:

Zitat von FriFra

Dann kann ich endlich mal wieder an alles dran, was auf dem Desktop liegt :angel2:
http://www.frifra.de/Temp/vollerdesktop.jpg

Wieso... Kommst doch so an alles ran, und hast immer noch ne Zeile freier Platz :mrgreen:

[FriFra]

Zitat:

Zitat von Jelly

Wieso... Kommst doch so an alles ran, und hast immer noch ne Zeile freier Platz :mrgreen:

Da irrst Du Dich! In die "freihe" Zeile passt kein Icon, deshalb ist noch etwa 2 mal sovile rechts daneben... da komm ich so ohne weiteres nicht mehr dran :?

[Jelly]

Da hilft nur noch eins: ein 49 Zoll Monitor :-)

[DGL-luke]

@Frifra:

%Systemroot%/Dokumente und Einstellungen/SpecUser/Desktop

so auf jeden fall ;)

[Daniel G]

Hmm... Jetzt müsste man die Positionen in dem Listview noch irgendwie speichern könnte. Dann wäre das wunderbar für ein Programm im Autostart.

[DGL-luke]

Sollte die Sortierung da nicht erhalten bleiben?

[Rastaman]

Zitat:

Zitat von DGL-luke

Sollte die Sortierung da nicht erhalten bleiben?

Nein. Von Anfang an ist ja immer normale Ansicht, und wenn du dann umstellst ist es automatisch sortiert.

[Aenogym]

Zitat:

Zitat von Daniel G

Hmm... Jetzt müsste man die Positionen in dem Listview noch irgendwie speichern könnte. Dann wäre das wunderbar für ein Programm im Autostart.

wenn mir jemand sagt, wie das geht :mrgreen: bei mir läuft der code seit gestern in form eines autostart-programms^^

[gmarts]

Zitat:

Zitat von Aenogym

wenn mir jemand sagt, wie das geht :mrgreen: bei mir läuft der code seit gestern in form eines autostart-programms^^

Na da wirst du doch hier bestimmt fündig oder guck mal auf der HP von Luckie vorbei -> LuckiesDIPS

[mschaefer]

Moin,

Ihr könntet die Icons auch einfach kleiner Machen (20*20Bit) und den Zeilen/Reihenabstand heruntersetzen.
Das bringt dann den 49´Zöller wieder auf 19´Zoll. Die Idee das Thematisch anzuordnen und vielleicht mit Sicheheitskopie, das klingt allerdings gut!

Grüße // Martin

[toms]

Hier noch das fertig kompliertes Projekt (8kb)...

[FriFra]

Jetzt sehe ich wieder alles :???:
http://www.frifra.de/Temp/vollerdesktop.jpg -> http://www.frifra.de/Temp/vollerdesktop2.jpg
Aber so viel Platz hats auch wieder nicht gebracht :roll: :oops: ...

[Daniel G]

Zitat:

Zitat von Aenogym

Zitat:

Zitat von Daniel G

Hmm... Jetzt müsste man die Positionen in dem Listview noch irgendwie speichern könnte. Dann wäre das wunderbar für ein Programm im Autostart.

wenn mir jemand sagt, wie das geht :mrgreen: bei mir läuft der code seit gestern in form eines autostart-programms^^

Wenn ich wüsste, wie es geht, hätte ich es doch sebst gemacht, du Nase. :mrgreen:

=> Jepp, auch ich habe den Code in ein Non - VCL Gerüst gepackt un in den Autostart gelegt.

[faux]

Kommen da garkeine Scrollbalken? *gg*

[FriFra]

Zitat:

Zitat von faux

Kommen da garkeine Scrollbalken? *gg*

Nein, es kommen keine Scrollbalken... aber vielleicht kann man die ja auch irgendwie aktivieren :roll: :gruebel: