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




Вниз

Как запустить диалог 


copyr25   (2002-01-26 17:10) [0]

Программно т.е.?



Raptor   (2002-01-26 23:01) [1]

Попробуй ExitWindowsEx.



Olgerd   (2002-01-27 01:14) [2]

Послать WM_Close explorer"у



copyr25   (2002-01-27 01:56) [3]

Ok



copyr25   (2002-01-27 19:06) [4]

Увы, ExitWindowsEx не вызывает диалог "Завершение работы",
она выполняет его пункты меню.
Я додумался лишь до такого прикола :))

procedure TForm1.Button1Click(Sender: TObject);
var
Tray,Child: HWnd;
R:TRect;
C : Array[0..127] of Char;
S : String;
P: TPoint;
begin
Tray:=FindWindow("Shell_TrayWnd",nil);
Child:=GetWindow(Tray,GW_CHILD);
while Child <> 0 do
begin
If GetClassName(Child,C,SizeOf(C)) > 0
then
//////// ищем кнопку "Пуск"
begin
S:=StrPAS(C);
If UpperCase(S)="BUTTON" then
//////// определяем координаты центра кнопки "Пуск"
begin
GetWindowRect(Child,R);
P.x:=R.Left+(R.Right-R.Left) div 2;
P.y:=R.Top+(R.Bottom-R.Top) div 2;
//////// нажимаем на кнопку "Пуск"
SetCursorPos(P.x,P.y);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,P.x,P.y,0,0);
//////// вызываем диалог "Завершение работы..."
SetCursorPos(P.x,P.y-25); // <-- если таскбар лежит внизу
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,P.x,P.y,0,0);
end;
end;
Child := GetWindow(Child,GW_HWNDNEXT);
end;
end;



yus   (2002-01-27 22:56) [5]

Проще explorer послать WM_Close

procedure TForm1.Button1Click(Sender: TObject);
var
Hand:THandle;
begin
hand := FindWindow(nil,"Program Manager");
postmessage(hand ,wm_close,0,0);
end;



B@Nt   (2002-01-29 13:53) [6]

В ФАКЕ есть статья под названием:="Малоизвестные команды для запуска из командной строки".
Там точно есть, что тебе надо.



serg001   (2002-01-29 14:40) [7]

PostMessage(FindWindow(PChar("Shell_TrayWnd"),nil), WM_CLOSE,0,0);



copyr25   (2002-01-29 20:35) [8]

Код yus"a прекрасно работает. Всем спасибо:))




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




Наверх





Память: 0.72 MB
Время: 0.023 c
14-91058          Свой                  2002-02-05 04:05  2002.03.28  
О женском поле


6-91009           KHunter               2002-01-11 08:59  2002.03.28  
тонкий клиент


3-90770           Snake                 2002-03-02 09:17  2002.03.28  
В BDE администраторе на что влияет свойство LOCAL SHARE?


14-91077          MystiX                2002-02-12 21:15  2002.03.28  
Help!!!


7-91094           BFG                   2001-12-26 23:31  2002.03.28  
Мышь