Упп, не много ошибся. Все таки код SkyLine32 работает. Лично проверил. Code: if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;
Code: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin canclose := false; end;
Проверку по флагу можно сделать, если было нажато ALT+F4 тогда флаг False иначе True; Но автору вопроса кажется и надо, что бы процесс никак нельзя было прибить. Это в тип формы: PHP: public Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND; { Public declarations } end; Ниже implementation: PHP: Procedure TForm1.ControlWindow(Var Msg:TMessage); Begin IF (Msg.WParam=SC_MINIMIZE) or (Msg.WParam=SC_CLOSE) then Begin //ничего не делаем End else inherited; End; P.s. Но все же прибить через панель задач можно Что бы и там нельзя было: тогда CanClose:=false; как писали выше.
Есть Вариант типа "свернуть", Поместить в трей, а окно спрятать тогда: СсылкО PHP: Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND; ... Procedure TForm1.ControlWindow(Var Msg:TMessage); Begin IF Msg.WParam=SC_MINIMIZE then Begin MessageBox(0,'Minimized','Мы типа решили свернуть окно',32); ShowWindow(Handle,SW_HIDE); // Скрываем форму // добавляем иконку в трей // Запускаем таймер // ShowWindow(Handle,SW_SHOW); // Показываем форму End else inherited; End;
А читать посты когда научимся? http://forum.antichat.ru/showpost.php?p=2048251&postcount=6026 Если знаешь оба языка, то вариант написать есть. P.s. Если собираешься писать копай в направлении Клиент для IRC . http://forum.antichat.ru/showpost.php?p=894712&postcount=3
Если вообще не представляешь что такое програмирование то надо начать с самых простых вещей Переменые Константы Оператор условия If else Оператор выбора case Циклы For/While/ Массивы. Функции ..... Не зависимо какой язык учить, эти основы есть в любом. Хорошо учится на практики, что прочитал сразу пробывать накодить. (для меня так).
Malor1k, раз задаешь такие вопросы, значит совсем новичек... Бери паскаль и учу, там ничего сложного нет.
Почему не работает эта программа?? PHP: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f: file of real; n,sum,pr:real; begin pr:=1; sum:=0; assignfile(f,'input.txt'); reset(f); while not Eof(f) do begin Read(f, n); sum:=sum+n; pr:=pr*n; end; closefile(f); sum:=abs(sum); pr:=pr*pr; writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr)); readln; end. В конце всегда 0 0 выдает... все перепробовал а если переделать вот так: PHP: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f: textfile; n,sum,pr:real; begin pr:=1; sum:=0; assignfile(f,'input.txt'); reset(f); while not Eof(f) do begin Readln(f, n); sum:=sum+n; pr:=pr*n; end; closefile(f); sum:=abs(sum); pr:=pr*pr; writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr)); readln; end. то все работает! но нужно через типизированные файлы!
1. Зачем цикл, если читается только 1 переменная. В любом случаи он пропускает чтение. 2. в файле скорее всего у тебя 123.32, а не Code: ЧЈp= З^@ Вот текстовый файл содержит: 123.11 Попробуй записать в файл при file of real, потом прочитать, все работает на ура.
ну в общем то я понял, а вот вопросы тогда: 1: как сделать чтобы он читал несколько переменных... readln тут не канает 2: Code: ЧЈp=З^@ что это вообще такое и есть ли возможность вводить нормальные значения? как сделать что бы было несколько переменных?
1. Как записываешь так и читаешь: Записал в файл данные PHP: n:=123.123; Write(f,n); n:=456.456; Write(f,n); Считал с файла данные, конечно лучше N сделать массивом. PHP: Read(f, n); WriteLn(FloatToStr(n)); Read(f, n); WriteLn(FloatToStr(n)); 2. Code: ЧЈp=З^@ - это содержимое файла в real. тоесть (123.11). Нормальный вид, используй textfile. а там уже конвертируй в real
1. Есть мыло (mail.ru). Необходимо зарегить Мой Мир и установить аватарку. 2. Установить приложение в Моем Мире по ссылке. Кто этим занималься - Помогите сформировать запросы в Делфи.