Position der Desktop-Icons sichern und wiederherstellen

Desk­top-Icons füh­ren bei Win­dows manch­mal ein Eigen­le­ben. Wenn sich die Auf­lö­sung ändert, etwa bei der Instal­la­ti­on eines neu­en Gra­fik­trei­bers oder nach dem Start älte­rer Spie­le, ist die Anord­nung der Icons auf dem Win­dows-Desk­top nicht mehr die­sel­be. Mit dem Tool pcwSIcons3 kön­nen Sie die Posi­tio­nen der Icons sichern und wie­der­her­stel­len.

Das Pro­blem beglei­tet Win­dows seit Jah­ren. Und jeder, der  häu­fig die Icons auf dem Desk­top nutzt und hier eine gewis­se Ord­nung bevor­zugt, kennt es wahr­schein­lich. Unter bestimm­ten Bedin­gun­gen wer­den die Icons neu ange­ord­net und die eige­ne Ord­nung ist dahin. Das pas­siert bevor­zugt bei Ände­run­gen der Bild­schirm­auf­lö­sung, etwa bei der Instal­la­ti­on einen neu­en Gra­fik­trei­bers oder bei bestimm­ten Spie­len. Ein wei­te­res Pro­blem sind PCs, an denen in der Regel meh­re­re Moni­to­re hän­gen, aber eben nicht immer. Icons die auf dem zwei­ten Bild­schirm lie­gen, lan­den dann irgend­wo auf dem ers­ten Bild­schirm, wenn nur ein Moni­tor ange­schlos­sen ist. Ähn­li­ches gilt für Note­books, wenn sie hin und wie­der mit höhe­rer Auf­lö­sung oder im Zwei-Bild­schirm-Betrieb lau­fen.

Es wäre daher wün­schens­wert, die Anord­nung der Icons zu spei­chern und bei Bedarf wie­der­her­zu­stel­len. Dafür gibt es bereits eini­ge Tools, die jedoch nicht so fle­xi­bel sind, wie ich mir das wün­sche. Da ich im Besitz eines Edi­tors und eines Com­pi­lers bin, habe ich mich also selbst an Werk gemacht. Der ver­wen­de­te Del­phi-Code ist schon ziem­lich alt. Er stammt ursprüng­lich aus den Zei­ten von Win­dows 95, funk­tio­niert mit eini­gen Anpas­sun­gen aber auch heu­te noch. Ich habe das Pro­gramm mit Embar­ca­de­ro Del­phi XE3 erstellt, es soll­te aber mit eini­gen klei­nen Ände­run­gen auch mit ande­ren Del­phi/F­ree­pas­cal-Umge­bun­gen zu erstel­len sein. Das Pro­gramm ist ursprüng­lich für eine PC-WELT-Arti­kel ent­stan­den und ich habe es jetzt etwas wei­ter­ent­wi­ckelt. Der Quell­code steht unter GPL.

Wie funktionieren die Programme?

Aber zuerst – für Nicht-Pro­gram­mie­rer – zu den Pro­gram­men selbst. Um alle Wün­sche abzu­de­cken, gibt es davon meh­re­re Vari­an­ten. Das ers­te Pro­grämm­chen ist eine Activ­eX-DLL. Die­se lässt sich per Script oder über ein maus­be­dien­ba­res Pro­gramm nut­zen. Das zwei­te Tool kann unab­hän­gig davon auf der Kom­man­do­zei­le oder in einer Batch-Datei ver­wen­det wer­den.

Das ers­te Pro­gramm heißt pcwSIcon3 und lässt sich am ein­fachs­ten per Set­up-Pro­gramm instal­lie­ren. Die­ses sorgt auch für die Regis­trie­rung der Activ­eX-DLL. Das Set­up-Pro­gramm instal­liert – je nach Sys­tem-Archi­tek­tur – die 32- oder die 64-Bit-Ver­si­on der Datei­en. Im Start­me­nü fin­det sich danach das Pro­gramm PC-WELT-pcw­SI­con­s3. Es bie­tet eine ein­fa­che Ober­flä­che. Über die Schalt­flä­che „Posi­tio­nen spei­chern“ las­sen sich die Icon-Posi­tio­nen in einer INI-Datei sichern. Die­se liegt unter %APPDATA%\pcwSIcons3\pcwSIcon3.ini. Das Tool ermit­telt die aktu­el­le Bild­schirm­auf­lö­sung und spei­chert die­se als Lay­out-Namen. Auf die­se Wei­se las­sen sich die Icon-Posi­tio­nen für unter­schied­li­che Auf­lö­sun­gen getrennt spei­chern. In das Ein­ga­be­feld hin­ter „Lay­out-Name“ kann man auch selbst einen Namen ein­tip­pen, bei­spiels­wei­se Mein­De­sk­top. Per Klick auf „Wie­der­her­stel­len“ setzt das Tool die Icons wie­der an die zuvor gespei­cher­te Stel­le.

