掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
デスクトップにショートカットを作る方法は？ (ID：40313)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
できました。Dさんありがとうございました。 結局、次のようなプログラムでデスクトップにショートカットをつくることができました。 function TForm1.CreateShortcut(aShortCutDir:String; //ショートカットを置くフォルダ aFileName :String; //ショートカットの名前 aExePath :String) //ショートカットで実行するファイルフルパス :Boolean; var shellLink: IShellLink; persistFile: IPersistFile; filePath: String; begin Result := True; shellLink := CreateComObject(CLSID_ShellLink) as IShellLink;{CreateComObject} persistFile := shellLink as IPersistFile; shellLink.SetPath(PChar(aExePath));{プログラムパス} filePath := aShortCutDir + '\' + aFileName + '.lnk';{ショートカットファイル名} persistFile.Save(PChar(filePath), True);{保存} end; function Tform1.DesktopFolderGet: String; //デスクトップフォルダのアドレス var lsz_Path: array[0..MAX_PATH] of Char; begin if (SHGetSpecialFolderPath(0,lsz_Path,CSIDL_DESKTOPDIRECTORY,FALSE)) then Result := String(lsz_Path) else Result := ''; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.