Windows에서 바탕 화면에 파일 바로 가기 (* .lnk 파일)를 만드는 방법은 무엇입니까?

function GetDesktopFolder: string; 
var 
    buf: array[0..MAX_PATH] of Char; 
    pidList: PItemIDList; 
begin 
    Result := StrNoDesktopFolderFo; 
    SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, pidList); 
    if (pidList <> nil) then 
    if (SHGetPathFromIDList(pidList, buf)) then 
     Result := buf; 
end; 

procedure p; 
var 
    i: Integer; 
    IObject: IUnknown; 
    ISLink: IShellLink; 
    IPFile: IPersistFile; 
    PIDL: PItemIDList; 
    InFolder: array[0..MAX_PATH] of Char; 
    TargetName: string; 
    LinkName: string; 
begin 
    TargetName := 'c:\folder\exeFile.exe';//hardcoded example 

    IObject := CreateComObject(CLSID_ShellLink) ; 
    ISLink := IObject as IShellLink; 
    IPFile := IObject as IPersistFile; 

    with ISLink do 
    begin 
    SetDescription('what ever'); 
    SetPath(pChar(TargetName)) ; 
    SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ; 
    end; 

    SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ; 
    SHGetPathFromIDList(PIDL, InFolder) ; 

    LinkName := getDesktopFolder+'\'; 
    i := ; 

    LinkName:= linkname+ExtractFileName(TargetName)+'.lnk'; 

    if LinkName = StrNoDesktopFolderFo then 
    Exit; 
    if not FileExists(LinkName) then 
    IPFile.Save(PWChar(LinkName), False); 

    Application.Terminate; 
end;

위의 코드는 델파이의 오류가 많이 발생하고 두 번 실행할 수 없습니다 ...Windows에서 바탕 화면에 파일 바로 가기 (* .lnk 파일)를 만드는 방법은 무엇입니까?

어떤 아이디어가?

btw. 근원은 원래 광산이 아니고, 웹상의 장소에서 집어 들었다.

출처

2011-10-09 none

문제가 아니라하지만 배열해야 0..MAX_PATH-1 내가이 추가 될 때까지 ... 그것은 작동하지 않는 당신이 PWideChar로로 고통을 캐스팅하여 실수를 생각 –

나는 그것을 할 것이다. 특수 폴더 위치를 얻는 바로 가기 (링크)를 만드는이 방법은

uses 
    ShlObj, ComObj, ActiveX; 

function GetDesktopFolder: string; 
var 
    PIDList: PItemIDList; 
    Buffer: array [0..MAX_PATH-1] of Char; 
begin 
    Result := ''; 
    SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, PIDList); 
    if Assigned(PIDList) then 
    if SHGetPathFromIDList(PIDList, Buffer) then 
     Result := Buffer; 
end; 

function CreateDesktopShellLink(const TargetName: string): Boolean; 
var 
    IObject: IUnknown; 
    ISLink: IShellLink; 
    IPFile: IPersistFile; 
    PIDL: PItemIDList; 
    LinkName: string; 
    InFolder: array [0..MAX_PATH-1] of Char; 
begin 
    Result := False; 

    IObject := CreateComObject(CLSID_ShellLink); 
    ISLink := IObject as IShellLink; 
    IPFile := IObject as IPersistFile; 

    with ISLink do 
    begin 
    SetDescription('Description ...'); 
    SetPath(PChar(TargetName)); 
    SetWorkingDirectory(PChar(ExtractFilePath(TargetName))); 
    end; 

    SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL); 
    SHGetPathFromIDList(PIDL, InFolder) ; 

    LinkName := IncludeTrailingBackslash(GetDesktopFolder); 
    LinkName := LinkName + ExtractFileName(TargetName) + '.lnk'; 

    if not FileExists(LinkName) then 
    if IPFile.Save(PWideChar(LinkName), False) = S_OK then 
     Result := True; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    if CreateDesktopShellLink('C:\Folder\ExeFile.exe') then 
    ShowMessage('Link has been created ...'); 
end;

출처

2011-10-09 15:08:39 TLama

: LINKNAME을 : 문자열; WLinkName : widestring; myWideCharPtr : PWideChar; InFolder : Char의 배열 [0..MAX_PATH-1]; 다음으로 WLinkName : = LinkName; myWideCharPtr : = Addr (WLinkName [1]); FileExists (LinkName)이면 IPFile.Save (myWideCharPtr, False) = S_OK이면 결과 : = True; – nagylzs

델파이 7에서는 @nagylzs가 변경되었습니다. – tuxar

기능, 그리고 훨씬 더 많은 100 + 프로 시저 및 함수의 프리웨어 dsiWin32 라이브러리에서 찾을 수 있습니다. http://gp.17slon.com/gp/dsiwin32.htm에서 다운로드하십시오. Primoz Gabrijelcic과 Delphi-SI 커뮤니티 덕분에 사용 가능해졌습니다.

최대

출처

2011-10-10 09:58:00

Windows에서 바탕 화면에 파일 바로 가기 (* .lnk 파일)를 만드는 방법은 무엇입니까?

답변

관련 문제