Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ShellExecute в Win7 
:(
    Опции темы
Vetlblya
Дата 9.6.2010, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Программа работала нормально под 32-разрядные XP и  Vista. Попробовал на 64-разрядной семерке и ShellEcexute отказалась работать. не запускается и не ругается. Может кто сталкивался с такой проблемой, какие методы решения возможны?

Запускаю WebMony:
Код

ShellExecute(0, nil, pchar('wmk:payto?Purse='R123456789123'&Amount='100'&Desc='Perevod sredstv'&BringToFront=Y'), '', '', SW_SHOW);

Delphi7

Это сообщение отредактировал(а) Vetlblya - 9.6.2010, 20:57
PM MAIL   Вверх
RomanEEP
Дата 9.6.2010, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: нет
Всего: 8
Какой код ошибки возращает?


--------------------
Электронные экзамены
PM MAIL   Вверх
dvamaster
Дата 10.6.2010, 08:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10
попробуй добавить операцию open

Код

ShellExecute(0, 'open', pchar('wmk:payto?Purse='R123456789123'&Amount='100'&Desc='Perevod sredstv'&BringToFront=Y'), '', '', SW_SHOW);



--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
Vetlblya
Дата 10.6.2010, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(dvamaster @ 10.6.2010,  08:17)
попробуй добавить операцию open

Код

ShellExecute(0, 'open', pchar('wmk:payto?Purse='R123456789123'&Amount='100'&Desc='Perevod sredstv'&BringToFront=Y'), '', '', SW_SHOW);

пробовал с Open. результат тот же.

код на 32-разрядной - 42, на 64-разрядной - 42. 
PM MAIL   Вверх
Vetlblya
Дата 10.6.2010, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
в нескольких источниках встречал подобную ошибку. в некоторых говорили про права доступа, но решения не давали. какие права и как надо назначить программе?


Это сообщение отредактировал(а) Vetlblya - 10.6.2010, 09:01
PM MAIL   Вверх
dvamaster
Дата 10.6.2010, 09:06 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10
Цитата(Vetlblya @  10.6.2010,  11:29 Найти цитируемый пост)
код на 32-разрядной - 42, на 64-разрядной - 42. 


в заголовках нет такой ошибки  smile 

в МСДН нашел такое

http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx

в ремарках

Цитата
Because ShellExecute can delegate execution to Shell extensions (data sources, context menu handlers, verb implementations) that are activated using Component Object Model (COM), COM should be initialized before ShellExecute is called. Some Shell extensions require the COM single-threaded apartment (STA) type. In that case, COM should be initialized as shown here:


Код

CoInitializeEx(nil, COINIT_APARTMENTTHREADED or COINIT_DISABLE_OLE1DDE);



--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
Vetlblya
Дата 10.6.2010, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(dvamaster @  10.6.2010,  09:06 Найти цитируемый пост)
Цитата(Vetlblya @  10.6.2010,  11:29 Найти цитируемый пост)
код на 32-разрядной - 42, на 64-разрядной - 42. 


в заголовках нет такой ошибки  smile 


может потому что это не ошибка, а ответ на нормальное выполнение ShellExecute.
PM MAIL   Вверх
CodeMonkey
Дата 10.6.2010, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата(Vetlblya @  10.6.2010,  10:26 Найти цитируемый пост)
может потому что это не ошибка, а ответ на нормальное выполнение ShellExecute.

Вам только что сказали, что вы не вызвали CoInitialize(Ex).


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Vetlblya
Дата 10.6.2010, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(CodeMonkey @ 10.6.2010,  12:33)
Цитата(Vetlblya @  10.6.2010,  10:26 Найти цитируемый пост)
может потому что это не ошибка, а ответ на нормальное выполнение ShellExecute.

Вам только что сказали, что вы не вызвали CoInitialize(Ex).

как оно вызывается-то? smile 
PM MAIL   Вверх
Vetlblya
Дата 10.6.2010, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
вообще у кого-нибудь ShellExecute на 64х битных работала? если работала на какой делфе писали?
PM MAIL   Вверх
Rennigth
Дата 10.6.2010, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76
Цитата(Vetlblya @  10.6.2010,  13:26 Найти цитируемый пост)
как оно вызывается-то? 

Обычно в Initialization


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Демо
Дата 10.6.2010, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 6
Всего: 50
Цитата(Vetlblya @  10.6.2010,  13:54 Найти цитируемый пост)
вообще у кого-нибудь ShellExecute на 64х битных работала? если работала на какой делфе писали?


У меня прекрасно работает в W7 x64.

Это сообщение отредактировал(а) Демо - 10.6.2010, 14:14


--------------------
    
PM MAIL ICQ Skype   Вверх
Vetlblya
Дата 10.6.2010, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(Rennigth @ 10.6.2010,  14:10)
Цитата(Vetlblya @  10.6.2010,  13:26 Найти цитируемый пост)
как оно вызывается-то? 

Обычно в Initialization

уже голова пухнет, можно более конкретный пример? 
PM MAIL   Вверх
CodeMonkey
Дата 10.6.2010, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата(Vetlblya @  10.6.2010,  15:35 Найти цитируемый пост)
можно более конкретный пример?  

Можно


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Vetlblya
Дата 11.6.2010, 18:14 (ссылка) | (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(CodeMonkey @ 10.6.2010,  17:47)
Цитата(Vetlblya @  10.6.2010,  15:35 Найти цитируемый пост)
можно более конкретный пример?  

Можно

чтоб тебе так в больнице помогали
PM MAIL   Вверх
CodeMonkey
Дата 11.6.2010, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата(Vetlblya @  11.6.2010,  19:14 Найти цитируемый пост)
чтоб тебе так в больнице помогали 

Как вы полагаете вам помогут, если вы не сказали, в чём конкретно у вас затык возник?

Более изжёванный вопрос трудно себе представить. По первой ссылке всё прекрасно расписано.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Akella
Дата 11.6.2010, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: нет
Всего: 329
Цитата(Vetlblya @ 11.6.2010,  18:14)
Цитата(CodeMonkey @ 10.6.2010,  17:47)
Цитата(Vetlblya @  10.6.2010,  15:35 Найти цитируемый пост)
можно более конкретный пример?  

Можно

чтоб тебе так в больнице помогали

чувак, тише будь, а то бан получишь от модераторов за грубость
PM MAIL   Вверх
Vetlblya
Дата 12.6.2010, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.6.2009

Репутация: нет
Всего: нет
Цитата(Akella @  11.6.2010,  20:18 Найти цитируемый пост)
чувак, тише будь, а то бан получишь от модераторов за грубость


Есть люди, которые не живут программированием. Но иногда им приходится написать что-то. Также у них нет знакомых тру-программистов и в английском они не очень сильны. Перед тем как задать вопрос дооолго гуглил и ничего не понял. Мягко говоря задолбался, а проект начинает гореть. И советы пойти в гугл сильно раздражают. Если он не может помочь пусть сидит и не лезет. 

Если у кого имеется конкретный пример использования CoInitialize помогите, пожалуйста!!!
PM MAIL   Вверх
Rennigth
Дата 12.6.2010, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76
Цитата(Vetlblya @  12.6.2010,  09:19 Найти цитируемый пост)
Если у кого имеется конкретный пример использования CoInitialize помогите, пожалуйста!!!

Тебе все уже же сказали...
Есть такая функция CoInitialize(на сколько помню описана она в модуле ActiveX). Вообщем случае вызывать ее можно из любого места приложения, но естественно до того как ее вызов требуется. Самое простое или с конструкторе главной формы(если она у тебя есть) или в секции Initialization. Примерно так:
Код

Unit блаблабла
...

initialization // это пишется в самом конце модуля.
  CoInitialize(0);
  
 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
CodeMonkey
Дата 12.6.2010, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата(Vetlblya @  12.6.2010,  10:19 Найти цитируемый пост)
И советы пойти в гугл сильно раздражают.

Вы может чего не понимаете, но вам тут никто ничего не должен. Вам не приходило в голову, почему люди здесь отвечают за бесплатно? Потому что им интересно отвечать на интересные вопросы. Глупые вопросы - в гугл или за деньги.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Proxin
Дата 13.6.2010, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: нет
Всего: 3
попробуй createprocess. и, к тому же, у shellexecute есть неприятный баг - в некоторых случаях фокус мыши не передаётся полноэкранному приложению.
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0669 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.