/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 690
от 25.12.2006, 11:05

Вопрос № 67.693

У меня есть программа которая запускает приложение (не мое) после того как приложение отработает его необходимо закрыть. Я сделал как показано в коде, но может быть запущенно несколько копий, как сделать так чтобы закрывалось именно то окно которое запустила моя программа? Заголовок и класс окна не меняются. Приложение: SendMessage(FindWindow(ИмяКласса, ЗаголовокОкна),WM_SYSCOMMAND,SC_CLOSE, 0);

Отправлен: 19.12.2006, 14:56 Вопрос задал: Холманских С.Н. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gladiator Здравствуйте, Холманских С.Н.! Используйте для этого: var si: STARTUPINFO; pi: PROCESS_INFORMATION; ZeroMemory(@si,sizeof(si)); si.cb:=SizeOf(si); si.dwFlags:= STARTF_USESHOWWINDOW; si.wShowWindow:=SW_MINIMIZE; //Запуск процесса CreateProcess( nil,PChar(<Путь к программе>),nil,nil,False,0 ,nil,nil,si,pi) //Завершение процесса PostThreadMessage( pi.dwThreadId, WM_QUIT, 0, 0);

Ответ отправил: Gladiator (статус: 7-ой класс) Ответ отправлен: 19.12.2006, 16:03 Оценка за ответ: 5 Комментарий оценки: ОТЛИЧНО!!!

Вопрос № 67.699

Здравствуйте! Как в MainMenu поставить разделительную полосу между кнопками?

Отправлен: 19.12.2006, 16:21 Вопрос задал: Томша Павел (статус: 3-ий класс) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mexes Здравствуйте, Томша Павел! Поставить Caption у MenuItem, равный '-'. Этот элемент меню превратится в разделительную полосу

Ответ отправил: Mexes (статус: 6-ой класс) Ответ отправлен: 19.12.2006, 16:29 Оценка за ответ: 5

Отвечает: KiberZero Здравствуйте, Томша Павел! Если вы захотите вставить разделительную черту, отделяющую группы подопций, назовите очередной элемент меню именем “-”. Для создания разветвленных меню, т. е. таких, у которых подопций вызывают новые списки подопций, щелкните по подопций и нажмите Ctrl+вправо, где вправо - клавиша смещения курсора вправо. Такого же эффекта можно добиться после щелчка правой кнопкой мыши на подопций и выборе продолжения create Submenu. В названиях опций можно указать символ “&” перед тем символом, который определит клавишу быстрого выбора опции (в терминологии Windows такие клавиши называются акселераторами). Удачи!

Ответ отправил: KiberZero (статус: 6-ой класс) Ответ отправлен: 19.12.2006, 16:46 Оценка за ответ: 5

Отвечает: Nick_K Здравствуйте, Томша Павел! в Mainmenu есть кнопка, передягивая которую на панель меню, получаешь разделитель. Там об этом так и написано: если хочешь разделитель, перетащи кнопку на свое меню.

Ответ отправил: Nick_K (статус: 1-ый класс) Ответ отправлен: 19.12.2006, 17:34

Отвечает: Bouffon Здравствуйте, Томша Павел! вводишь в caption одну черту "-".

Ответ отправил: Bouffon (статус: 1-ый класс) Ответ отправлен: 19.12.2006, 18:03

Отвечает: VaNuk Здравствуйте, Томша Павел! В Caption значение "-"

Ответ отправил: VaNuk (статус: 3-ий класс) Ответ отправлен: 19.12.2006, 19:11

Отвечает: Писарев, Павел, Юрьевич Здравствуйте, Томша Павел! Чтобы ввести разделительную полосу в TMainMenu или TPupolMenu надо в свойства Caption ввести знак минус ('-') и больше нечего.

Ответ отправил: Писарев, Павел, Юрьевич (статус: 2-ой класс) Ответ отправлен: 19.12.2006, 19:51

Вопрос № 67.747

Здравствуйте уважаемые эксперты. С Наступающим Новым Годом. У меня такая проблема: в WinAPI есть функция shellexecute(). В последнем агрументе надо указывать режим запуска, который выбирается из из констант SW_. Но почему то при любой константе приложение запускается как SW_SHOWNORMAL. Что делать? и есть ли в Делфи какая нибудь аналогичная функция, которая может служить альтернативой? Заранее спасибо.

