delphi - Davs :) - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #10266 @ 19.10.06 20:13

125

Davs

Jeg har den her kode:

Kode

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShlObj, ActiveX, ComObj, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject:=CreateComObject(CLSID_ShellLink);
SLink:=IObject as IShellLink;
PFile:=IObject as IPersistFile;
with SLink do
begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateLink('programmet...','genvejen...','','');
end;

end.

Den kan oprette en genvej.

Der er bare lige et lille problem . . .

Hvordan kan jeg få den til at lave genvejen, på skrivebordet
ligemeget vilket sprog af windows jeg bruger, og ligemeget vilken bruger jeg er på?

På samme måde kune jeg godt tænke mig at vide det, bare med 'Alle Programmer', istedet for skrivebord....

6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #8254 @ 19.10.06 20:25

280

Brug denne funktion for at hente en speciel system mappe:

Kode

function GetSpecialSystemPath(folder:Integer): string;
var
  shellMalloc: IMalloc;
  ppidl: PItemIdList;
  PerDir: string;
begin
  ppidl := nil;
  try
    if SHGetMalloc(shellMalloc) = NOERROR then
    begin
      SHGetSpecialFolderLocation(Form1.Handle, folder, ppidl);
      SetLength(Result, MAX_PATH);
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then
        raise exception.create('SHGetPathFromIDList failed : invalid pidl');
      SetLength(Result, lStrLen(PChar(Result)));
    end;
  finally
   if ppidl <> nil then
         shellMalloc.free(ppidl);
  end;
end;

og kald de forskellige mapper sådan:

Kode

//Skrivebordet
ShowMessage(GetSpecialSystemPath(CSIDL_DESKTOP));
//Alle programmer
ShowMessage(GetSpecialSystemPath(CSIDL_COMMON_PROGRAMS));

Her er en liste over andre mapper du kan bruge:

Kode

  CSIDL_DESKTOP
  CSIDL_INTERNET
  CSIDL_PROGRAMS
  CSIDL_CONTROLS
  CSIDL_PRINTERS
  CSIDL_PERSONAL
  CSIDL_FAVORITES
  CSIDL_STARTUP
  CSIDL_RECENT
  CSIDL_SENDTO
  CSIDL_BITBUCKET
  CSIDL_STARTMENU
  CSIDL_DESKTOPDIRECTORY
  CSIDL_DRIVES
  CSIDL_NETWORK
  CSIDL_NETHOOD
  CSIDL_FONTS
  CSIDL_TEMPLATES
  CSIDL_COMMON_STARTMENU
  CSIDL_COMMON_PROGRAMS
  CSIDL_COMMON_STARTUP
  CSIDL_COMMON_DESKTOPDIRECTORY
  CSIDL_APPDATA
  CSIDL_PRINTHOOD
  CSIDL_ALTSTARTUP
  CSIDL_COMMON_ALTSTARTUP
  CSIDL_COMMON_FAVORITES
  CSIDL_INTERNET_CACHE
  CSIDL_COOKIES
  CSIDL_HISTORY

Ellers kan du også kigge her:
http://www.swissdelphicenter.ch/torry/showcode.php?id=233

Indlæg senest redigeret d. 19.10.2006 20:35 af Bruger #8254

Bruger #1330 @ 23.03.07 19:39

659

Hey Kasper,
jeg faldt lige over tråden, og håber du kommer til at se det her.
Det er testet i Delphi 7 under XP Pro SP2 og skal virke

Koden for at oprette vores genvej

Kode

function CreateShortcut(LinkPath, LinkName, ApplicationPath, Parameters, Description:string):boolean;
var
  WFileName: WideString;
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
begin

  WFileName:= LinkPath+'\\'+LinkName;
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;

  MySLink.SetPath(PChar(ApplicationPath));
  MySLink.SetArguments(PChar(Parameters));
  MySLink.SetDescription(PChar(Description));
  MySLink.SetWorkingDirectory(PChar(ExtractFilePath(ApplicationPath)));
  MyPFile.Save(PWChar(WFilename),False);
end;

Koden til at finde mappen til desktop, og andet.

Kode

function TMainForm.GetSpecialSystemPath(folder:Integer): string;
var
  shellMalloc: IMalloc;
  ppidl: PItemIdList;
begin
  ppidl := nil;
  try
    if SHGetMalloc(shellMalloc) = NOERROR then
    begin
      SHGetSpecialFolderLocation(Handle, folder, ppidl);
      SetLength(Result, MAX_PATH);
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then
        raise exception.create('SHGetPathFromIDList failed : invalid pidl');
      SetLength(Result, lStrLen(PChar(Result)));
    end;
  finally
   if ppidl <> nil then
         shellMalloc.free(ppidl);
  end;
end;

Eksempel:

Kode

procedure TMainForm.Button1Click(Sender: TObject);
var link:string;
begin
  link:= GetSpecialSystemPath(CSIDL_DESKTOP)+'\\';
 CreateShortcut(link,'Genvej.lnk','c:\\moo.exe','','sejhed!')
end;

Indlæg senest redigeret d. 23.03.2007 19:40 af Bruger #1330