Управление windows с помощью delphi

[Hallo]

От автора
Здравствуйте. В этом учебники я напишу, как обращаться с Windows’ом. Учебник это, по сути, набор статей по работе с определёнными разделами Windows.

Начнём с рабочего стола
Разберём панель задач Меню Пуск.
Работа с файлами
Ярлыки
Реестр
Немного о Windows
Панель управления
Монитор
CD-rom
Мышь
Клавиатура.

[Rin]

попробовал осуществить то, что написано в статье "Немного о Windows".
В console aplication оно не прокатывает -
[Pascal Error] Project1.dpr(8): E2004 Identifier redeclared: 'System'

код таков:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,  windows, system;

var
   Windir: string;
   WindirP: PChar;
   Res: Cardinal;

   WinVersion, DosVersion: Word;

{$R *.dfm}

{Надо узнать, где запрятана, на компьютере, эта глюченая,
 но родная система под названием windows:}

 begin
  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
    WinDir := StrPas(WinDirP);
  writeln(WinDir);


//Теперь надо выяснить, что за windows и dos перед нами.
// Думаю, пару label и одной button хватит:



  WinVersion := GetVersion and $0000FFFF;
  DosVersion := GetVersion shr 16;
  writeln(IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion)));
  writeln(IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion)));

end.

В чём собственно проблема? Точнее в чём проблема , я понимаю, а вот почему???

[DIgorevich]

Всё работает:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,  windows, system;
var
   Windir: string;
   WindirP: PChar;
   Res: Cardinal;
   WinVersion, DosVersion: Word;
begin
  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
    WinDir := StrPas(WinDirP);
  writeln(WinDir);
  WinVersion := GetVersion and $0000FFFF;
  DosVersion := GetVersion shr 16;
  writeln(IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion)));
  writeln(IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion)));
end.

[Rin]

хм, Я на turbo Delphi это делаю. У меня этот код не фурычит.
попробовал скопировать модуль и переименовать его в System1.pas и в заголовке самого pas файла переименовать. Записал в uses так:

uses windows, SysUtils,
system1 in 'C:\Program Files\Borland\BDS\4.0\source\Win32\rtl\sys\System1.pas';

так он мне ещё больше ошибок понавыдовал))

[Pascal Error] System1.pas(291): E2211 Declaration of 'QueryInterface' differs from declaration in interface 'IInterface'
[Pascal Error] System1.pas(1742): E2004 Identifier redeclared: 'SysInit'
[Pascal Error] System1.pas(3329): E2251 Ambiguous overloaded call to 'ChDir'
to 'MkDir'
to 'RmDir'
[Pascal Error] System1.pas(13372): E2105 Inline assembler syntax error
[Pascal Error] System1.pas(17688): E2251 Ambiguous overloaded call to 'EnumModules'
................................... .........
и в заключении на десерт дал это =)
[Pascal Fatal Error] Project1.dpr(6): F2063 Could not compile used unit 'C:\Program Files\Borland\BDS\4.0\source\Win32\ rtl\sys\System1.pas'

видать гиблое дело на turbo Delphi работать.
Но мне очень всё таки интересно, почему же именно на System он ругается. Ни windows, ни SysUtils, а именно System?

Во, а какой скрипт поставить, чтобы не проверялись ошибки?
как то {-R*.} или как то так.... не помню уже.

[JTG]

oO а зачем вообще явно system указывать? Он же и так в обязательном порядке подключается к любому проекту, потому и Identifier redeclared

[raxp]

вот именно, не нужно ...TurboDelphi-Lite, работает.

[Rin]

ага , понятно. Убрал, заработало!!! Thanks.