Отправлен: 19.12.2006, 21:10 Вопрос задал: Алескандр (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: KiberZero Здравствуйте, Алескандр! Я советую вам ещё раз внимательно ознакомиться с режимами открытия файлов, возможно, что вы что-то не совсем поняли. ShowCmd Определяет, режим открытия указанного файла. Этот параметр может иметь значения: SW_HIDE Окно делается невидимым и фокус передается другому окну. SW_MINIMIZE Свертывает (минимизирует) указанное окно и активизирует следующее в Z-последовательности окно верхнего уровня в списке системы. SW_MAXIMIZE Развертывает (максимизирует) указанное окно. SW_RESTORE Активизирует и отображает окно. Если это окно свернуто или развернуто, то оно восстанавливается до своих первоначальных размеров и отображается в первоначальной позиции (почти то же самое, что SW_SHOWNORMAL). SW_SHOW Активизирует и отображает окно в его текущей позиции и с текущими размерами. SW_SHOWDEFAULT Только для Windows 95 и NT. Устанавливает состояние в соответствии с флагом SW_ в структуре STARTUPINFO, передаваемой в функцию CreateProcess программой, запускающей приложение. Приложение должно вызывать ShowWindow с этим флагом, чтобы задать начальное состояние своего главного окна. SW_SHOWMAXIMIZED Активизирует и отображает окно в развернутом виде (максимизированном). SW_SHOWMINIMIZED Активизирует и отображает окно в свернутом виде (в виде пиктограммы). SW_SHOWMINNOACTIVE Отображает окно в свернутом виде (в виде пиктограммы). Активным остается то окно, которое было активным до этого. SW_SHOWNA Отображает окно в его текущей позиции и с текущими размерами. Активным остается то окно, которое было активным до этого. SW_SHOWNOACTIVATE Отображает окно в его последней позиции и с последними размерами. Активным остается то окно, которое было активным до этого. SW_SHOWNORMAL Активизирует и отображает окно. Если это окно свернуто или развернуто, то оно восстанавливается до своих первоначальных размеров и отображается в первоначальной позиции (почти то же самое, что SW_RESTORE). Ниже прилагается пример всех режимов - сверяйте,может у вас где-то ошибка. Удачи! Приложение: unit Unit1; interface uses ShellApi,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_HIDE); end; procedure TForm1.Button2Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_MINIMIZE); end; procedure TForm1.Button3Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_MAXIMIZE); end; procedure TForm1.Button4Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_RESTORE); end; procedure TForm1.Button5Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOW); end; procedure TForm1.Button6Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWDEFAULT); end; procedure TForm1.Button7Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWMAXIMIZED); end; procedure TForm1.Button8Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWMINIMIZED); end; procedure TForm1.Button9Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWMINNOACTIVE); end; procedure TForm1.Button10Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWNA); end; procedure TForm1.Button11Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_SHOWNOACTIVATE); end; procedure TForm1.Button12Click(Sender: TObject); var Ar:array[0..254] of char; begin StrPCopy(Ar, 'C:Program FilesWinRARRar.txt'); ShellExecute(Handle,nil,Ar,nil,nil,SW_NORMAL); end; end.

Ответ отправил: KiberZero (статус: 6-ой класс) Ответ отправлен: 19.12.2006, 22:35

Отвечает: PaVeL_Ekt Здравствуйте, Алескандр! Есть аналогичная функция, называеться WinExec WinExec(pchar(FileName), Flag_of_windows_style); но в ней опять-же используются флаги стиля виндовса (SW_), есть ExecProgram: ExecProgram("command-line", display-state) Display-state= Value Meaning 0 Normal 1 Minimized 2 Maximized Help: Windows SDK --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 10-ый класс) Ответ отправлен: 20.12.2006, 07:56

Вопрос № 67.757

