BorlandTalk.com

Damitr · Guest

In Win XP you can right click on the desktop, select "Arrange Icons by"
then check or uncheck "Show Desktop Icons". I need to emulate this
function programatically. An old thread gave me a clue about using
SHGetSetSettings - but I've gotten stuck. The code below (attached to
a form with a button called btnToggleIcons) gives a "Types of actual
and formal var parameters must be identical" error. But I've tried
every variation I can think of and all I can succeed in doing is
varying the error messages <S>

Can anyone fix my code for me?

************************************
unit uIcons;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, shlobj;

type
TShellRecord = packed record
fShowAllObjects: bool;
fShowExtensions: bool;
fNoConfirmRecycle: bool;
fShowSysFiles: bool;
fShowCompColor: bool;
fDoubleClickInWebView: bool;
fDesktopHTML: bool;
fWin95Classic: bool;
fDontPrettyPath: bool;
fShowAttribCol: bool;
fMapNetDrvBtn: bool;
fShowInfoTip: bool;
fHideIcons: bool;
fWebView: bool;
fFilter: bool;
fShowSuperHidden: bool;
fNoNetCrawling: bool;
dwWin95Unused: DWORD;
uWin95Unused: UINT;
lParamSort: longint;
iSortDirection: integer;
version: UINT;
uNotUsed: UINT;
fSepProcess: bool;
fStartPanelOn: bool;
fShowStartPage: bool;
fSpareFlags: UINT;
end;

PShellRecord = ^TShellRecord;

TForm1 = class(TForm)
btnToggleIcons: TButton;
procedure btnToggleIconsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
{TShellFlagState is already defined in shlobj.pas}
procedure SHGetSetSettings(var lpss: TShellFlagState; dwMask: DWORD;
bSet:
BOOL); stdcall;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure SHGetSetSettings; external 'shell32.dll' name
'SHGetSetSettings'

procedure TForm1.btnToggleIconsClick(Sender: TObject);
var
psr: PShellRecord;
msk: cardinal;
bset: longbool;
begin
bset:=false;
SHGetSetSettings(psr, msk, bset);
psr^.fHideIcons:= not psr^.fHideIcons;
bset:=true;
SHGetSetSettings(psr,msk,bset);
end;

end.

Riki Wiki · Guest

Hoi Damitr

FYI this newsgroup do not officially exist, that is why there is so few
posts and so few viewers here. The newsgroup you should use is
b.p.d.nativeapi.win32, and you need to post to the Borland news groups
server.

Take a look here:
<http://tinyurl.com/8m5nw>
which links to
<http://delphi.wikicities.com/wiki/Delphi_Newsgroups>