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

Выпуск № 672
от 07.12.2006, 02:05

Вопрос № 65.013

Пишу на Delphi консольное приложение. Есть необходимость, чтобы после окончания некоторой определённой обработки данных приложение завершилось и вновь запустилось (запустило само себя). Возможно ли такое? Какие есть способы это сделать?

Отправлен: 01.12.2006, 02:55 Вопрос задал: Gwa (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Маренич Владимир Здравствуйте, Gwa! Например, так: ... begin ... WinExec(PChar(ParamStr(0)+' /YES'), SW_SHOWNORMAL); end.

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 01.12.2006, 03:54 Оценка за ответ: 5 Комментарий оценки: Спасибо, отлично работает!

Вопрос № 65.025

Пишу программу которая отслеживает и копирует файлы с любого носителя кроме винтов и дискет. когда вставляю диск или флешку все нормально. Но если воткнуть кардридер, то если в нем карточка есть то копирование происходит, а если подключить сначала кардридер, а затем вставить в него карту, ничего не происходит. Как отследить событие? Проверку на то что диск не пустой не предлагать.

Отправлен: 01.12.2006, 05:34 Вопрос задал: василий1 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Алтунин Василий Владимирович Здравствуйте, василий1! Попробуйте проверить наличие серийного номера диска. Каждый диск должен его иметь, и если его нет или он нулевой, то скорее всего диск не вставлен.

Ответ отправил: Алтунин Василий Владимирович (статус: 2-ой класс) Ответ отправлен: 01.12.2006, 10:17

Вопрос № 65.026

День добрый, программа уоторая следит за тем, что бы определенное приложение небыло запущено два раза, получаю пид процесса и по нему убиваю приложение. на данный момент это происходит по кнопке. Как можно сделать, что бы приложение убивалось автоматически?

Отправлен: 01.12.2006, 05:39 Вопрос задал: василий1 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: DeVampir Здравствуйте, василий1! Если Вы это делаете со своим приложением, то удобнее смотреть при запуске: не запущено ли приложение уже? И если так, то останавливать запуск. Если действие нацелено на отслеживание другого приложения, то, наверное, придется это делать в таймере или использовать отдельный поток... --------- Нам будет трудно - это терпимо! (с) М. Горшенев

Ответ отправил: DeVampir (статус: 3-ий класс) Ответ отправлен: 01.12.2006, 06:53

Отвечает: PaVeL_Ekt Здравствуйте, василий1! Проверку проводите прямо в проекте (*.dpr) до создания форм (наиболее оптимальное решение) и если запущенных копий приложения нет то начать выполнение. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

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

Отвечает: Писарев, Павел, Юрьевич Здравствуйте, василий1! В приложении указан прим программы с возможностью предотвращения повторного запуска. Приложение: program SlideShow; uses Forms, Windows, slide in 'slide.pas' {Form1}; {$R *.res} var pbuff:array[0..127] of char; {буфер для текста} var dWin: HWnd; {дескриптор} var st:string; {вспомогательная строка} begin Application.Initialize; Application.Title := 'SlideShow'; dWin:= GetWindow(Application.Handle, GW_HWNDFIRST); while dWin <> 0 do begin if (dWin <> Application.Handle) and {собственное окно игнорируем} (GetWindow(dWin, GW_OWNER) = 0) and {дочерние окна игнорируем} (GetWindowText(dWin, pbuff, sizeof(pbuff)) <> 0) {без названия игнорируем} then begin GetWindowText(dWin, pbuff, sizeof(pbuff)); {получаем текст названия приложения} st:=string(pbuff); {переводим его в строку} if st='SlideShow' then begin st:='"Двое пернатых в одной клетке не живут." @А.Лебедь'; Application.MessageBox(Pchar(st),'',MB_OK); {выводим предупреждение} exit; {прерываем программу} end; end; dWin:= GetWindow(dWin, GW_HWNDNEXT); {ищем следующее приложение из списка} end; Application.CreateForm(TForm1, Form1); Application.Run; end.

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

Вопрос № 65.032

Уважаемые эксперты, подскажите как реализовать виртуальную клавиатуру. с выводом в TEdit

Отправлен: 01.12.2006, 06:41 Вопрос задал: василий1 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PaVeL_Ekt Здравствуйте, василий1! Виртуальная клавиатура. примечание: в папке с EXE файлом должны содержаться файлы следующего типа - название_языка.lng. название языка будет отображаться в списке языков (по умолчанию первый найденый). в котором соодержаться все буквы данного языка для русского с а по я для английского с a по z. на форму выводиться кнопки 20*20 в строку помещается 30 символов. т.е. image2.width>600 иначе половины букв видно не будет. но это все можно подправить как нужно, сделать выравнивание для красоты и т.д. и т.п. P.S. клавиши SHIFT, CAPSLOCK и ENTER я оставил для Вас, но они по аналогии делаются Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TForm1 = class(TForm) Edit1: TEdit; Shape1: TShape; Image1: TImage; ComboBox1: TComboBox; Label1: TLabel; Image2: TImage; Image3: TImage; procedure FormActivate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; type langs=record chars: array of string; cnt: integer; end; var Form1: TForm1; btn1: TButton; prv, prv_lvl: integer; Lang: array of langs; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); var i, j: integer; begin for i:=0 to 9 do begin image1.Canvas.Pen.Color:=clBlack; image1.Canvas.Rectangle(i*20,0,i*20+20,20); image1.Canvas.TextOut(i*20+3,2,inttostr(i)); end; j:=(image3.Width-360)div 2; image3.Canvas.Rectangle(j,0,j+60,20); image3.Canvas.TextOut(j+20,2,'Esc'); image3.Canvas.Rectangle(j+60,0,j+120,20); image3.Canvas.TextOut(j+80,2,'<--'); image3.Canvas.Rectangle(j+120,0,j+360,20); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var itm:integer; begin itm:=round((x-10)/20); if itm<=10 then begin image1.Canvas.Brush.Color:=clBlue; image1.Canvas.Rectangle(itm*20,0,itm*20+20,20); image1.Canvas.TextOut(itm*20+3,2,inttostr(itm)); edit1.Text:=edit1.Text+inttostr(itm); edit1.SelStart:=length(edit1.Text); prv:=itm; end; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin image1.Canvas.Brush.Color:=clwhite; image1.Canvas.Rectangle(prv*20,0,prv*20+20,20); image1.Canvas.TextOut(prv*20+3,2,inttostr(prv)); end; procedure TForm1.FormCreate(Sender: TObject); var f: textfile; sr: TSearchRec; s: string; i: integer; begin if FindFirst(extractfiledir(application.exename)+'*.lng', faanyfile, sr) = 0 then begin repeat assignfile(f, sr.name); reset(f); readln(f,s); setlength(lang,length(lang)+1); setlength(lang[length(lang)-1].chars,length(s)); lang[length(lang)-1].cnt:=length(s); for i:=1 to length(s) do lang[length(lang)-1].chars[i-1]:=copy(s,i,1); combobox1.Items.Append(copy(sr.Name,1,length(sr.Name)-4)); combobox1.ItemIndex:=0; combobox1.OnChange(combobox1); until FindNext(sr) <> 0; FindClose(sr); end; end; procedure TForm1.ComboBox1Change(Sender: TObject); var i, lvl: integer; begin lvl:=-1; for i:=0 to lang[combobox1.itemindex].cnt-1 do begin if i mod 30 = 0 then inc(lvl); image2.Canvas.Rectangle((i mod 30)*20, lvl*20, (i mod 30)*20+20, lvl*20+20); image2.Canvas.TextOut((i mod 30)*20+3, lvl*20+2, lang[combobox1.Itemindex].chars[i]); end; image2.Height:=lvl*20+20; form1.ClientHeight:=image3.Top+image3.Height; if form1.Visible then edit1.SetFocus; edit1.SelStart:=length(edit1.Text); end; procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var itm, lvl: integer; begin itm:=round((x-10)/20); lvl:=round((y-10)/20); if lvl*30+itm<lang[combobox1.ItemIndex].cnt then begin image2.Canvas.Brush.Color:=clBlue; image2.Canvas.Rectangle(itm*20,lvl*20,itm*20+20,lvl*20+20); image2.Canvas.TextOut(itm*20+3,lvl*20+2,lang[combobox1.itemindex].chars[lvl*30+itm]); edit1.Text:=edit1.Text+lang[combobox1.itemindex].chars[lvl*30+itm]; edit1.SelStart:=length(edit1.Text); prv:=itm; prv_lvl:=lvl; end; end; procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin image2.Canvas.Brush.Color:=clwhite; image2.Canvas.Rectangle(prv*20,prv_lvl*20,prv*20+20,prv_lvl*20+20); image2.Canvas.TextOut(prv*20+3,prv_lvl*20+2,lang[combobox1.itemindex].chars[prv_lvl*30+prv]); end; procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var itm, j: integer; key: word; begin j:=(image3.Width-360) div 2; if (x>=j)and(x<=j+360) then begin image3.Canvas.Brush.Color:=clBlue; if x<j+60 then begin edit1.Clear; image3.Canvas.Rectangle(j,0,j+60,20); image3.Canvas.TextOut(j+20,2,'Esc'); end; if (x>=j+60)and(x<j+120) then begin edit1.Text:=copy(edit1.Text,1,length(edit1.Text)-1); image3.Canvas.Rectangle(j+60,0,j+120,20); image3.Canvas.TextOut(j+80,2,'<--'); end; if x>=j+120 then begin edit1.Text:=edit1.Text+' '; image3.Canvas.Rectangle(j+120,0,j+360,20); end; edit1.SelStart:=length(edit1.Text); prv:=itm; end; end; procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var j: integer; begin j:=(image3.Width-360) div 2; if (x>=j)and(x<=j+360) then begin image3.Canvas.Brush.Color:=clWhite; if x<j+60 then begin image3.Canvas.Rectangle(j,0,j+60,20); image3.Canvas.TextOut(j+20,2,'Esc'); end; if (x>=j+60)and(x<j+120) then begin image3.Canvas.Rectangle(j+60,0,j+120,20); image3.Canvas.TextOut(j+80,2,'<--'); end; if x>=j+120 then begin image3.Canvas.Rectangle(j+120,0,j+360,20); end; end; end; end. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 7-ой класс) Ответ отправлен: 01.12.2006, 11:36

