Delphicode zum ausblenden von desktopsymbolen

Hoschi · 15.12.2005

hi,
bei betätigen eines buttons sollen die desktopsymbole ausgeblendet werden.

wie ist da der code für?

Hoschi

TiKu · 15.12.2005

Ich denke mal, Du musst in der Registry den Wert HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideIcons auf 1 setzen und dann dem System sagen, dass sich die Einstellungen geändert haben. Letzteres ist der schwierigere Teil. Versuchs mal mit SendMessage/HWND_BROADCAST/WM_SETTINGCHANGE.

Hoschi · 15.12.2005

Aber wie sag ich das delphi das es für mich den Wert umstellt??

TiKu · 15.12.2005

Wie man mit Delphi in der Registry rumschreibt weiß ich nicht, da ich kein Delphi kann. Google sollte hier aber weiterhelfen.

Hoschi · 15.12.2005

ok danke.

mma64 · 16.12.2005

Ich verwende das Freeware-Tool Iconoid, das es sogar mit Source gibt. Die Source ist zwar in C, aber wenn du Delphi kannst, sollte das nicht so ein grosses Problem sein. Hier müsstest du eigentlich betreffend deiner Fragen fündig werden können. Iconoid lässt nämlich u.a. alle Desktop-Icons verschwinden, wenn die Maus nicht auf dem Desktop ist (mit Timer), die Icon-Beschriftung ist im transparency mode, ausserdem merkt sich Iconoid die Icon-Positionen pro Bildschirm-Auflösung und kann diese per Knopfdruck wiederherstellen...

Das Teil findest du hier: www (dot) sillysot (dot) com (suche sonst nach 'Sillysot Software' resp. 'Iconoid', Links darf ich erst nach 5 Beiträgen angeben :-X

)
(dann Download-Button, dann ganz unten rechts roter 'Archive'-Link, dort iconoid384.zip!) (Aktuelle Version mit Source nämlich z.Zt. nicht korrekt verlinkt)

\²³/ · 17.12.2005

TiKu schrieb:
Wie man mit Delphi in der Registry rumschreibt weiß ich nicht...

Code:

[b]uses[/b] Registry;  [COLOR="Navy"]// Oben am Anfang der Unit einbinden...[/color]

[b]procedure[/b] TForm1.DingsBums;
[b]var[/b] reg: TRegistry;
[b]begin[/b]
  reg := TRegistry.Create;
  reg.RootKey := '[COLOR="Navy"]HKEY_LOCAL_MACHINE[/COLOR]';
  reg.OpenKey('[COLOR="Navy"]HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hi[/color]',true);
  reg.WriteBool('[COLOR="Navy"]deIcons[/color]', true);
[b]end[/b];

Sollte gehen...

Hoschi · 17.12.2005

jo ok danke. un damit passt das dann?
ich werds probieren.

gleich die nächste frage:

wie kann man verhindern das ein programm nicht durch alt + F4 geschlossen werden kann?

*buck*

\²³/ · 21.12.2005

Hoschi schrieb:
...wie kann man verhindern das ein programm nicht durch alt + F4 geschlossen werden kann...

Bei OnCloseQuery der Form einfach

Code:

CanClose := false;

\²³/

Delphicode zum ausblenden von desktopsymbolen

Hoschi

Admiral Special

TiKu

Administrator

Hoschi

Admiral Special

TiKu

Administrator

Hoschi

Admiral Special

mma64

Redshirt

\²³/

Grand Admiral Special

Hoschi

Admiral Special

\²³/

Grand Admiral Special

Ähnliche Themen