[es] - ljudi, jel neko zna da manipulishe sa desktopom

vladislav.benka
Kovacica

Član broj: 67404
Poruke: 7
*.panet.co.yu.

Profil

ljudi, jel neko zna da manipulishe sa desktopom

^{12.09.2005. u 09:44 - pre 226 meseci}

treba mi nachin da iskljuchim Auto Arrange i Align to Grid sa destopa preko moje aplikacije...

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: ljudi, jel neko zna da manipulishe sa desktopom

^{12.09.2005. u 12:42 - pre 226 meseci}

Radio sam neke igrarije sa Desktop-om, vrlo slicno ovome sto zelis. Medjutim, nisam pri svojoj masini, pa nemam kod. Za par dana, ako ne dobijes odgovor, dobices ga od mene.

Radi se sa WinAPI-jem, prvo pronadjes HWND kontrole u kojoj se prikazuju ikonice (moze da se nadje po imenu klase, jedinstveno je) (FindWindow, FindWindowEx), a zatim sa njim manipulises porukama (SendMessage). Moze svasta da se radi.

Odgovor na temu

vladislav.benka
Kovacica

Član broj: 67404
Poruke: 7
*.panet.co.yu.

Profil

Re: ljudi, jel neko zna da manipulishe sa desktopom

^{14.09.2005. u 07:28 - pre 226 meseci}

postavljao sam temu na vishe foruma i niko nije do sada odgovarao na nju...

uglavnom kopkao sam oko HWND samo nisam znao kako treba da glasi SendMessage, ajd poshali mi kod i ako mozes malo da mi pojasnis kako dolazish do tih WinAPI-ja...

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: ljudi, jel neko zna da manipulishe sa desktopom

^{17.09.2005. u 14:05 - pre 226 meseci}

Kod iskljucuje AutoArange (za ukljucivanje umesto and not pises samo and).
Za SnapToGrid nisam nasao nista, mozda ima u novijem SDK-u, ja imam stari,
onaj koji dolazi uz D7.

Do WinApi-ja dolazis ubacivanjem stavke Windows u uses klauzulu.
Dodatno, mozes skinuti JEDI Windows API Library, koja je azurnija
od one koju dobijas uz Delphi. Za info o funkcijama - Windows SDK.

procedure TForm1.Button1Click(Sender: TObject);
var
hendl: HWND;
dwStyle: DWORD;
const
LVS_AUTOARRANGE = $0100;
begin
hendl := FindWindow('Progman', 'Program Manager');
hendl := FindWindowEx(hendl, 0, 'SHELLDLL_DefView', 0);
hendl := FindWindowEx(hendl, 0, 'SysListView32', 0); // OVO JE DESKTOP!!!
dwStyle := GetWindowLong(hendl, GWL_STYLE);
SetWindowLong(hendl, GWL_STYLE, dwStyle and not LVS_AUTOARRANGE);
end;

Bug - Ukljuci Auto Arrange na Desktop-u. Iskljuci ga ovom funkcijom. Auto Arange ostaje stikliran u Meniju. Kada ga iskljucis preko menija, Auto Arange ce se ukljuciti, a meni ce biti nestikliran. Ovakvo "kontra" ponasanje se zadrzava cak i nakon restarta :)))

Odgovor na temu