Вопрос № 65.129

Здравствуйте! Подскажите пожалуйста: Делаю PreView рисунка. Im:TImage создаю динамически и кладу его на Panel1. Вначале закрашиваю Im серым цветом на всю Panel1, а затем, с учетом масштабирования пытаюсь вывести его вновь, но уже нового размера и закрашенным в белый цвет(т.е. белый лист на сером фоне). Здесь происходит накладывание цветов. Может кто скажет где я вывожу неправильно? Заранее спасибо. Приложение: Im := TImage.Create(Panel1); Im.Parent := Panel1; Im.AutoSize := False; Im.Stretch := False; //закрашивание в серый цвет на всей площади панели Im.Width := Panel1.Width; Im.Height := Panel1.Height; Im.Canvas.Brush.Color := clBtnFace; Im.Canvas.FillRect(Rect(0,0,Im.Width,Im.Height)); Im.Width := trunc(Panel1.Width*koef_scale); Im.Height := trunc(Panel1.Height*koef_scale); // находим координаты верхней правой и нижней левой точек вывода Im x1 := trunc(p.width/2)-trunc(Im.Width/2); y1 := trunc(p.Height/2)-trunc(Im.Height/2); x2 := trunc(p.width/2)+trunc(Im.Width/2); y2 := trunc(p.Height/2)+trunc(Im.Height/2); PreRect := Rect(x1,y1,x2,y2); // закрашивание в белый нужного прямоугольника Im.Canvas.Brush.Color := clWhite; Im.Canvas.FillRect(PreRect); Im.Canvas.Pen.Color := clBlack; Im.Canvas.Rectangle(PreRect);

