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

← →
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]

← →
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 прекрасно работает. Всем спасибо:))

Как запустить диалог Найти похожие ветки