One solution was found.
---
function GetDefView:HWND;
var
Hdef:HWND;
begin
Hdef := FindWindow('Progman', nil);
result := FindWindowEx(Hdef,0,'SHELLDLL_DefView',nil);
end;
function GetDeskHandle:HWND;
begin
result := FindWindowEx(GetDefView,0,'SysListView32',nil);
end;
----...
The column was inserted.
with LV_COLUMN do
begin
mask:=LVCF_FMT or LVCF_TEXT or LVCF_SUBITEM;
fmt:=LVCFMT_LEFT;
pszText:='Name';
isubitem:=0;
end;
SendMessage(hdesktop,LVM_INSERTCOLUMN,0,Longint(@LV_COLUMN));
with LV_COLUMN do
begin...
Hello.
If DLL is made and a desktop is hooked, the code written by me will operate by Win9x and WinNT4.
Furthermore, the desktop of Windows2000&WindowsMe can be changed into "LVS_LIST" and "LVS_SMALLICON.
Hi.
I want to do desktop to "LVS_REPORT".
However, the icon of desktop disappears in Windows2000&WindowsMe.
---
oldstyle:=GetWindowLong(hdesktop,GWL_STYLE);
SetWindowLong(hdesktop,GWL_STYLE, oldstyle and(not LVS_TYPEMASK) and(not LVS_TYPESTYLEMASK) or LVS_REPORT);
---
Please teach the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.