Как найти каталог 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 1 033 • DeLiKaTeS Tetris (Тетрис) 5 963 • TDictionary Custom Sort 7 903 • Fast Watermark Sources 7 566 • 3D Designer 10 804 • Sik Screen Capture 8 134 • Patch Maker 8 320 • Айболит (remote control) 8 381 • ListBox Drag & Drop 7 234 • Доска для игры Реверси 101 406 • Графические эффекты 8 441 • Рисование по маске 7 810 • Перетаскивание изображений 6 399 • Canvas Drawing 6 781 • Рисование Луны 6 711 • Поворот изображения 5 820 • Рисование стержней 4 770 • Paint on Shape 3 467 • Генератор кроссвордов 4 473 • Головоломка Paletto 3 605 • Теорема Монжа об окружностях 4 401 • Пазл Numbrix 2 854 • Заборы и коммивояжеры 3 804 • Игра HIP 2 568 • Игра Go (Го) 2 581 • Симулятор лифта 2 962 • Программа укладки плитки 2 393 • Генератор лабиринта 3 148 • Проверка числового ввода 2 629 • HEX View 3 038