Здравствуйте. помогите один вопрос решить. Простое приложение для изменения разрешения монитора: "procedure ChangeDisplayResolution(x, y : word); var dm : TDevMode; begin ZeroMemory(@dm, sizeof(TDevMode)); dm.dmSize := sizeof(TDevMode); dm.dmPelsWidth := x; dm.dmPelsHeight := y; dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; ChangeDisplaySettings(dm, 0); end;" вот я это не пойму для чего: "procedure ChangeDisplayResolution(x, y : word);..." понимаю что "procedure TForm1.Button1Click(Sender: TObject);" это компонент "кнопка"(Button) на форме и действие происходит по нажатию кнопки(событие OnClick)... вот это мне понятно. а "procedure ChangeDisplayResolution" - нет.) хоть убейте - не понимаю. Не писать же: procedure TForm1.Button1Click(Sender: TObject) begin procedure ChangeDisplayResolution... и так далее. ..???..

Отправлен: 19.12.2006, 22:12 Вопрос задал: LIBERATOR (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: KiberZero Здравствуйте, LIBERATOR! Я вам советую почитать теорию по Object Pascal!!! У вас представлена процедура, которую написал сам программист! Процедура — это разновидность подпрограммы. Обычно подпрограмма реализуется как процедура в двух случаях: когда подпрограмма не возвращает в основную программу никаких данных. Например, вычерчивает график в диалоговом окне; когда подпрограмма возвращает в вызвавшую ее программу больше чем одно значение. Например, подпрограмма, которая решает квадратное уравнение, должна вернуть в вызвавшую ее программу два дробных числа — корни уравнения. В языке Object Pascal существуют процедуры,которые описаны и принадлежат компонентам среды(их форму выводит среда автоматически при написании события),а есть процедуры,которые программист пишет сам.После чего,стандартными процедурами компонент вы вызываете эту прцедуру для выполнения!!! Безусловно, сначала процедуру нужно объявить,а потом вызвать,например по событию onClick у кнопки TButton.Во всём остальном процедуры работают одинаково.Только нужно знать,как процедуры объявляются и вызываются! Объявление процедуры В общем виде объявление процедуры выглядит так: procedure Имя (var параметр1: тип1; ... var параметрК: типК) ; var // здесь объявление локальных переменных begin // здесь инструкции процедуры end; где: procedure — зарезервированное слово языка Delphi, обозначающее, что далее следует объявление процедуры; имя — имя процедуры, которое используется для вызова процедуры; параметр K — формальный параметр, переменная, которая используется в инструкциях процедуры. Слово var перед именем параметра не является обязательным. Однако если оно стоит, то это означает, что в инструкции вызова процедуры фактическим параметром обязательно должна быть переменная. Параметры процедуры используются для передачи данных в процедуру, а также для возврата данных из процедуры в вызвавшую ее программу. Вызов процедуры Разработанную процедуру нужно поместить в раздел implementation, перед подпрограммой, которая использует эту процедуру. Инструкция вызова процедуры в общем виде выглядит так: Имя(СписокПараметров); где: П имя — имя вызываемой процедуры; список Параметров — разделенные запятыми фактические параметры. Фактическим параметром, в зависимости от описания формального параметра в объявлении процедуры, может быть переменная, выражение или константа соответствующего типа. Ниже посмотрите приложение,как применяется ваша процедура на практике! Удачи! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure ChangeDisplayResolution(x, y : word); var dm : TDevMode; begin ZeroMemory(@dm, sizeof(TDevMode)); dm.dmSize := sizeof(TDevMode); dm.dmPelsWidth := x; dm.dmPelsHeight := y; dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; ChangeDisplaySettings(dm, 0); end; procedure TForm1.Button1Click(Sender: TObject); var a,b:word; begin ChangeDisplayResolution(a,b); //вызываем процедуру end; end.

Ответ отправил: KiberZero (статус: 6-ой класс) Ответ отправлен: 19.12.2006, 23:04

Отвечает: VaNuk Здравствуйте, LIBERATOR! Это ты вставляешь эту процедуру после вара и {res *dfm} или чето втаком роде а потом создаешь событие баттон клик и там пишешь например ChangeDisplayResolution(1024,768) ;

Ответ отправил: VaNuk (статус: 3-ий класс) Ответ отправлен: 20.12.2006, 16:53

Отвечает: monah Здравствуйте, LIBERATOR! Добавлю и поясню немного, Вы в общем то правы, все можно реализовать в onButton1Click. Но, возникают вопросы: как в нее передать пораметры. И главное, если у Вас 10 кнопкок, а процедуру необходимо вызывать при нажатии любой из них, но с разными параметрами! Тут то и пригодится отдельная процедура или функция. --------- festina lente

Ответ отправил: monah (статус: Студент) Ответ отправлен: 21.12.2006, 11:19

Вопрос № 67.765

Привет всем кто читает вапрос. В меня есть програмка каторая роботает в фоне, ейо в видно только в процесах,и одтуда ейо можна отключить. Мне надо штоби она роботала постояно и в случаи отключения виполнялась перезагрузка системи. Как ето можно воплотить в жизнь??? Я думаю создать ищо одно приложение, и они оба будут контролировать друг друга, в случаи закрития одного второе будет перегружать систему. Но как ето все зделать я незнаю. Помогите пожалоста, зарания благодарен. :-)

