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

Выпуск № 464
от 05.05.2006, 21:35

Вопрос № 41.654

Добрый вечер! Можно ли изменить цвет scroll bar на форме и в memo, если да то как? И второй вопрос: Как можно сделать так, когда я кладу на форму label, то шрифт должен быть допусти verdana, жирный, 10 размер? Заранее спасибо!

Отправлен: 29.04.2006, 21:11 Вопрос задал: Грицай Алексей Юрьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Б. Здравствуйте, Грицай Алексей Юрьевич! 1. Цвет ScrollBar изменить, по-моему, нельзя. Он зависит от системы. Или можно попробовать поискать сторонние компоненты. 2. Измените свойство Font у Label'a. Если Вы имели ввиду, чтобы шрифт был Verdana 10, как только кидаешь label на форму, то такое невозможно. Delphi устанавливает системный шрифт.

Ответ отправил: Николай Б. (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 06:32

Отвечает: Ерёмин Андрей Здравствуйте, Грицай Алексей Юрьевич! 2. Дополню. Если речь идёт об одном конкретном проекте, то поступите следующим образом: измените шрифт на нужный у самой формы (свойство Font). Затем, если помещать на форму стандартные компоненты (TLabel, TButton, TMemo), то они сразу же будут иметь такой шрифт. За это отвечает свойство ParentFont. Если оно установлено в True, то компонент изменяет свой шрифт на такой же, какой установлен у его родителя, т.е. у формы. Иногда очень удобно. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 30.04.2006, 09:48 Оценка за ответ: 5

Вопрос № 41.659

Добрый вечер. Хотел бы задать вопрос следующего характера. Кинул на форму PageControl на него WebBrowser. Хоче сделать создание можно сказать новой закладки (TabSheet) по принципу браузера Opera или других подобных. Т.е. Нажимаю кнопку, создается новая закладка а в ней WebBrowser и постоянно при создании загружает HTML страницу: S := ExtractFilePath(Application.ExeName) + 'setup.html'; WebBrowser1.Navigate(s); Создаю новую закладку так: var tab: TTabSheet; begin tab := TTAbSheet.Create(self); with tab do begin PageControl := PageControl1; Caption := 'TimeZero'; end; end; А вот как создать в ней WebBrowser с открытием страницы не знаю к сожалению. С Уважением, Максим

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

Отвечает: Ерёмин Андрей Здравствуйте, Maximus! Можно использовать TTabControl вместо TPageControl (с той же страницы - Win32). В нём все страницы имеют один и тот же набор, т.е. это просто ярлычки и ничего более. Однако в данном случае это не очень хороший вариант. А вот создать новый TWebBrowser, оказывается, очень проблематично. При выполнении стандартных операций по созданию объекта, он не появляется на форме. Видимо потому, что это OLE-объект. Поэтому, и создавать его нужно каким-то особенным способом, который мне, увы, неизвестен. Так что вынужден на данный момент вас огорчить. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 30.04.2006, 10:07

Отвечает: Решетник Д Здравствуйте, Maximus! uses ..., OleCtrls, SHDocVw; var tab: TTabsheet; wb: TWebBrowser; begin tab := TTabSheet.Create(PageControl1); tab.PageControl := PageControl1; tab.Caption := inttostr(PageControl1.PageCount); wb := TWebBrowser.Create(tab); wb.Navigate('www.rusfaq.ru'); wb.ParentWindow := tab.Handle; wb.Visible := true; --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 12:20

Вопрос № 41.662

Добрый вечер! Еще один вопрос! Есть функция, как сделать так, чтобы например при нажатии на клавишу запскалась функция и при этом переменными из функции можго было пользоваться. пример в приложении (см. приложение) Приложение: Function text(a:string, b:integer):string; begin b:=length(a); end; procedure Tform.button1Click(Sender: TObject); begin edit1.text:=text; edit2.text:=a; - вот как сделать, чтобы значение из функции бралось!? end;

Отправлен: 29.04.2006, 22:36 Вопрос задал: Грицай Алексей Юрьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Грицай Алексей Юрьевич! В приложении пример использования функции. (Во второе поле выводит длину строки введенного в первое поле). Если же Вы хотели не этого, то тогда те переменные, которые Вы хотите видеть вне функции объявляйте глобальными, тогда их будет видеть любая функция и процедура. P.S. В функции вместо слова result можно писать имя самой функции. Приложение: Function text(a:string):string; begin result:=IntToStr(length(a)); end; procedure Tform.button1Click(Sender: TObject); begin edit1.text:='Какой-то текст'; edit2.text:=text(edit1.text); end; --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 6-ой класс) Ответ отправлен: 29.04.2006, 23:04 Оценка за ответ: 5

