[жекаизжека]

Подскажите код
При нажатие на картинку на форме тебя кидает на сайт

[Dux]

В USES необходимо включить модули Registry, Shellapi

Код:

procedure OpenURL(Url: string);
 var
     ts: string;
       begin
          with TRegistry.Create do
             try
               rootkey := HKEY_CLASSES_ROOT;
               OpenKey('\htmlfile\shell\open\command', False);
                 try
                  ts := ReadString('');
                 except
                  ts := '';
                 end;
                 CloseKey;
              finally
              Free;
            end;
        if ts = '' then Exit;
        ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
        ts := Copy(ts, 1, Pos('"', ts) - 1);
       ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
     end;

В обработчике событий OnClick компонента Image1 запишем:

Код:

begin
openurl('http://www.site.ru');
end;

[:S.p.a.m.]

Открыть Wab-страницу в стандартном интернет обозревателе

А не проще выполнить

Код:

Uses ShellAPI;
...
ShellExecute(Handle,'open','http://CodeLab.3dn.ru',nil,nil,SW_Normal);

по нажатию на картинку?

[Dux]

Сообщение от :S.p.a.m.

А не проще выполнить

Мы не ищем легких путей... хотя, вариант интересный

[жекаизжека]

Вот такая ситуация, у меня при всключение компа из автозагрузки загружаеться форма *.exe (программа), постоянно на одном и том же месте, как сделать что бы она оставалась на том месте куда я ее передвинул до перезагрузки компьютера

[Winny]

Ini файлы или записи реестра.
С использованием Ini:
В uses добавь модуль IniFiles. В разделе var (где описана главная форма) пиши:

Код:

Ini:TIniFile

На событие OnCreate главной формы пиши:

Код:

Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini');
Top:=Ini.ReadInteger('FORM','TOP',0);
Left:=Ini.ReadInteger('FORM','LEFT',0);
Height:=Ini.ReadInteger('FORM','HEIGHT',100);
Width:=Ini.ReadInteger('FORM','WIDTH',150);
Ini.Free;

На событие OnCloseQuery главной формы пиши:

Код:

Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini');
Ini.WriteIneger('FORM','TOP',Top);
Ini.WriteIneger('FORM','LEFT',Left);
Ini.WriteIneger('FORM','HEIGHT',Height);
Ini.WriteIneger('FORM','WIDTH',Width);
Ini.Free;