Отправлен: 19.12.2006, 23:01 Вопрос задал: Мельник Виктор (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Кулаков Антон Сергеевич /SandroNec Здравствуйте, Мельник Виктор! Почитайте статьи на http://delphi.thedelphi.ru/articles.php?type=hide_process Если его не видно то его и нельзя закрыть :-). Закрываться он будет только в тех случаях когда юзверь выходит из системы или выключает машину. --------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как

Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 4-ый класс) Ответ отправлен: 20.12.2006, 05:32

Отвечает: VaNuk Здравствуйте, Мельник Виктор! Это троян ? ну если правильно то Процесс ! по смотри в вин апи справочниках как оформит в процесе событие он клозе и там же должна быть ф-ция которая делает перезагрузку . или вкинь эту фцию выключения комьютера после постоянно выполняещегося цикла !

Ответ отправил: VaNuk (статус: 3-ий класс) Ответ отправлен: 20.12.2006, 16:57

Отвечает: Anton S Petrov Здравствуйте, Мельник Виктор! Первое приложение запускает второе CreateProcess(см документацию) дожидается его завершения WaitForSingleObject(см документацию) и после перезапускает систему

Ответ отправил: Anton S Petrov (статус: 1-ый класс) Ответ отправлен: 22.12.2006, 06:24

Вопрос № 67.766

мне нужно осуществить поиск нужной строки и выделить ее если найдена

Отправлен: 19.12.2006, 23:11 Вопрос задал: Дианочка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Mo-skin Здравствуйте, Дианочка! Я так понал искать надо в Memo ? Код в приложении. Удачи! Приложение: procedure TForm1.Button1Click(Sender: TObject); var i:integer; CP: TPoint; begin for i:=0 to Memo1.Lines.Count-1 do begin if memo1.Lines[i]='Искомая строка' then //только строка полностью begin Memo1.SetFocus; CP.X:=0; Cp.Y:=i; memo1.CaretPos:=CP; memo1.SelStart; memo1.SelLength:= length(memo1.Lines[i]); end; end; end; --------- Чем больше женщину мы меньше, тем больше меньше мы ее!

Ответ отправил: Mo-skin (статус: 3-ий класс) Ответ отправлен: 19.12.2006, 23:57

Отвечает: VaNuk Здравствуйте, Дианочка! Посмотри справку по -ции POS может чем нибудь поможет ! справку можно найти в паскалевском хелпе ! Извини если че не понял !

Ответ отправил: VaNuk (статус: 3-ий класс) Ответ отправлен: 20.12.2006, 16:59

Вопрос № 67.776

кнопка "восстановить" возвращает содержимое мемо до последненго изменения.для этого использовать дополнительный компонент мемо.написать код события onchange для главного мемо.для события onclick кнопки "выполнить" перенос в обратном направлении (использовать метод assign класса strings)

Отправлен: 20.12.2006, 00:39 Вопрос задал: Дианочка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: PaVeL_Ekt Здравствуйте, Дианочка! **** Ответ удален и перенесен в ветку форума О деятельности экспертов и работе портала – Удаленные ответы для обсуждения. **** М. Климова. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 10-ый класс) Ответ отправлен: 20.12.2006, 08:07

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.38 от 20.12.2006