Четверг, 05.12.2024, 22:27 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Определить видеокарту
virusik85Дата: Воскресенье, 18.11.2012, 17:20 | Сообщение # 1
Частый гость
Зарегистрирован: 10.11.2012
Группа: Пользователи
Сообщений: 27
Статус: Offline
Нужна программа (консольный режим) чтоб при запуске записывала в текстовый файл название видеокарты.
 
Marra_KeshДата: Воскресенье, 18.11.2012, 19:39 | Сообщение # 2
Постоянный
Зарегистрирован: 19.12.2009
Группа: Модераторы
Сообщений: 182
Статус: Offline
True-кодеры закрывайте глаза ибо ниже самый что ни на есть "БЫДЛО-code"
Прикрепления: 7144963.zip (200.6 Kb)


Сообщение отредактировал Marra_Kesh - Понедельник, 19.11.2012, 00:23
 
virusik85Дата: Воскресенье, 18.11.2012, 19:43 | Сообщение # 3
Частый гость
Зарегистрирован: 10.11.2012
Группа: Пользователи
Сообщений: 27
Статус: Offline
Спасибо, не консольный режим но главное что робит так как надо.

Сообщение отредактировал virusik85 - Понедельник, 19.11.2012, 00:29
 
NeoДата: Понедельник, 19.11.2012, 04:50 | Сообщение # 4
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Quote (virusik85)
Спасибо, не консольный режим но главное что робит так как надо.

А вот тоже самое,только консольно))))
Code

program Project2;
uses
   WIndows;

Procedure GetVideoDate(name:string);
var
    lpDisplayDevice: TDisplayDevice;
    dwFlags: DWORD;
    cc: DWORD;
    F:TextFile;
    S:String;
begin
  AssignFile(F,name);
  ReWrite(F);
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc:= 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
    begin
      S:=lpDisplayDevice.DeviceString;
      Inc(cc);
      WriteLn(F,s);
    end;
CloseFile(F);
end;

begin
   GetVideoDate('D:\123.txt');
end.

 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz