Главная страница
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.061 c
14-1100753467
Megabyte-CeerCop
2004-11-18 07:51
2004.12.12
Зацените кто не видел. Написано на Delphi.


1-1101652741
markers
2004-11-28 17:39
2004.12.12
Крыса и форма


1-1100888593
Kurtevich
2004-11-19 21:23
2004.12.12
Потеря модальности


3-1100087235
MORA
2004-11-10 14:47
2004.12.12
переход на другой сервер БД


9-1092392415
MonoLife
2004-08-13 14:20
2004.12.12
Функция странно работает...