바탕화면에 아이콘 생성을 작성하였습니다.

그러나 모든곳이 정상적으로 처리가 되었으나

그중에 하나가 제대로 작동을 하지 않습니다.

그것은 단축아이콘에서 대상에서 앞에 한자리가 space로

처리 되어서 space를 지우니 제대로 작동합니다.

그래서 고수님들에게 소스를 공개합니다.

잘못된 것이 있으면 지적을 해주시기 바랍니다.



uses 절에 ShlObj, ActiveX, ComObj, Registry;



procedure TForm1.FormCreate(Sender: TObject);

var

MyObject : IUnknown;

MySLink : IShellLink;

MyPFile : IPersistFile;

Directory : String;

WFileName : WideString;

MyReg : TRegIniFile;

begin

MyObject := CreateComObject(CLSID_ShellLink);

MySLink := MyObject as IShellLink;

MyPFile := MyObject as IPersistFile;



with MySLink do begin

SetArguments('C:nomuLogOnNomu.exe');

SetPath('LogOnNomu.exe');

SetWorkingDirectory('c:nomu');

end;

MyReg :=

TRegIniFile.Create('SoftwareMicroSoftWindowsCurrentVersionExplorer');



Directory := MyReg.ReadString('Shell Folders','Desktop','');



WFileName := Directory+'LogOnNomu.lnk';

MyPFile.Save(PWChar(WFileName),False);

MyReg.Free;

end;

조언을 부탁합니다.