음...
도움이 되셨다니 기쁘네요...
다시 질문하신 것이 ShellLink시 이름이 문제라고 하셨는데...
제가 올려드린 소스에서 ButtonClick부분을 이렇게 바꿔보세요...
procedure TForm1.Button2Click(Sender: TObject);
var
Soo: String;
begin
OpenDialog1.Execute;
Soo:= ExtractFileName(OpenDialog1.FileName);
Soo := 'C:\WINDOWS\바탕 화면\' + '종합정보' + '.lnk';
CreateLink(PChar(OpenDialog1.FileName), PChar(Soo), '');
end;
그럼 원하시는 결과를 얻을 수 있을겁니다...
그럼...
|