Работа с WWW

[mangoost]

Здравствуйте, уважаемые пользователи и администрация форума.

Прошу Вашей помощи в среде разработки Delphi

Возникла передо мной задача написать несколько небольших и достаточно простых по функционалу (простых на первый взгляд, как оно окажется на самом деле - ещё не знаю) программ для работы с некоторыми сайтами. А т.к. программист я ещё только начинающий, то почти сразу же столкнулся с кучей проблем и вопросов. Google, конечно, во многом помог, но на один вопрос я ответа найти так и не смог, поэтому решил обратиться сюда к вам.

Задача с виду элементарная:

Есть окно Edit1 и есть кнопка Button1. Надо сделать так, чтобы при нажатии на кнопку открывался установленный в компьютере по-умолчанию браузер и загружал какую-то фиксированную ссылку и + к ней то, что пользователь введёт в блок Edit.

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

uses ShellApi;
<...тут код, отношения к делу не имеющий...>
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(), 'open', 'http://mysite.com/?pass=' + 'Edit1.Text', '', '', SW_SHOWDEFAULT);
end;

Но не хочет у меня ЭТО работать. Оно и понятно - я в коде ошибся, а вот как правильно сделать - увы, не знаю
Программа успешно компилируется, запускается и даже открывает браузер и переходит по ссылке, но вот только вместо желаемых 12345 в конце ссылки после знака "=" у меня идёт обычный Edit1.Text
Да и еще с PAnsiChar и String бывает конфликт выскакивает, если пытаюсь как-то изменить код или кавычки, например, убрать.

Помогите, пожалуйста, кто знает. С меня огромное спасибо!

[vovk]

ShellExecute(GetDesktopWindow(), 'open', Pchar('http://mysite.com/?pass=' + Edit1.Text), '', '', SW_SHOWDEFAULT);

[mangoost]

Сообщение от vovk

ShellExecute(GetDesktopWindow(), 'open', 'http://mysite.com/?pass=' + Edit1.Text, '', '', SW_SHOWDEFAULT);

Пробовал я так. Пишет, зараза, ошибку:

Incompatible types 'String' and 'PAnsiChar'

А вот с PChar я так и не разобрался - так и не получилось привести строку к одному виду и заставить работать

[vovk]

я там поправил, забыл про типы. Кстати я тоже с Братска))

ShellExecute(GetDesktopWindow(), 'open', Pchar('http://mysite.com/?pass=' + Edit1.Text), '', '', SW_SHOWDEFAULT);

[mangoost]

Сообщение от vovk

я там поправил, забыл про типы. Кстати я тоже с Братска))

ShellExecute(GetDesktopWindow(), 'open', Pchar('http://mysite.com/?pass=' + Edit1.Text), '', '', SW_SHOWDEFAULT);

А вот сейчас работает! Просто огромное спасибо!!!

Если вдруг ещё что-нибудь не будет получаться, я уж тогда в эту тему напишу, чтобы не захламлять лишний раз форум

P.S. в Братске у меня обычно ник SaMaeL везде, но тут он оказался занят

[vovk]

Нет, вот как раз если всё будет в 1 теме, это и будет захламление.
По правилам форума 1 тема = 1 вопрос

[mangoost]

Сообщение от vovk

Нет, вот как раз если всё будет в 1 теме это и будет захламление.
По правилам форума 1 тема = 1 вопрос

Хорошо, буду знать Спасибо ещё раз за информацию и за помощь Плюсик к репутации

[mangoost]

Ну вот, после небольших стараний получилась такая маленькая простенькая программка, немного облегчающая жизнь пользователям известной социальной сети