|
virusik85
|
Дата: Воскресенье, 18.11.2012, 17:20 | Сообщение # 1
|
Новичок
Группа: Пользователи
Сообщений: 5
Статус: Offline
|
Нужна программа (консольный режим) чтоб при запуске записывала в текстовый файл название видеокарты. |
| |
|
|
|
Marra_Kesh
|
Дата: Воскресенье, 18.11.2012, 19:39 | Сообщение # 2
|
Продвинутый
Группа: Модераторы
Сообщений: 178
Статус: Offline
|
True-кодеры закрывайте глаза ибо ниже самый что ни на есть "БЫДЛО-code"
Сообщение отредактировал Marra_Kesh - Понедельник, 19.11.2012, 00:23
|
| |
|
|
|
virusik85
|
Дата: Воскресенье, 18.11.2012, 19:43 | Сообщение # 3
|
|
Новичок
Группа: Пользователи
Сообщений: 5
Статус: Offline
|
Спасибо, не консольный режим но главное что робит так как надо.
Сообщение отредактировал virusik85 - Понедельник, 19.11.2012, 00:29
|
| |
|
|
|
Neo
|
Дата: Понедельник, 19.11.2012, 04:50 | Сообщение # 4
|
Модератор
Группа: Модераторы
Сообщений: 152
Статус: 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.
|
| |
|
|
