genveje på skrivebord og i start menuen...

Højreklik på filen og vælg hvor den skal oprette genvej

francke: Prøv lige og se hvilket kategori spørgsmålet er stillet i ! :)

ezke: Prøv og kig på disse eksempler: http://www.eksperten.dk/spm/22400 og http://www.eksperten.dk/spm/65198

Snowball

gør dette:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, registry, ComObj, ActiveX, ShlObj, FileCtrl;

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

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


Procedure PlaceLinkOnDeskTop(FileName : TFileName);
  Function GetDesktopFolder : String;
  Const
    Key = \'\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\\';
  begin
    Result := \'\';
    With TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey(key, FALSE) then
        Result := ReadString(\'Desktop\');
    finally
      Free;
    end;
  end;

var
  SL: IShellLink;
  PF: IPersistFile;
  LnkName: WideString;
begin
  {if not FileExists(FileName) then
    exit;}
  OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, SL)); { IShellLink implementers are required to implement IPersistFile }
  PF := SL as IPersistFile;
  OleCheck(SL.SetPath(PChar(FileName)));  // set link path to proper file
  SL.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  LnkName := GetDesktopFolder + #92 + ChangeFileExt(ExtractFileName(FileName), \'.lnk\');
  PF.Save(PWideChar(LnkName), True);      // save link file
end;

Procedure PlaceLinkInStartMenu(FileName : TFileName);
var
  genvejstartdir : String;
  SL: IShellLink;
  PF: IPersistFile;
  LnkName: WideString;
  reg : Treginifile;
Begin

  reg := Treginifile.Create;
  reg.RootKey :=HKEY_CURRENT_USER;
  genvejstartdir := reg.ReadString(\'Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\', \'Start Menu\', \'c:\\\');
  reg.Free;

  genvejstartdir := genvejstartdir + \'\\Programmer\\\';

  genvejstartdir := genvejstartdir + {Sted det skal ligger under programmer} \'FileName\';

  ForceDirectories(genvejstartdir);

  OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, SL)); { IShellLink implementers are required to implement IPersistFile }
  PF := SL as IPersistFile;
  OleCheck(SL.SetPath(PChar(FileName)));  // set link path to proper file
  SL.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  LnkName := genvejstartdir + #92 + ChangeFileExt(ExtractFileName(FileName), \'.lnk\');
  PF.Save(PWideChar(LnkName), True);      // save link file
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
PlaceLinkOnDeskTop(\'c:\\Bootlog.txt\');
PlaceLinkInStartMenu(\'c:\\Bootlog.txt\');
end;

end.

/ZIRON

Hvor fa\'en skulle jeg vide fra!!Mange spm. blive sat de mærkeligste steder!!

snowball >> det var et godt svar jeg gav i http://www.eksperten.dk/spm/65198 ik, hehe :-)

også borrisholti det andet :-)

/ZIRON

ziron: Det er det sikkert (har ikke selv afprøvet det) men responsen på det lyder da ganske fornuftig :)

Snowball

snowball >> hehe det var også bare lidt for sjov...

/ZIRON

Dem ska du sq ha Ziron :) syns du gir det bedste svar i http://www.eksperten.dk/spm/65198 ! Det virker i hvert fald, hvis man lige sørger for at omdøbe linien \"reg := Treginifile.Create;\" til \"reg := Treginifile.Create(en_aller_anaden_string); :)

ezke >> okay jeg har ikke behøvet at gøre det, men hvis det virker er det jo godt...

/ZIRON

eneste måde jeg ku få det til at virke på... opdagede det rent tilfældigt... men som du siger.. as long as it werkz!