Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.28;
Скачать: CL | DM;

Вниз

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

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



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

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-90969
SecondGray
2002-03-15 05:53
2002.03.28
Delphi 5&Win98 против Delphi5&Win2K


3-90728
Dima Kopachev
2002-02-27 20:37
2002.03.28
Объект


1-90899
SergeyDon
2002-03-18 10:58
2002.03.28
Проблема с DLL и MDI.


3-90791
Sewix
2002-02-28 10:32
2002.03.28
Отчет


14-91059
J_S (A)
2002-02-13 16:19
2002.03.28
ICQ 2001a