Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Вывести собщение   Найти похожие ветки 

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

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


 
Джо ©   (2005-09-11 20:08) [1]

WriteLn
MessageBox


 
Зм1й ©   (2005-09-11 20:20) [2]


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

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

> WriteLn

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


 
DrPass ©   (2005-09-11 20:37) [3]


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

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


 
Зм1й ©   (2005-09-11 20:55) [4]

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


 
Джо ©   (2005-09-11 20:58) [5]


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

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


 
Джо ©   (2005-09-11 20:59) [6]


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

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


 
Zeqfreed ©   (2005-09-11 21:19) [7]

Зм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;


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


 
Зм1й ©   (2005-09-11 21:40) [8]

Спасибо!


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

ХМ...


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

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



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

Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.043 c
3-1125404241
geidarka
2005-08-30 16:17
2005.10.16
Регистро-независимый поиск


2-1126804100
NikNet
2005-09-15 21:08
2005.10.16
Узнать что WindowsXX загружается и выгружается и время работы


1-1127468107
BABY
2005-09-23 13:35
2005.10.16
Как сохранить файлы находяшиеся в ресурсах программы


1-1127427995
sashok
2005-09-23 02:26
2005.10.16
Val(ReadOut.Text, op1, Code);


11-1093953154
New
2004-08-31 15:52
2005.10.16
Компиляция на FPC





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский