Скачать: CL | DM;

Почему не работает ссылка с рабочего стола   Найти похожие ветки 

← →
Гаврилов В.А.   (2004-11-21 19:50) [0]

Уважаемые мастера!
У меня в проге прописано организация ссылки на программу с рабочего стола. НО при загрузке со ссылке выдает ошибку OLE. не понятно по чему или что-то необходмо прописать дополнительно.
С уважением Виталий.

---

← →
Term   (2004-11-21 20:25) [1]

ошибка в 17 строке

---

← →
Гаврилов В.А.   (2004-11-27 18:50) [2]

Помогите найти ошибку в предоставленном ниже коде создания ярлыка на рабочем столе:

procedure TForm1.N16Click(Sender: TObject);
var
SSS: STRING;
defdir: string;
Reg: TRegistry;
begin
defdir := ExtractFileDir(Application.ExeName);
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False);
  sss := Reg.ReadString("Start Menu");
  Reg.CloseKey;
  Reg.Free;
CreateLink(defdir+"\"+ExtractFileName(Application.ExeName), sss+"\Workplace.lnk", "Расчеты", "");
end;

при его использовании возникает ошибка OLE и программа не обнаруживает базу данных.

Заранее спасибо.
С уважением Виталий Гаврилов.

---

← →
ssk ©   (2004-11-27 19:19) [3]

вместо sss := Reg.ReadString("Start Menu");
надо sss := Reg.ReadString("Desktop");

---

← →
ssk ©   (2004-11-27 19:22) [4]

>при его использовании возникает ошибка OLE и программа не обнаруживает базу данных.

скорее всего где-то неверно указаны пути к базе

---

← →
Vitaliygavrilov   (2004-11-30 12:01) [5]

>>скорее всего где-то неверно указаны пути к базе

но ведь программа если загрузить из каталога где она находиться  работает и нет проблем

---

← →
Jay   (2004-11-30 12:05) [6]

В ярлыке возможно не правильно указан рабочий каталог

---

← →
ЮЮ ©   (2004-11-30 12:05) [7]

>но ведь программа если загрузить из каталога где она находиться  работает и нет проблем

а работает ли она, если ярлык создать ручками, но с пустой "рабочей директорией" ?

---

← →
Jay   (2004-11-30 12:07) [8]

Вот нашёл у себя:
procedure CreateLink(app_path, app_arg, lnk_path: string);
var
 IObject: IUnknown;
 SLink: IShellLink;
 PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
 SetPath(PChar(app_path));
 SetWorkingDirectory(PChar(ExtractFilePath(app_path)));
 SetArguments(PChar(app_arg));
end;
PFile.Save(PWChar(WideString(lnk_path)), FALSE);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c