Как найти каталог Windows 2

Win95 как самолет - тошнит, а выйти некуда!

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

...
implementation
...

var
  a : array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));

Похожие по теме исходники

БД Каталог фирм

Non Rectangular Windows

Windows Transparency

Windows Alpha-channel

Сообщения между процессами Windows

Недавно добавленные исходники
• Animation Loaders 752 • DeLiKaTeS Tetris (Тетрис) 5 740 • TDictionary Custom Sort 7 694 • Fast Watermark Sources 7 376 • 3D Designer 10 594 • Sik Screen Capture 7 902 • Patch Maker 8 131 • Айболит (remote control) 8 183 • ListBox Drag & Drop 6 984 • Доска для игры Реверси 100 275 • Графические эффекты 8 257 • Рисование по маске 7 638 • Перетаскивание изображений 6 240 • Canvas Drawing 6 611 • Рисование Луны 6 535 • Поворот изображения 5 702 • Рисование стержней 4 635 • Paint on Shape 3 336 • Генератор кроссвордов 4 313 • Головоломка Paletto 3 460 • Теорема Монжа об окружностях 4 285 • Пазл Numbrix 2 772 • Заборы и коммивояжеры 3 688 • Игра HIP 2 488 • Игра Go (Го) 2 479 • Симулятор лифта 2 874 • Программа укладки плитки 2 312 • Генератор лабиринта 3 036 • Проверка числового ввода 2 538 • HEX View 2 948