Für die Auto­ma­ti­sie­rung die­ses Vor­gangs die­nen die bei­den Scrip­te SaveIcons.vbs und RestoreIcons.vbs. Die­se errei­chen Sie über das Win­dows-Start­me­nü oder direkt über den Instal­la­ti­ons­ord­ner, etwa „C:\Program Files\PC-WELT\pcwSIcons3“. Sie kön­nen die VBS-Scrip­te bei Bedarf anpas­sen. Dazu öff­nen Sie die VBS-Datei­en in einem Edi­tor. Sie kön­nen hin­ter „.Ini­Fi­le­Na­me“ den Pfad anpas­sen, in dem die INI-Datei gespei­chert wird und hin­ter „ ‚.Reso­lu­ti­on“ einen eige­nen Namen für das Bild­schirm-Lay­out fest­le­gen. Stan­dard­mä­ßig wird die Bild­schirm­auf­lö­sung als Name ver­wen­det. Für den täg­li­chen Gebrauch soll­ten Sie noch die „MsgBox“-Zeile aus­kom­men­tie­ren, damit kei­ne Mel­dung auf dem Bild­schirm erscheint.

Pro­gramm für die Kom­man­do­zei­le: Wer statt VB-Script lie­ber eine Batch-Datei ver­wen­den möch­te nimmt das Pro­gramm pcwSIcons3_CLI_X64.exe bezie­hungs­wei­se pcwSIcons3_CLI_x86.exe. Es arbei­tet unab­hän­gig von der Activ­eX-DLL, bie­tet aber die glei­chen Funk­tio­nen. Mit der Zei­le

   pcwSIcons3_CLI.exe /i:c:\MyIniFile.ini /s

las­sen sich die Icon-Posi­tio­nen in der Datei „MyIniFile.ini“ spei­chern und mit

   pcwSIcons3_CLI.exe /i:c:\MyIniFile.ini /r

wie­der zurück­si­chern. Über den Para­me­ter „/l“ kön­nen Sie einen benut­zer­de­fi­nier­ten Namen für das Bild­schirm­lay­out ange­ben:

   pcwSIcons3_CLI.exe /i:c:\MyIniFile.ini /s /l:"MyDesktopLyaout"

Der Quellcode

Beim Win­dows-Desk­top han­delt es sich um ein Fens­ter ohne Rah­men, das seit den ers­ten Win­dows „Prog­man“ heißt und den Titel „Pro­gram Mana­ger“ trägt. Die­ses Fens­ter wird kom­plett von einem SysListView32 aus­ge­füllt, das die Desk­top-Icons anzeigt. In einem ers­ten Schritt muss man mit der API-Funk­ti­on Find­Win­dow den Hand­le  die­ses Fens­ters ermit­teln. Danach fin­det man mit Enum­child­Win­dows her­aus, wie die Unter­fens­ter hei­ßen. Eins davon trägt (hof­fent­lich) die Bezeich­nung „Fol­der­View“.  Mit ListView_GetItemCount erhält man dann die Anzahl der Icons auf dem Desk­top. Mit Get­Win­dow­Th­readPro­ces­sId und Open­Pro­cess kann man sich dann Zugang zum­List­View ver­schaf­fen und die ein­zel­nen Ele­men­te mit ListView_GetItemPosition aus­le­sen. Hier der ent­schei­den­de Aus­schnitt aus dem Quell­code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

Procedure IterateIcons(const S:string; TheAction: TIconAction);
  TYPE
  PSharedStuff = ^TSharedStuff;
  TSharedStuff = record
    Buffer : ARRAY[0..MAX_PATH] OF Char;
    LV     : TLVItem;
    Pt     : TPoint;
  end;
  var
  TI: TIniFile;
  hWnd1: HWND;
  dwProcessId: DWORD;
  hProcess: THandle;
  Pointer1: Pointer;
  PLVItem1: PLVITEM;
  PChar1: PChar;
  I: Integer;
  NumberOfBytesRead: SIZE_T;
  NumberOfItems: Integer;
  N: Integer;
  myIconPoint: TPoint;
  PSS:PSharedStuff;
 