Отправлен: 01.12.2006, 17:28 Вопрос задал: Luchiki (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: monah Здравствуйте, Luchiki! Используйте свойство Canvas.Pen.Mode:=pmCopy; или pmNop; --------- festina lente

Ответ отправил: monah (статус: Студент) Ответ отправлен: 01.12.2006, 17:47 Оценка за ответ: 4 Комментарий оценки: Спасибо большое. Все равно не получилось. Возможно ошибка у меня в коде. Создала Im статически,перезакрашиваю его и все получилось.

Вопрос № 65.158

Уважаемые эксперты! Срочно! Нужна помощь. Дело в том, что я занимался Делфи давно и мне не было необходимости заботится о внешнем виде программ. А сейчас у меня возникла серьезная проблема, надо написать прогу (до 4.12.06). Собственно кода в проге почти нет, но есть одна загвоздка - надо чтобы у нее был сногсшибательный внешний вид, т.е. надо красиво оформить все формы. Подскажите с помощью каких спец компонентов можно сделать красивый внешний вид, и где их скачать. Я сейчас роюсь в инете. Поэтому пожалуйста все хоть и необдуманные мысли по этому поводу, и сайты, скорее скидывайте в форум. Мне надо до утра сделать заготовку.

Отправлен: 01.12.2006, 20:54 Вопрос задал: Patriotix-N (статус: 3-ий класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Писарев, Павел, Юрьевич Здравствуйте, Patriotix-N! Попробуй использовать Raize Components. Попробуй их поискать по адресу www.raize.com

Ответ отправил: Писарев, Павел, Юрьевич (статус: 2-ой класс) Ответ отправлен: 01.12.2006, 22:11 Оценка за ответ: 5 Комментарий оценки: Спасибо! Скиншот понравился, а дальше попробую...

Отвечает: KiberZero Здравствуйте, Patriotix-N! Посмотрите здесь(несколько интересных ссылок к компонентам) - http://sources.codenet.ru/index.php?cid=8&o=2&my=0; Неплохая коллекция тут - http://allprogramming.jino-net.ru/files/delphicomp.phtml; И ещё тут посоветовал бы - http://home.earthlink.net/~akonshin/delphi_ru.htm; Короче выбирайте, что душе угодно. Все компоненты мною проверены и работоспособны! Лично мне нравятся( в смысле красочного оформления)ю Удачи!

Ответ отправил: KiberZero (статус: 3-ий класс) Ответ отправлен: 02.12.2006, 00:25 Оценка за ответ: 5 Комментарий оценки: Cпасибо посмотрю!

Отвечает: Coupler Здравствуйте, Patriotix-N! Рассмотрите вариант использования скинов. Мне больше всего нравятся AlphaControls (www.alphaskins.com). C этой станички (http://www.alphaskins.com/index_rus.php) вы можете скачать бесплатную версию для жителей бывшего союза (без исходников, но полнофункциональную!).

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 02.12.2006, 07:48 Оценка за ответ: 5 Комментарий оценки: Спасибо! Обязательно попробую. Самое главное компонент бесплатный!

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