哪位兄弟知道如何在delphi中把一网页或网址设置成活动桌面.

Question

哪位兄弟知道如何在delphi中把一网页或网址设置成活动桌面.

Answer 1

uses
shlobj,comobj
procedure TForm1.Button5Click(Sender: TObject);
var
  ActiveDesk: IActiveDesktop;
  ComponentsOpt: TComponentsOpt;
  tagCOMPONENT : _tagCOMPONENT;
  URL : PWideChar;
begin
  ActiveDesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;  with ActiveDesk do
  begin
    ComponentsOpt.dwSize := SizeOf(ComponentsOpt);
    GetDesktopItemOptions(ComponentsOpt, 0);
    ComponentsOpt.fActiveDesktop := True;
    SetDesktopItemOptions(ComponentsOpt, 0);
    ApplyChanges(AD_APPLY_ALL);
  end;  //shlobj;
  URL := 'http://www.9ig.net';  tagCOMPONENT.
  ActiveDesk.AddUrl(GetDesktopWindow,URL,tagCOMPONENT,0);
  ActiveDesk.ApplyChanges(AD_APPLY_ALL);
end
为何不行啊.