Сочетание клавиш.

[Vaigard]

В общем, проблема такая. Требуется сделать скрин, открыть Paint, вставить туда скрин. Для этого я пользовался двумя вариантами.
1.

var
h:hwnd;
begin
keybd_event(vk_snapshot,0,0,0);
keybd_event(vk_snapshot,0,keyeventf_keyup,0);
shellexecute(handle,0,'C:\WINDOWS2\system32\mspaint.exe',0,0,
sw_show);

h:=findwindow(nil,'Безымянный - Paint');
postmessage(h,wm_keydown,vk_control,1);

PostMessage(h, Wm_KeyDown, Vk_control, 1);
PostMessage(h, Wm_Keydown, byte('V'), 1);
PostMessage(h, Wm_Keyup, VK_control, 1);
PostMessage(h, Wm_Keyup, byte('V'), 1);

end;

2.

var
h:hwnd;
begin
keybd_event(vk_snapshot,0,0,0);
keybd_event(vk_snapshot,0,keyeventf_keyup,0);
shellexecute(handle,0,'C:\WINDOWS2\system32\mspaint.exe',0,0,
sw_show);

h:=findwindow(nil,'Безымянный - Paint');
setforegroundwindow(h);

keybd_event(vk_control,0,0,0);
keybd_event(byte('V'),0,0,0);
keybd_event(vk_control,0,keyeventf_keyup,0);
keybd_event(byte('V'),0,keyeventf_keyup,0);

end;

Скрин снимается, Paint открывает, но не вставляется. Скрин в буфере обмена. В первом случае Paint деляется активным, но не более. На одиночные нажатия клавиш реагирует, а такое сочетание клавиш не читает. В чем дело? Тему для подобного сочетания не нашел. Заранее спасибо

[Sibedir]

Вариант №2. После ShellExecute поставь

  Sleep (1000);

[Vaigard]

То есть не сразу реагирует? Надо попробовать.

[Stilet]

А может стоит сделать так:http://www.programmersforum.ru/showthread.php?t=10992
А потом просто через shellexecute заставить паинт открыть файл скриншота?

[Vaigard]

Мне надо через имитацию сочетания клавиш) Кстати, про Sleep. Он открывает скрин свежезапущенного Пэйнта, а если через waitforsingleobject, то случайным образом либо скрин Пэйнта, либо ничего. 2 Stilet. А как заставить Пэйнт открыть файл? Что - то в shellexecute()?

[Stilet]

Да там параметром можно попробовать указать файл. Посмотри примеры на форуме, были уже темы про эту функцию.

[wm_leviathan]

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

А как заставить Пэйнт открыть файл? Что - то в shellexecute()?

не shell'ом вот так лучше

Winexec('mspaint c:\image.bmp', SW_SHOW);

[XeruH]

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

не shell'ом вот так лучше

Winexec('mspaint c:\image.bmp', SW_SHOW);

Winexec - устаревшая функция. Уж лучше использовать CreateProcess, хотя в данном примере и ShellExecute подойдет

[Vaigard]

Ага, спасибо, попробую)

[wm_leviathan]

устаревший согласен однако работает в ХР вполне норм.
или через шел

ShellExecute(Handle, nil, 'mspaint', 'c:\image.bmp', nil, SW_SHOW);