VPF::ShellExecute не открывает ссылку - Форум программистов

klyaksa

Дата 25.9.2010, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

Под 7 все хорошо, по ХР не открывается ссылка по коду:

Код


ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);

В чем проблема? В старой версии, вроде, работало. Сейчас дельфи 2009.

xkor

Дата 25.9.2010, 16:08 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

Репутация: 1
Всего: 4

klyaksa, а вы учли что начиная с дельфи 2009 PChar = PWideChar, а предыдущих версиях было PAnsiChar?

Proxin

Дата 25.9.2010, 18:46 (ссылка)

(голосов:2)

Загрузка ...

Опытный

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

Репутация: 1
Всего: 3

slink должен обязательно начинаться с http://

klyaksa

Дата 25.9.2010, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

Вот мой (проблемный) код:

Код


var
  sLink: String;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);
end;

Это сообщение отредактировал(а) klyaksa - 25.9.2010, 20:15

Akella

Дата 25.9.2010, 22:29 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

klyaksa, а почему второй параметр nil smile

, нужно указать действие: open, print, explore и т.д.
В твоём случае это open

и в третьем параметре можно заменить pChar на PAnsiChar

klyaksa, если тебе лень открыть справку или MSDN, то вот, читай, лентяй:

и обрати внимание на Remarks, там есть пример

Код


ShellExecute Function

--------------------------------------------------------------------------------

Performs an operation on a specified file.

Syntax

HINSTANCE ShellExecute(          HWND hwnd,
    LPCTSTR lpOperation,
    LPCTSTR lpFile,
    LPCTSTR lpParameters,
    LPCTSTR lpDirectory,
    INT nShowCmd
);
Parameters

hwnd
[in] Handle to the owner window used for displaying a user interface (UI) or error messages. This value can be NULL if the operation is not associated with a window.
lpOperation
[in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular file or folder. Generally, the actions available from an object's shortcut menu are available verbs. The following verbs are commonly used.
edit
Launches an editor and opens the document for editing. If lpFile is not a document file, the function will fail.
explore
Explores the folder specified by lpFile.
find
Initiates a search starting from the specified directory.
open
Opens the file specified by the lpFile parameter. The file can be an executable file, a document file, or a folder.
print
Prints the document file specified by lpFile. If lpFile is not a document file, the function will fail.
NULL
For systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.

For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

lpFile
[in] Pointer to a null-terminated string that specifies the file or object on which to execute the specified verb. To specify a Shell namespace object, pass the fully qualified parse name. Note that not all verbs are supported on all objects. For example, not all document types support the "print" verb.
lpParameters
[in] If the lpFile parameter specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb that is to be invoked. If lpFile specifies a document file, lpParameters should be NULL.
lpDirectory
[in] Pointer to a null-terminated string that specifies the default directory.
nShowCmd
[in] Flags that specify how an application is to be displayed when it is opened. If lpFile specifies a document file, the flag is simply passed to the associated application. It is up to the application to decide how to handle it.
SW_HIDE
Hides the window and activates another window.
SW_MAXIMIZE
Maximizes the specified window.
SW_MINIMIZE
Minimizes the specified window and activates the next top-level window in the z-order.
SW_RESTORE
Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
Return Value

Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise. The following table lists the error values. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. The only thing that can be done with the returned HINSTANCE is to cast it to an int and compare it with the value 32 or one of the error codes below.

0 The operating system is out of memory or resources. 
ERROR_FILE_NOT_FOUND The specified file was not found. 
ERROR_PATH_NOT_FOUND The specified path was not found. 
ERROR_BAD_FORMAT The .exe file is invalid (non-Microsoft Win32 .exe or error in .exe image). 
SE_ERR_ACCESSDENIED The operating system denied access to the specified file. 
SE_ERR_ASSOCINCOMPLETE The file name association is incomplete or invalid. 
SE_ERR_DDEBUSY The Dynamic Data Exchange (DDE) transaction could not be completed because other DDE transactions were being processed. 
SE_ERR_DDEFAIL The DDE transaction failed. 
SE_ERR_DDETIMEOUT The DDE transaction could not be completed because the request timed out. 
SE_ERR_DLLNOTFOUND The specified DLL was not found. 
SE_ERR_FNF The specified file was not found. 
SE_ERR_NOASSOC There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable. 
SE_ERR_OOM There was not enough memory to complete the operation. 
SE_ERR_PNF The specified path was not found. 
SE_ERR_SHARE A sharing violation occurred. 


Remarks

This method allows you to execute any commands in a folder's shortcut menu or stored in the registry.

To open a folder, use either of the following calls: 

ShellExecute(handle, NULL, <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

or 

ShellExecute(handle, "open", <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

To explore a folder, use: 

ShellExecute(handle, "explore", <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

To launch the Shell's Find utility for a directory, use: 

ShellExecute(handle, "find", <fully_qualified_path_to_folder>, NULL, NULL, 0);

If lpOperation is NULL, the function opens the file specified by lpFile. If lpOperation is "open" or "explore", the function attempts to open or explore the folder.

To obtain information about the application that is launched as a result of calling ShellExecute, use ShellExecuteEx.

Note  The Launch folder windows in a separate process setting in Folder Options affects ShellExecute. If that option is disabled (the default setting), ShellExecute uses an open Explorer window rather than launch a new one. If no Explorer window is open, ShellExecute launches a new one.
Windows 95/98/Me: ShellExecute is supported by the Microsoft Layer for Unicode. To use this, you must add certain files to your application, as outlined in Microsoft Layer for Unicode on Windows Me/98/95 Systems.

Function Information

Minimum DLL Version shell32.dll version 3.51 or later 
Custom Implementation No 
Header shellapi.h 
Import library shell32.lib 
Minimum operating systems Windows NT 3.1, Windows 95 
Unicode Implemented as ANSI and Unicode versions.  

See Also

Это сообщение отредактировал(а) Akella - 25.9.2010, 22:37

CodeMonkey

Дата 25.9.2010, 22:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 38
Всего: 89

Цитата(Akella @ 25.9.2010, 23:29

)

а почему второй параметр nil

Сам же и указал:

Цитата

NULL
For systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.
For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

Пуск/выполнить, ввести ссылку - будет работать? Возможно, проблема просто в нарушенных ассоциациях.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

xkor

Дата 26.9.2010, 04:15 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

Репутация: 1
Всего: 4

Цитата(Akella @ 25.9.2010, 22:29

)

и в третьем параметре можно заменить pChar на PAnsiChar

я бы дополнил:

Код


var
  sLink: String;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, PAnsiChar(AnsiString(sLink)), nil, nil, SW_SHOWNORMAL);
end;

а то компилятор не верно поймёт.., ну или сразу в AnsiString хранить:

Код


var
  sLink: AnsiString;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, PAnsiChar(sLink), nil, nil, SW_SHOWNORMAL);
end;

Это сообщение отредактировал(а) xkor - 26.9.2010, 04:16

Akella

Дата 26.9.2010, 10:06 (ссылка)

(голосов:5)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Цитата(CodeMonkey @ 25.9.2010, 22:46

)

Сам же и указал:

Цитата
NULL

Null и Nil разные вещи

0x0027

Дата 26.9.2010, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: -1

Цитата(Akella @ 26.9.2010, 10:06

)

Null и Nil разные вещи

как минимум интересное утверждение. можно пояснить?

Akella

Дата 26.9.2010, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Можно. Только ответь вначале на пару вопросов.
А клавиша F1 не выламана? Или может тебя в гуле забанили? Или мы специально для тебя должны сделать поиск и привести здесь цитаты?

0x0027

Дата 26.9.2010, 20:14 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

Репутация: нет
Всего: -1

я оценил ваш искрометный юмор.
предположим, что со мной случилось все вышеперечисленное.
теперь я могу узнать разницу?

Добавлено через 3 минуты и 43 секунды
зы если ты хочешь провести аналогию между NULL из мсдн с делфевской функцией Null, то это как минимум.. эм.. неразумно =)

Akella

Дата 26.9.2010, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Цитата(0x0027 @ 26.9.2010, 20:14

)

я оценил ваш искрометный юмор.

никакого юмора smile

, тем более искромётного ;)
Просто я уверен, что ответ уже есть, не в справке, так в гугле. А некоторые ленятся искать.

Добавлено через 3 минуты и 59 секунд
Если кратко, что Nil — это для указателей, а Null — для переменных вариантного типа.

Добавлено через 8 минут и 29 секунд
ms-help://borland.bds5/devcommon/pointertypes_xml.html

Цитата

The reserved word nil is a special constant that can be assigned to any pointer. When nil is assigned to a pointer, the pointer doesn't reference anything.

Akella

Дата 26.9.2010, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

ms-help://borland.bds5/delphivclwin32/Variants_Null.html

Цитата

Note: The Null variant returned by the Null function is different from the nil constant in Delphi code and the NULL macro in C++ code. Neither nil nor NULL is a variant. The nil constant is an object reference that does not refer to any actual object. The NULL macro is a pointer that does not refer to any actual object or value.

Хватит?

БелАмор

Дата 26.9.2010, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 5
Всего: 17

Цитата(Akella @ 26.9.2010, 21:05

)

Если кратко, что Nil — это для указателей, а Null — для переменных вариантного типа

Это в Delphi...
А в C/C++ NULL - это нулевой указатель, т.е. то-же самое, что nil в Delphi...
Внимание, вопрос: в MSDN подразумевается дельфийский Null или сишный NULL?

Akella

Дата 26.9.2010, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Ну товарищи дорогие smile

, мы в разделе Delphi или C++?

Это сообщение отредактировал(а) Akella - 26.9.2010, 21:38

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »