Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: 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 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
1-1101820875
Бар
2004-11-30 16:21
2004.12.12
Мастера, как программно переключать регист рус/лат?


10-1054622130
OlegL
2003-06-03 10:35
2004.12.12
Server DLL & .exe


14-1101310747
Empleado
2004-11-24 18:39
2004.12.12
may be useful


8-1094821384
_Demik_
2004-09-10 17:03
2004.12.12
WebCam Logitech - как записать ролик и получить снимок


14-1100783094
Digitman
2004-11-18 16:04
2004.12.12
Не едут лыжи к вечеру .. не вижу очевидного .. ткните носом ?