Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

Можноли программно открыть страницу в уже открытом IE   Найти похожие ветки 

 
Cerberus   (2007-10-20 21:00) [0]

сабж


 
DVM ©   (2007-10-20 21:02) [1]

можно


 
@!!ex ©   (2007-10-20 21:07) [2]

можно


 
@!!ex ©   (2007-10-20 21:07) [3]

но я не знаю как. :(


 
DVM ©   (2007-10-20 21:08) [4]

как вариант отправить окну WM_DROPFILES с указанным URL. Скорее всего откроет.


 
Cerberus   (2007-10-20 21:08) [5]

В каком направлении двигаться


 
Cerberus   (2007-10-20 21:33) [6]

Собщение отправляю так
PostMessage(FindWindow("IEFrame", nil), WM_DROPFILES, 0, 0);
А как передать URL


 
Cerberus   (2007-10-20 21:54) [7]

function makedrop(const filenames: array of string): thandle;
// creates a hdrop object
// erzeugt ein hdrop object
var
i, size: integer;
data: pdraginfoa;
p: pchar;
begin
// calculate memory size needed
// berechne notwendig speichergro?e
size := sizeof(tdraginfoa) + 1;
for i := 0 to high(filenames) do
inc(size, length(filenames[i]) + 1);
// allocate the memory
// alloziere den speicher
result := globalalloc(ghnd or gmem_share, size);
if result <> 0 then
begin
data := globallock(result);
if data <> nil then
try
// fill up with data
// fulle daten
data.usize := sizeof(tdraginfoa);
p := pchar(@data.grfkeystate) + 4;
data.lpfilelist := p;
// filenames at the at of the header (separated with #0)
// am ende des headers nun die filenamen getrennt mit #0
for i := 0 to high(filenames) do
begin
size := length(filenames[i]);
move(pointer(filenames[i])^, p^, size);
inc(p, size + 1);
end;
finally
globalunlock(result);
end
else
begin
globalfree(result);
result := 0;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
drop := makedrop(["www.appia.ru"]);
if drop <> 0 then postmessage(FindWindow("IEFrame", nil), wm_dropfiles, drop, 0);
globalfree(drop);
end;


Компилится но ничего не происходит



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.042 c
15-1192788410
Сусл
2007-10-19 14:06
2007.11.25
NTFS на внешнем винте


1-1189278923
Efir
2007-09-08 23:15
2007.11.25
Открытие файлов


15-1192786848
de.
2007-10-19 13:40
2007.11.25
Среда разработки


4-1178941237
B0ob
2007-05-12 07:40
2007.11.25
Тень от формы


2-1193888268
Гном1
2007-11-01 06:37
2007.11.25
2 вопроса по БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский