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

Выпуск № 621
от 15.10.2006, 19:05

Вопрос № 58.351

Хочу в своем приложении сделать что-то вроде программы CPU-Z т.е показывало какой процессор, память и тд подскажите пару фукций

Отправлен: 10.10.2006, 09:44 Вопрос задал: Сергей Викторович (статус: 1-ый класс) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Хлызов Алексей Здравствуйте, Сергей Викторович! Могу порекомендовать Raize Components, там уже все это есть. В поставке также идут сырцы, можно посмотреть и на реализацию. http://www.raize.com

Ответ отправил: Хлызов Алексей (статус: 1-ый класс) Ответ отправлен: 10.10.2006, 09:52 Оценка за ответ: 5

Отвечает: Arvist Здравствуйте, Сергей Викторович! В приложении программа выводящая в TImage инфу о проце Приложение: unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } procedure info(s1, s2: string); end; var frm_main: Tfrm_main; gn_speed_y: Integer; gn_text_y: Integer; const gn_speed_x: Integer = 8; gn_text_x: Integer = 15; gl_start: Boolean = True; implementation {$R *.DFM} procedure Tfrm_main.FormShow(Sender: TObject); var _eax, _ebx, _ecx, _edx: Longword; i: Integer; b: Byte; b1: Word; s, s1, s2, s3, s_all: string; begin //Set the startup colour of the image img_info.Canvas.Brush.Color := clblue; img_info.Canvas.FillRect(rect(0, 0, img_info.Width, img_info.Height)); gn_text_y := 5; //position of the 1st text asm //asm call to the CPUID inst. mov eax,0 //sub. func call db $0F,$A2 //db $0F,$A2 = CPUID instruction mov _ebx,ebx mov _ecx,ecx mov _edx,edx end; for i := 0 to 3 do //extract vendor id begin b := lo(_ebx); s := s + chr(b); b := lo(_ecx); s1:= s1 + chr(b); b := lo(_edx); s2:= s2 + chr(b); _ebx := _ebx shr 8; _ecx := _ecx shr 8; _edx := _edx shr 8; end; info('CPU', ''); info(' - ' + 'Vendor ID: ', s + s2 + s1); asm mov eax,1 db $0F,$A2 mov _eax,eax mov _ebx,ebx mov _ecx,ecx mov _edx,edx end; //06B1 //|0000| |0000 0000| |0000| |00| |00| |0110| |1011| |0001| b := lo(_eax) and 15; info(' - ' + 'Stepping ID: ', IntToStr(b)); b := lo(_eax) shr 4; info(' - ' + 'Model Number: ', IntToHex(b, 1)); b := hi(_eax) and 15; info(' - ' + 'Family Code: ', IntToStr(b)); b := hi(_eax) shr 4; info(' - ' + 'Processor Type: ', IntToStr(b)); //31. 28. 27. 24. 23. 20. 19. 16. // 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 b := lo((_eax shr 16)) and 15; info(' - ' + 'Extended Model: ', IntToStr(b)); b := lo((_eax shr 20)); info(' - ' + 'Extended Family: ', IntToStr(b)); b := lo(_ebx); info(' - ' + 'Brand ID: ', IntToStr(b)); b := hi(_ebx); info(' - ' + 'Chunks: ', IntToStr(b)); b := lo(_ebx shr 16); info(' - ' + 'Count: ', IntToStr(b)); b := hi(_ebx shr 16); info(' - ' + 'APIC ID: ', IntToStr(b)); //Bit 18 =? 1 //is serial number enabled? if (_edx and $40000) = $40000 then info(' - ' + 'Serial Number ', 'Enabled') else info(' - ' + 'Serial Number ', 'Disabled'); s := IntToHex(_eax, 8); asm //determine the serial number mov eax,3 db $0F,$A2 mov _ecx,ecx mov _edx,edx end; s1 := IntToHex(_edx, 8); s2 := IntToHex(_ecx, 8); Insert('-', s, 5); Insert('-', s1, 5); Insert('-', s2, 5); info(' - ' + 'Serial Number: ', s + '-' + s1 + '-' + s2); asm mov eax,1 db $0F,$A2 mov _edx,edx end; info('', ''); //Bit 23 =? 1 if (_edx and $800000) = $800000 then info('MMX ', 'Supported') else info('MMX ', 'Not Supported'); //Bit 24 =? 1 if (_edx and $01000000) = $01000000 then info('FXSAVE & FXRSTOR Instructions ', 'Supported') else info('FXSAVE & FXRSTOR Instructions Not ', 'Supported'); //Bit 25 =? 1 if (_edx and $02000000) = $02000000 then info('SSE ', 'Supported') else info('SSE ', 'Not Supported'); //Bit 26 =? 1 if (_edx and $04000000) = $04000000 then info('SSE2 ', 'Supported') else info('SSE2 ', 'Not Supported'); info('', ''); asm //execute the extended CPUID inst. mov eax,$80000000 //sub. func call db $0F,$A2 mov _eax,eax end; if _eax > $80000000 then //any other sub. funct avail. ? begin info('Extended CPUID: ', 'Supported'); info(' - Largest Function Supported: ', IntToStr(_eax - $80000000)); asm //get brand ID mov eax,$80000002 db $0F db $A2 mov _eax,eax mov _ebx,ebx mov _ecx,ecx mov _edx,edx end; s := ''; s1 := ''; s2 := ''; s3 := ''; for i := 0 to 3 do begin b := lo(_eax); s3:= s3 + chr(b); b := lo(_ebx); s := s + chr(b); b := lo(_ecx); s1 := s1 + chr(b); b := lo(_edx); s2 := s2 + chr(b); _eax := _eax shr 8; _ebx := _ebx shr 8; _ecx := _ecx shr 8; _edx := _edx shr 8; end; s_all := s3 + s + s1 + s2; asm mov eax,$80000003 db $0F db $A2 mov _eax,eax mov _ebx,ebx mov _ecx,ecx mov _edx,edx end; s := ''; s1 := ''; s2 := ''; s3 := ''; for i := 0 to 3 do begin b := lo(_eax); s3 := s3 + chr(b); b := lo(_ebx); s := s + chr(b); b := lo(_ecx); s1 := s1 + chr(b); b := lo(_edx); s2 := s2 + chr(b); _eax := _eax shr 8; _ebx := _ebx shr 8; _ecx := _ecx shr 8; _edx := _edx shr 8; end; s_all := s_all + s3 + s + s1 + s2; asm mov eax,$80000004 db $0F db $A2 mov _eax,eax mov _ebx,ebx mov _ecx,ecx mov _edx,edx end; s := ''; s1 := ''; s2 := ''; s3 := ''; for i := 0 to 3 do begin b := lo(_eax); s3 := s3 + chr(b); b := lo(_ebx); s := s + chr(b); b := lo(_ecx); s1 := s1 + chr(b); b := lo(_edx); s2 := s2 + chr(b); _eax := _eax shr 8; _ebx := _ebx shr 8; _ecx := _ecx shr 8; _edx := _edx shr 8; end; info('Brand String: ', ''); if s2[Length(s2)] = #0 then setlength(s2, Length(s2) - 1); info('', ' - ' + s_all + s3 + s + s1 + s2); end else info(' - Extended CPUID ', 'Not Supported.'); end; procedure Tfrm_main.info(s1, s2: string); begin if s1 <> '' then begin img_info.Canvas.Brush.Color := clblue; img_info.Canvas.Font.Color := clyellow; img_info.Canvas.TextOut(gn_text_x, gn_text_y, s1); end; if s2 <> '' then begin img_info.Canvas.Brush.Color := clblue; img_info.Canvas.Font.Color := clWhite; img_info.Canvas.TextOut(gn_text_x + img_info.Canvas.TextWidth(s1), gn_text_y, s2); end; Inc(gn_text_y, 13); end; end. --------- В будущем определено одно - неопределенность будущего!

Ответ отправил: Arvist (статус: 3-ий класс) Ответ отправлен: 10.10.2006, 10:14

Отвечает: Sattar Здравствуйте, Сергей Викторович! http://www.codenet.ru/progr/delphi/stat/System-Information.php

Ответ отправил: Sattar (статус: 1-ый класс) Ответ отправлен: 10.10.2006, 13:00 Оценка за ответ: 4 Комментарий оценки: тоже это смотрел

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Сергей Викторович! Много статей по этому и другим вопросам есть в DelphiWorld - вообще, очень полезный архив статей. Но если все качать канал не позволяет, то на этой странице есть некоторые вещи, которые можно узнать о компьютере, ОС и железе. Удачи! --------- Ответы на все вопросы - на сайте www.ya.ru ☺

Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент) Ответ отправлен: 10.10.2006, 13:36

Отвечает: /Iorpy$ Здравствуйте, Сергей Викторович! Посмотрите здесь: http://www.delphirus.com.ru/modules.php?name=News&file=article&sid=82 Я думаю, разобраться вам будет не проблемно. Если что - вышлю исходник, сделланый по этой статье. --------- Если чего-то не знаешь, спроси: тебе ответят те, кто знают!

Ответ отправил: /Iorpy$ (статус: 2-ой класс) Ответ отправлен: 11.10.2006, 00:49

Вопрос № 58.383

Здравствуйте! Возможно ли чтение из DBGride или из файла базы данных строк и полей с последующей их записью в файл с расширением *.doc или в *.txt? Если возможно то как? P.S.Больше меня интересует запись в файл с расширением *.doc.

Отправлен: 10.10.2006, 13:10 Вопрос задал: KuchumHan (статус: Студент) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Кулаков Антон Сергеевич /SandroNec Здравствуйте, KuchumHan! Почитайте информацию по работе с word`ом в delphi. Просто запустите поисковик и найдите подобную инфу. А там уже выбирайте хоть в *.doc хоть в *.xls --------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как

Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 2-ой класс) Ответ отправлен: 10.10.2006, 14:44

Отвечает: Gh0stik Здравствуйте, KuchumHan! Первоначальне компоненты которые Вам потребуются: Button1: TButton; //вкладка Standart ADOConnection1: TADOConnection; //вкладка ADO tb_All: TADOTable; //вкладка ADO WordApp: TWordApplication; //вкладка Servers Далее настраеваем соединение с базой и заполняем при помощи процедуры шаблон документа(см. приложение). Да не забудте создать шаблон (.dot) который Вы будете заполнять базу. Так же прикрепляю к ответу полный проект. Удачи!!! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleServer, WordXP; type TForm1 = class(TForm) Button1: TButton; ADOConnection1: TADOConnection; tb_All: TADOTable; WordApp: TWordApplication; tb_AllID_Elektrovoz: TWideStringField; tb_AllAll_path: TIntegerField; tb_AllPath_kr2: TIntegerField; tb_AllPath_kr1: TIntegerField; tb_AllPath_tr3: TIntegerField; tb_AllPath_tr2: TIntegerField; tb_AllPath_tr1: TIntegerField; tb_AllPath_to3: TIntegerField; tb_AllCur_path: TIntegerField; tb_AllCur_data: TDateTimeField; tb_AllRemont: TBooleanField; tb_AllCur_list: TWideStringField; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Shablon:OleVariant; i,rowc:integer; begin Shablon:=ExtractFilePath(Application.ExeName)+'r_data.dot'; with WordApp do begin ConnectKind:=ckRunningOrNew; AutoQuit:=false; Options.CheckSpellingAsYouType:=true;//не проверяем синтаксис Options.CheckGrammarAsYouType:=true; //не проверяем грамматику Visible:=false; //видно ли Word Documents.Add(Shablon,EmptyParam,EmptyParam,EmptyParam); tb_All.First; while not tb_All.Eof do begin ActiveDocument.Tables.Item(1).Rows.Add(EmptyParam);//добавляем в таблицу сртоку rowc:=ActiveDocument.Tables.Item(1).Rows.Count; ActiveDocument.Tables.Item(1).Cell(rowc,1).Range.Text:=IntToStr(rowc-1); for i:=0 to 8 do begin ActiveDocument.Tables.Item(1).Cell(rowc,i+2).Range.Text:=tb_All.Fields[i].AsString; end; tb_All.Next; end; end; {with WordApp} Shablon:=ExtractFilePath(Application.ExeName)+'report_'+DateToStr(Date)+'.doc'; WordApp.ActiveDocument.SaveAs(Shablon,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); WordApp.Disconnect; WordApp.Quit; end; end. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Практикант) Ответ отправлен: 10.10.2006, 14:49 Оценка за ответ: 5

Отвечает: Arvist Здравствуйте, KuchumHan! Рекмендую Вам установить и исользовать компоненты TMS Grids которые можно найти в интернете, а также они поставляются на диске Companion Tools с Delphi Компоненты являются расширенными функционально вариантами DBGrid и StringGrid и позволяют сохранять таблицы в файлах различных форматов. Название компонент в приложении Приложение: DBAdvStringGrid AdvStringGrid --------- В будущем определено одно - неопределенность будущего!

Ответ отправил: Arvist (статус: 3-ий класс) Ответ отправлен: 10.10.2006, 15:36 Оценка за ответ: 5 Комментарий оценки: и на том спасибо

Отвечает: Sattar Здравствуйте, KuchumHan! var Form1: TForm1; Word,Range1:Variant; i:integer; implementation uses Olectnrs,comobj; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin try Word:=CreateOleObject('Word.Application'); Word.Visible:=True; except Showmessage('Microsoft Word не встановлений!'); end; Word.Documents.add; Word.ActiveDocument.Paragraphs.Add; Range1:=Word.ActiveDocument.Paragraphs.Item(1).Range; Table1.First; for i:=0 to Table1.RecordCount-1 do begin Range1.InsertBefore(Table1.FieldByName('FIELD1').AsString+' '); Range1.InsertBefore(Table1.FieldByName('FIELD2').AsString+' '); Range1.InsertBefore(Table1.FieldByName('FIELD3').AsString+' '); Table1.Next; end; Word.Activedocument.SaveAs('Base.doc'); Word.Quit; Showmessage('Дані передані в Microsoft Word та збережені в Моїх Документах'); end;

Ответ отправил: Sattar (статус: 1-ый класс) Ответ отправлен: 11.10.2006, 18:59 Оценка за ответ: 5

Вопрос № 58.413

Подскажите пожалуйста. Как добавит в Word свою менюшку если Word я открываю из своей программы, или добавить окошко поверх Word`a, но с возможностью переключения между ними. ПАСИБА

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

Отвечает: Хлызов Алексей Здравствуйте, Ton! Если ты Word открываешь из своей программы, то ты тогда и меню делай из своей программы! Если хочешь окошко поверх Word'а, тогда учи WinAP!

Ответ отправил: Хлызов Алексей (статус: 1-ый класс) Ответ отправлен: 10.10.2006, 17:10

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