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.