Отвечает: Дмитриев Алексей Иванович Здравствуйте, Грицай Алексей Юрьевич! можно сохранять значение в глобальную переменную, например так: var Form1:TForm1; _st: string; // здесь .... Function text(a:string, b:integer):string; begin _st:=a; b:=length(a); end; По-другому не получится, ибо все локальные переменые для процедур и функций загоняются в стек, из которого по завершению процедуры удаляются.

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 29.04.2006, 23:37 Оценка за ответ: 5

Вопрос № 41.672

Доброго времени суток, уважаемые эксперты!!! Вобщем дело обстоит следующим образом: Мне нужно (на Delphi7) написать небольшую прогу. Там в графическом режиме нужно работать с отрезками, точкой, её движением (и она должна оставлять след). Ну вобщем нужно сделать аналог Осцылографа. Посоветуйте что мне нужно использовать, и где об этом можно почитать??? Реализовать всё нужно в течении 1 месяца. Я можно сказать только начинающий программер - с графикой ещё не работал. Поидеи можно писать для DirectX и для OpenGL. Или может ещё чего??? Ну вобщем посоветуйте в каком направлении мне пойти, где и что взять, что почитать, что бы можно было всё реализовать. Заранее благодарен!!!:)

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

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Foxmorg! Если хотите работать с DirectX, то есть неплохой бесплатный компонентик DelphiX. Почитать можно тут: http://delphigfx.mastak.ru/2d/013/2d_13.htm тут: http://www.uni-vologda.ac.ru/students/leo/delphix.htm а еще лучше здесь: http://www.gamedev.ru/faqlinks/delphix.shtml Скачать тут: http://turbo.gamedev.net/UnDelphiX_D7.zip --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 6-ой класс) Ответ отправлен: 29.04.2006, 23:58 Оценка за ответ: 5

Отвечает: Дмитриев Алексей Иванович Здравствуйте, Foxmorg! DirectX, OpenGL... к чему всё усложнять? Конечно, если у вас не Pentium II с продвинутой видеокарточкой. Можно использывать стандартные компоненты Delphi. Создаем картинку в памяти, по таймеру, или как там ещё, отрисовываем осцилограмму на неё, и сдесь де выкладываем её целиком на форму, или куда там ещё. В общем как-то так: ... interface ... var Form1: TForm1; bmp: TBitmap; //объявляем картику implementation ... procedure TForm1.FormCreate(Sender: TObject); begin bmp:=TBitmap.Create; //создаём картинку bmp.Height:=...;//её высота bmp.Width:=...;//её ширина end; procedure TForm1.Timer1Timer(Sender: TObject); begin with bmp.Canvas do begin ... //рисуем методами TCanvas, подробнее смотри справку Delphi end; Form1.Canvas.Draw(0,0,bmp); //отображаем на форме, можно на канвасе PaintBox и т. п. end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin bmp.Free; //удаляем картинку из памяти, ибо надо end; end.

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 30.04.2006, 00:32 Оценка за ответ: 4

Отвечает: Решетник Д Здравствуйте, Foxmorg! Есть очень хорошая дока по OpenGL, но она для С++. особой сложности в переносе на Делфи не должно быть, так как в доке описано использование OpenGL API. http://www.pmg.org.ru/nehe/nehe.chm Но, если использование сторонних библиотек (DirectX, OpenGL) необязательно, то задание такого рода легче решить через простой Windows GDI (как советовал Дмитриев Алексей Иванович) --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 12:03 Оценка за ответ: 3

Вопрос № 41.696

Здравствуйте. Подскажите, пожалуйста, какой-нибудь хороший компонент для подсветки синтаксиса разных языков. Заранее спасибо

