Link unter Delphi erstellen für Autostart

[Haike Zeh]

Hallo ...,

mittels eines unter Delphi erstellten Install-Programms möchte ich mein Programm nicht nur installieren sondern gleichzeitig im Autostart starten können.
Wie kann ich eine *.LNK-Datei in Delphi erstellen?
Ich hoffe Ihr könnt mir helfen.

Danke im voraus

Haike Zeh

[Uli Becker]

<pre>
uses ShlObj, ComObj,ActiveX;

{$R *.dfm}

procedure TForm1.AutostartLinkErstellen(pfad,parameter,linkn ame : string);
var
aObject : IUnknown;
aSLink : IShellLink;
aPFile : IPersistFile;
sDirectory : String;
wsFileName : WideString;
szWinDir : array[0..29] of Char;
pIIL : PItemIDList;
szPath : array[0..MAX_PATH] of Char;
aMalloc : IMalloc;
begin
FillChar(szWinDir, SizeOf(szWinDir), #0);
GetWindowsDirectory(szWinDir, SizeOf(szWinDir));
aObject := CreateComObject(CLSID_ShellLink);
aSLink := aObject as IShellLink;
aPFile := aObject as IPersistFile;
with aSLink do
begin
SetPath(PChar(pfad));
SetArguments(PChar(parameter));
SetWorkingDirectory(szWinDir);
end;
OleCheck(SHGetSpecialFolderLocation(0, CSIDL_STARTUP, pIIL));
SHGetPathFromIDList(pIIL, szPath);
OleCheck(SHGetMalloc(aMalloc));
aMalloc.Free(pIIL);

sDirectory := szPath;
if sDirectory[length(sDirectory)] <> '\' then
sDirectory := sDirectory + '\';
wsFileName := sDirectory + linkname;
aPFile.Save(PWChar(wsFileName), False);
end;
</pre>

Gruß Ul

[Haike Zeh]

Vielen Dank Uli.
Ich werde es ausprobieren.

Gruß Haik

[Haike Zeh]

Vielen Dank Uli.
Ich werde es ausprobieren.

Gruß Haik