Как правильно подставить значение из edit1.text?

[fed@n]

Добрый день! Пытаюсь создать ярлык на рабочем столе.
Убил день на то, чтобы разобраться как указать путь из edit1.text? но так и не получилось. Подскажите как это можно правильно сделать? Спасибо за помощь!
Вот кусок кода:


procedure MakeNotepad;
const
// NOTE: Assumed location for Notepad:
AppName = 'c:\windows\notepad.exe'; <-- как правильно подставить
сюда значение из edit1.text????

Необходимо чтобы путь из edit1.text подставлялся вместо 'c:\windows\notepad.exe';

delphi ругается на чем свет стоит.

[artemavd]

Application = Edit1.Text;

Что за вопрос-издевка я не понял?

[phomm]

На всякий случай

:=

[Stilet]

delphi ругается на чем свет стоит.

Ну и на чем свет стоит?

[fed@n]

вот код самой процедуры:

procedure MakeNotepad;
const
  // NOTE: Assumed location for Notepad:
  AppName ='C:\windows\notepad.exe');
var
  SL: IShellLink;
  PF: IPersistFile;
  LnkName: WideString;
   Data: string;
 w:BOOL;

begin
  OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
    IShellLink, SL));
  { IShellLink implementers are required to implement IPersistFile }
  PF := SL as IPersistFile;
  OleCheck(SL.SetPath(PChar(AppName))); // set link path to proper file
  { create a path location and filename for link file }
  LnkName := GetFolderLocation('Desktop') + '\' +
    ChangeFileExt(ExtractFileName(AppName), '.lnk');
  PF.Save(PWideChar(LnkName), True); // save link file
end;

Проблема заключается в том, что в строчке
AppName ='C:\windows\notepad.exe');
у меня не получается изменить путь к файлу. Необходимо чтобы сам путь брался из edit1.text, а название приложения добавлялось автоматически.
Например, вот так: AppName =edit1.text + 'notepad.exe'); Только так выдает ошибку((

[fed@n]

Все, разобрался! всем спасибо за помощь!


Вот правильное решение:

procedure MakeNotepad;
const
// NOTE: Assumed location for Notepad:
AppName ='notepad.exe';
var
SL: IShellLink;
PF: IPersistFile;
LnkName: WideString;
Data: string;
w:BOOL;

begin
OleCheck(CoCreateInstance(CLSID_She llLink, nil, CLSCTX_INPROC_SERVER,
IShellLink, SL));
{ IShellLink implementers are required to implement IPersistFile }
PF := SL as IPersistFile;
OleCheck(SL.SetPath(PChar(Form1.Edit1.text+AppName)) ); // set link path to proper file
{ create a path location and filename for link file }
LnkName := GetFolderLocation('Desktop') + '\' +
ChangeFileExt(ExtractFileName(Form1.Edit1.text+AppNa me), '.lnk');
PF.Save(PWideChar(LnkName), True); // save link file
end;

Пользуйтесь! Тема закрыта!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[vovk]

AppName ='notepad.exe';
.......
......
.........

ChangeFileExt(ExtractFileName(Form1.Edit1.text+AppName), '.lnk');

вот это место мне особенно понравилось)