Genvej?

sorry

indsæt denne kode (spørg ikke hvorfor den skal se sådan ud) lige over din button's onclick event, som vist neden for:

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('c:\\windows\\notepad.exe','c:\\MyNotePad.lnk','','');
end;

Du skal blot tilføje ShlObj til din uses liste så burde det compile

http://www.greatis.com/delphicb/tips/lib/others-createlnk.html

Kan ikke engelsk

Har du set min alder i min prof.?

Hmm ()

Får en del fejl:

Sådan ser min skærm ud når,når jeg compiler:

http://www.scextra.frac.dk/udvik.JPG

En der kan finde ud af sådan noget?

Har du testet?

Det vil altså stadig ikke

ah du skal også have activex i uses listen

Er det testet?

Der er én linie tilbage, den ikke kan tage:

Den lyser rødt på

IObject:=CreateComObject(CLSID_ShellLink);

, og den siger "[Pascal Error]Unit1.pas(32): E2003 Undeclared identifier: 'CreateComObject'"