Procedure OneIconNT(N:Integer);
begin
//*************** ein Icon lesen **************
with PLVItem1^ do
        begin
          cchTextMax := 256;
          pszText := Pointer(Cardinal(Pointer1) + SizeOf(TLVItem));
          mask := LVIF_TEXT;
          iItem := N;
          iSubItem := 0;
        end;
        WriteProcessMemory(hProcess, Pointer1, PLVItem1,SizeOf(TLVItem) ,NumberOfBytesRead);
        SendMessage(hWnd1, LVM_GETITEM, N, lparam(Pointer1));
        ReadProcessMemory( hProcess, Pointer(Cardinal(Pointer1) +
           SizeOf(TLVItem)), PChar1,DWORD(256),
           NumberOfBytesRead);
 
    ListView_GetItemPosition(hWnd1, N, PPoint(Pointer1)^);
               ReadProcessMemory( hProcess, Pointer1, @myIconPoint,
               DWORD(sizeof(TPoint)), NumberOfBytesRead);
 
Case TheAction Of
  SaveToIni: TI.WriteInteger (S, PChar1, Integer(PointToSmallPoint(myIconPoint)));
  RestFromIni: begin
  I:=TI.ReadInteger(S, PChar1, -1);
If I <>-1 Then
   begin
     myIconPoint:=SmallPointToPoint(TSmallPoint(I));
   end;
   ListView_SetItemPosition(hWnd1,N, myIconPoint.x, myIconPoint.y);
 end;
end;
end;
//************** W95/98  ****************
Procedure OneIcon95(N:Integer);
Begin
WITH PSS^.LV DO
      begin
        mask       := LVIF_TEXT;
        iItem      := N;
        iSubItem   := 0;
        state      := 0;
        statemask  := 0;
        pszText    := @PSS^.Buffer;
        cchTextMax := MAX_PATH;
        iImage     := 0;
      end;
  SendMessage(hWnd1, LVM_GETITEM, 0, Integer(@PSS^.LV));
  SendMessage(hWnd1, LVM_GETITEMPOSITION, N, Integer(@PSS^.pt));
  Case TheAction Of
    SaveToIni: TI.WriteInteger(S, StrPas(Pss^.Buffer),
                  Integer(PointToSmallPoint(PSS^.Pt)));
    RestFromIni: begin
      I:=TI.ReadInteger(S, StrPas(PSS^.Buffer), -1);
      If I <>-1 Then
     begin
     PSS^.Pt:=SmallPointToPoint(TSmallPoint(I));
     end;
     ListView_SetItemPosition(hWnd1,N, PSS.Pt.x, PSS.Pt.y);
   end;
end;
 
end;
 
//************* main *******************
Begin
 TI:=TIniFile.Create(sIniFileName);
 hWnd1 := DesktopListViewHandle;
 if hWnd1 = 0 then exit;
 
 //************** 95/98/ME ***************
 
 if TOSVersion.ToString='' then begin
//
end;
 
If CheckForWin95= VER_PLATFORM_WIN32_WINDOWS Then
begin
  NumberOfItems := ListView_GetItemCount(hWnd1);
  hProcess:=CreateFileMapping( $FFFFFFFF, NIL, PAGE_READWRITE,
  0, SizeOf(TSharedStuff), LVMapName);
  PSS:=MapViewOfFile(hProcess, FILE_MAP_ALL_Access,0,0,0);
   IF TheAction=SaveToIni Then TI.EraseSection(S);
  try
    For N:=0 To NumberOfItems-1 Do OneIcon95(N);
  finally
   TI.Free;
  end;
   CloseHandle(hProcess);
end
//************** NT/2K/Vista/7/8***************
Else If CheckForWin95= VER_PLATFORM_WIN32_NT Then
begin
 GetWindowThreadProcessId(hWnd1, @dwProcessId);
  hProcess := OpenProcess(
    PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE,
    false, dwProcessId);
  if hProcess = 0 then exit;
  Pointer1 := VirtualAllocEx(hProcess, nil, 4096,
                      MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
  PLVItem1 := AllocMem(SizeOf(TLVItem));
  PChar1 := StrAlloc(256);
 
 NumberOfItems := ListView_GetItemCount(hWnd1);
 
 IF TheAction=SaveToIni Then TI.EraseSection(S);
  try
  For N:=0 To NumberOfItems-1 Do OneIconNT(N);
 
  finally
  TI.Free;
  end;
  VirtualFreeEx(hProcess, PLVItem1, 0, MEM_RELEASE);
  CloseHandle(hProcess);
 end
 else
 WriteLn('Diese Plattform wird nicht unterstützt.');
 
end;