| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывести собщение

Зм1й ©   (2005-09-11 20:00:00) 

Подскажите пожалуйста, как вывести окно с сообщением после завершения работы моей программы (без vcl)?

---

Brother   (2005-09-12 07:55:00) [1]

Жаль под рукой Delphi нет!

---

Германн   (2005-09-12 02:16:00) [2]

ХМ...

---

Зм1й   (2005-09-11 21:40:00) [3]

Спасибо!

---

Zeqfreed   (2005-09-11 21:19:00) [4]

Зм1й ©   (11.09.05 20:55) [4]
function SetPrivilege(aPrivilegeName : string;
                     aEnabled : boolean ): boolean;
var
 TPPrev,
 TP         : TTokenPrivileges;
 Token      : Cardinal;
 dwRetLen   : DWord;
begin
 Result := False;
 OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES
                  or TOKEN_QUERY, Token);

 TP.PrivilegeCount := 1;
 if( LookupPrivilegeValue(nil, PChar( aPrivilegeName ),
                          TP.Privileges[ 0 ].LUID ) ) then
 begin
   if( aEnabled )then
     TP.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED
   else
     TP.Privileges[0].Attributes:= 0;

   dwRetLen := 0;
   Result := AdjustTokenPrivileges(Token,False,TP,
                                   SizeOf( TPPrev ),
                                   TPPrev,dwRetLen );
 end;

 CloseHandle( Token );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if SetPrivilege('SeShutdownPrivilege', true) then begin
 InitiateSystemShutdown(nil, 'Any message ;)', 360, false, true);
 Application.Terminate;
end;
end;

Такой метод работает. Вам подойдет? ))

---

Джо   (2005-09-11 20:59:00) [5]

>  по завершении приложения и окно пропадает!

маразм крепчал.

---

Джо   (2005-09-11 20:58:00) [6]

> > WriteLn
>  [2] Зм1й ©   (11.09.05 20:20)
> А это здесь причём?

А я должен угадывать - консольное у тебя приложение или нет и что значит по-твоему "вывести сообщение"?

---

Зм1й   (2005-09-11 20:55:00) [7]

Я хочу заставить windows вывести сообщение с моим текстом

---

DrPass   (2005-09-11 20:37:00) [8]

> по завершении приложения и окно пропадает!

Логично. Или ты хочешь написать программу, которая бы работала, когда она не работает? Подкинь-ка лучше эту тему философам. Это покруче чем "может ли Бог создать камень, который сам не сможет поднять?"

---

Зм1й   (2005-09-11 20:20:00) [9]

> Джо ©   (11.09.05 20:08) [1]

Ну и чё - пишу MessageBox(HWND_DESKTOP, 'message', 'message', MB_ICONERROR or MB_OK);- по завершении приложения и окно пропадает!

> WriteLn

А это здесь причём?

---

Джо   (2005-09-11 20:08:00) [10]

WriteLn
MessageBox

---

Наверх