Отправлен: 30.04.2006, 07:35 Вопрос задал: NVBud (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Б. Здравствуйте, NVBud! Посмотрите SynEdit. Очень хороший компонент с подсветкой для множества языков программирования (Delphi,C++,Python...) и разметки страниц (HTML,CSS...). Скачать можно здесь: http://unihighlighter.com

Ответ отправил: Николай Б. (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 07:41

Отвечает: Denisss Здравствуйте, NVBud! Неплохой компонент для подсветки входит в библиотеку JVCL (набор VCL компонентов настоящего Джедая [Jedi] ;-) ). Из платных: TMS TAdvMemo v2.0.0.1 Точно не скажу, но кажется в некоммерческих целях этот набор компонентов можно свободно использовать (только при загрузке приложения будет появляться сообщение о том, что Вы используете эту библиотеку). Удачи!

Ответ отправил: Denisss (статус: Специалист) Ответ отправлен: 30.04.2006, 23:53

Вопрос № 41.697

Здравствуйте. Помогите: надо найти прогу и исходники (!) для перевода систем счисления. Предположительно из 16-ной в 2-ую. Надо написать, не используя стандартные процедуры Delphi. Спасибо.

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

Отвечает: Николай Б. Здравствуйте, NVBud! Когда-то дакно писал программу для перевода 15->8. В приложении код: 1. Для Вашей программы 2. Мой страй код (если новый не заработает, можно разобраться по строму) Если не поймёте, пишите. Постараюсь обЪяснить. Удачи! Приложение: {перевод 16->2} const Base16Str = '0123456789ABCDEF'; procedure DelLeadingZeros(var str:string); begin while ((str<>'')and(copy(str,1,1) = '0')and(length(str)>1)) do delete(str,1,1); end; function Div2(number : string; var ost : integer):string; //один раз делит число на 2 (в 16-ной системе счисления) var len, index, chislo {число, которое делим на 2} : integer; chastnoe : string; begin len := length(number); // определить длину числа ost := 0; // начальный остаток задать равным нулю chastnoe := ''; // очистить частное index := 1; // Номер текущей цифры = 1 Repeat // ПОВТОРЯТЬ chislo := ost*16 + pos(copy(number,index,1), Base16Str) -1; // посчитать текущее делимое chastnoe := chastnoe + copy(Base15str, (chislo div 8 + 1),1); // посчитать частное от деления на 8 ost := chislo mod 2; //посчитать остаток от деления на 2 index := index + 1; // увеличить Номер на 1 Until index > len; // ПОКА НОМЕР МЕНЬШЕ ИЛИ РАВЕН ДЛИНЕ ЧИСЛА DelLeadingZeros(chastnoe); // Удалить лидирующие нули result := chastnoe; end; function Convert(number:string):string; var ost : integer; begin result := ''; repeat // ПОВТОРЯТЬ number := Div2(number, ost); // однократно поделить число на 2 result := copy(Base16Str,(ost +1),1) + result; // добавить остаток в начало строки с результатом Until ( (length(number) = 1) and (pos(number, Base15Str)<2) ); // ПОКА Число больше 2 result := number + result; DelLeadingZeros(result); end; {----------------------------------------------------------------------------------------} {--------------------------------Работа с файлами----------------------------------------} procedure ConvertFile(ReadFileName, WriteFileName : string); var ReadFile, WriteFile : TextFile; number : string[30]; Converted_number : string; answer : integer; // ответ в случае ошибки begin if FileExists(ReadFileName) then//I. Если файл с данными существует begin AssignFile(ReadFile,ReadFileName); //1. Открыть файл с данными для чтения Reset(ReadFile); AssignFile(WriteFile, WriteFileName); //2. Создать файл для вывода результата ReWrite(WriteFile); While not(EOF(ReadFile)) do //3. Повторять, пока не конец файла с данными begin ReadLn(ReadFile,number); // а) считать число из файла с данными if number <> '' then // б) Если строка не пустая Converted_number := Convert(number); // перевести в 8-ую систему счисления WriteLn(WriteFile,Converted_number); // в) записать во второй файл end; CloseFile(ReadFile);//4. Закрыть файл с данными CloseFile(WriteFile);//5. Закрыть файл с результатом ShowMessage('Файл переведён'); end else// Иначе begin answer := MessageDlg('Файл не найден: '+ReadFileName+'.'+#13+'Хотите выбрать другой файл?',mtError,[mbYes,mbNo],0); //1. Сообщить, что файл не найден, предложить выбрать файл if answer = mrYes then //2. Если ответ утвердительный, begin MainForm.OpenDialog.Execute; // показать диалог выбора файла MainForm.EditOpenFileName.Text := MainForm.OpenDialog.FileName; // сохранить имя файла if (MainForm.EditOpenFileName.Text <> '') and (MainForm.EditSaveFileName.Text <> '') then // Если введены имена файлов ConvertFile(MainForm.EditOpenFileName.Text,MainForm.EditSaveFileName.Text) // перевести числа. else // сообщить, что указаны не все названия файлов ShowMessage('Вы указали не все названия файлов!'); end; end; end; {мой код} { Программа переводит текствый файл с числами длинной до 30 символов (включительно) из 15-ичной системы счисления в восьмеричную, результат сохраняет в другой файл. } const Base15Str = '0123456789ABCDE'; procedure DelLeadingZeros(var str:string); begin while ((str<>'')and(copy(str,1,1) = '0')and(length(str)>1)) do delete(str,1,1); end; function Div8(number : string; var ost : integer):string; //один раз делит число на 8 (в 15-ной системе счисления) var len, index, chislo {число, которое делим на 8} : integer; chastnoe : string; begin len := length(number); // определить длину числа ost := 0; // начальный остаток задать равным нулю chastnoe := ''; // очистить частное index := 1; // Номер текущей цифры = 1 Repeat // ПОВТОРЯТЬ chislo := ost*15 + pos(copy(number,index,1), Base15Str) -1; // посчитать текущее делимое chastnoe := chastnoe + copy(Base15str, (chislo div 8 + 1),1); // посчитать частное от деления на 8 ost := chislo mod 8; // посчитать остаток от деления на 8 index := index + 1; // увеличить Номер на 1 Until index > len; // ПОКА НОМЕР МЕНЬШЕ ИЛИ РАВЕН ДЛИНЕ ЧИСЛА DelLeadingZeros(chastnoe); // Удалить лидирующие нули result := chastnoe; end; function Convert(number:string):string; var ost : integer; begin result := ''; repeat // ПОВТОРЯТЬ number := Div8(number, ost); // однократно поделить число на 8 result := copy(Base15Str,(ost +1),1) + result; // добавить остаток в начало строки с результатом Until ( (length(number) = 1) and (pos(number, Base15Str)<8) ); // ПОКА Число больше 8 result := number + result; DelLeadingZeros(result); end; {----------------------------------------------------------------------------------------} {--------------------------------Работа с файлами----------------------------------------} procedure ConvertFile(ReadFileName, WriteFileName : string); var ReadFile, WriteFile : TextFile; number : string[30]; Converted_number : string; answer : integer; // ответ в случае ошибки begin if FileExists(ReadFileName) then//I. Если файл с данными существует begin AssignFile(ReadFile,ReadFileName); //1. Открыть файл с данными для чтения Reset(ReadFile); AssignFile(WriteFile, WriteFileName); //2. Создать файл для вывода результата ReWrite(WriteFile); While not(EOF(ReadFile)) do //3. Повторять, пока не конец файла с данными begin ReadLn(ReadFile,number); // а) считать число из файла с данными if number <> '' then // б) Если строка не пустая Converted_number := Convert(number); // перевести в 8-ую систему счисления WriteLn(WriteFile,Converted_number); // в) записать во второй файл end; CloseFile(ReadFile);//4. Закрыть файл с данными CloseFile(WriteFile);//5. Закрыть файл с результатом ShowMessage('Файл переведён'); end else// Иначе begin answer := MessageDlg('Файл не найден: '+ReadFileName+'.'+#13+'Хотите выбрать другой файл?',mtError,[mbYes,mbNo],0); //1. Сообщить, что файл не найден, предложить выбрать файл if answer = mrYes then //2. Если ответ утвердительный, begin MainForm.OpenDialog.Execute; // показать диалог выбора файла MainForm.EditOpenFileName.Text := MainForm.OpenDialog.FileName; // сохранить имя файла if (MainForm.EditOpenFileName.Text <> '') and (MainForm.EditSaveFileName.Text <> '') then // Если введены имена файлов ConvertFile(MainForm.EditOpenFileName.Text,MainForm.EditSaveFileName.Text) // перевести числа. else // сообщить, что указаны не все названия файлов ShowMessage('Вы указали не все названия файлов!'); end; end; end;

Ответ отправил: Николай Б. (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 08:06

Вопрос № 41.711

Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как установить default значение для переменной. Заранее спасибо!

Отправлен: 30.04.2006, 11:14 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Андрющенко Вячеслав Васильевич! Установить значение по умолчанию можно только для глобальных переменных, т.е. тех, которые описаны в разделе var самого модуля (там где описана и форма - Form1: TForm1 например). И делается это так: Var A: Integer = 15; S: String = 'Hello!'; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 30.04.2006, 11:17

Отвечает: Sarymian Здравствуйте, Андрющенко Вячеслав Васильевич! Проще всего ввести константы неоходимых вам значений. По востановлению значения по умолчанию прировнять переменые к константам. Проблема такого метода ток в том что кроме как создавать новую версию По Умолчанию не поменяешь. Так же можно вести файл Defaul*.ini (допустим) где хранятся все параметры по умолчанию. Здесь минус в том что пользователь может все заменить на то что ему нравится.

Ответ отправил: Sarymian (статус: 1-ый класс) Ответ отправлен: 30.04.2006, 17:06

Вопрос № 41.719

Здравствуйте эксперты! У меня вопрос - как можно запустить из программы какой-либо *.exe файл, не входящий в проект? Желательно с примером на Delphi 2005 или Delphi 7.0

Отправлен: 30.04.2006, 16:00 Вопрос задал: Томша Павел (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Томша Павел! Способ 1: uses ShellAPI; ShellExecute(0,'open',PChar('path_to_file'),'','',SW_SHOWNORMAL); Способ 2: WinExec('path_to_file',1); --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 30.04.2006, 16:08 Оценка за ответ: 5

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Томша Павел! Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция ShellExecute, которая описывается в модуле ShellAPI - не забудьте подключить его в uses. Этой функции нужно указать несколько параметров: Дескриптор родительского окна Выполняемое действие. Этот параметр может принимать следующие значения "open", "print", "explore" - соответственно открытие, печать или исследование. Можно указывать nil - тогда будет выполняться действие по умолчанию - "open". Имя файла или папки, или e-mail, или URL Параметры Каталог по умолчанию Способ вывода окна. В качестве значения можно указать: SW_HIDE Скрывает окно и активизирует другое. SW_MAXIMIZE Разворачивает окно. SW_MINIMIZE Сворачивает окно. SW_RESTORE Активизирует и выводит окно. Если окно было развёрнуто или свёрнуто - восстанавливает исходный размер и позицию. SW_SHOW Активизирует и выводит окно с его оригинальным размером и положением. SW_SHOWDEFAULT Активизирует с установками, заданными в структуре STARTUPINFO, которая была передана при создании процесса приложением запускающим нужную программу. SW_SHOWMAXIMIZED Выводит окно в развёрнутом виде. SW_SHOWMINIMIZED Выводит окно в виде пиктограммы на панели задач. SW_SHOWMINNOACTIVE Выводит окно в свёрнутом виде на панели задач и не передаёт ему фокус ввода, т.е. окно, которое до этого было активно остаётся активно по прежнему. SW_SHOWNA Отображает окно в его текущем состоянии. Активное окно остаётся активным по прежнему. SW_SHOWNOACTIVATE Выводит окно в его последнем положении и с последними используемыми размерами. Активное окно остаётся активным по прежнему. SW_SHOWNORMAL Выводит окно. Если оно было свёрнуто или развёрнуто - восстанавливает его оригинальные размеры и позицию. Приложение: Примеры: // Запуск файла ShellExecute(Handle, nil, 'c:windowscalc.exe', nil, nil, SW_SHOW); // Просмотр каталога ShellExecute(Handle, nil, 'c:windows', nil, nil, SW_SHOW); // Ссылка на сайт ShellExecute(Handle, nil, 'http://www.site.ru', nil, nil, SW_SHOW); // Послать E-mail ShellExecute(Handle, nil, 'mailto:DelphiWorld@mail.ru', nil, nil, SW_SHOW); --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 6-ой класс) Ответ отправлен: 30.04.2006, 16:10

Отвечает: Sarymian Здравствуйте, Томша Павел! === 1 === WinExec() или ShellExecute. У второй больше возможностей. === 2 === (AY, VB): CreateProcess().

Ответ отправил: Sarymian (статус: 1-ый класс) Ответ отправлен: 30.04.2006, 17:20 Оценка за ответ: 4

Отвечает: Coupler Здравствуйте, Томша Павел! В дополнение к ответам предыдущих экспертов: procedure TForm1.Button1Click(Sender: TObject); var si: STARTUPINFO; pi: PROCESS_INFORMATION; begin if not CreateProcess(nil, { Используем командную строку } 'E: spackNsPack.exe', { Путь } nil, { Handle процесса } nil, { Handle потока } False, { Установить handle наследования в FALSE. } 0, { Флаги создания } nil, { Использовать родительский блок окружающей среды } nil, { Использовать родительскую стартовую директорию} si, { Указатель на структуру STARTUPINFO } pi) { Указатель на структуру PROCESS_INFORMATION } then begin ShowMessage('CreateProcess failed.'); Exit; end; end;

Ответ отправил: Coupler (статус: 9-ый класс) Ответ отправлен: 30.04.2006, 17:23 Оценка за ответ: 5

Отвечает: Дмитриев Алексей Иванович Здравствуйте, Томша Павел! Элементарно! Используйте WinExec. В общем так, если вы в качестве имени файла - строка типа String: WinExec(PAnsiChar(exefile), SW_NORMAL); или если имя файла задается статически при вызове функции WinExec('c:exefile.exe', SW_NORMAL); SW_NORMAL - способ отобряжения приложения при запуске. Подробности в MSDN.

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 30.04.2006, 23:47

Вопрос № 41.733

Здравствуйте. Скажите пожайлуста как можно узнать когда файл изменён? Мне надо получить дату в переменную. К примеру надо получить в переменную c:1.txt узнать дату изменения файла.

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

Отвечает: Ерёмин Андрей Здравствуйте, Паша паш паша! Стандартных способов я не знаю. Вот способ с использованием модулей пакета JediVCL: uses JclFileUtils, JclDateTime; ... procedure TForm1.Button1Click(Sender: TObject); begin Caption:=DateTimeToStr(FileTimeToDateTime(GetFileLastWrite('C:1.txt'))); end; Если вы им не пользуетесь, то очень рекомендую установить! --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 30.04.2006, 19:35 Оценка за ответ: 5

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Паша паш паша! Пример функции в приложении. Вызывается так: GetFileDate('C:1.txt'); Приложение: function GetFileDate(FileName: string): string; var FHandle: Integer; begin FHandle := FileOpen(FileName, 0); try Result := DateToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 6-ой класс) Ответ отправлен: 30.04.2006, 21:28

Отвечает: sir henry Здравствуйте, Паша паш паша! Все сведения о файле (а там еще немало интересного есть) можно получить с помощью функции: FindFirstFile(Имя_файла, lpFindFileData); lpFindFileData - это запись, в которую заносится: ftCreationTime - время создания файла; ftLastAccessTime - время последнего доступа к файлу; ftLastWriteTime - время, когда туда последний раз что-либо записывали.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.05.2006, 06:50 Оценка за ответ: 5 Комментарий оценки: спасиб за ответ ещё б пример было бы ваще супер

Вопрос № 41.738

Здравствуйте. А где можно изменить комадные клавиши? Например, запуск приложения у меня назначена клавиша F9, А я бы хотел чтобы была F5. У меня раньше такое было назначение, но мне пришлось переустановить Delphi 7.0 и теперь не знаю где это сделать. После установки Русской версии она обычно сама переназначает все клавиши, но сейчас опять поставил Русскую, но она почему-то не переназначила. А то не удобно, не "под рукой". Алекс

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

Отвечает: Решетник Д Здравствуйте, AlexD! Tools - Editor options. combo "editor sdeepsetting". Выбрать Visual studio. --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 4-ый класс) Ответ отправлен: 30.04.2006, 22:43

Вопрос № 41.739

Здравствуйте. Я пытаюсь создать COM-объект из библиотеки .tlb, но мне выдается сообщение: The selected interface is not either Dual or Custom. Означает ли это, что библиотека имеет устаревший или неподдерживаемый формат? Заранее благодарен, Михаил.

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

Отвечает: sir henry Здравствуйте, Michael222! "The selected interface is not either Dual or Custom" - Выбраный Вами интерфейс не является одним из двух - Dual или Custom. Dual - это IDispatch. Посмотрите в исходнике TLB так ли это.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.05.2006, 07:11

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