Как найти каталог 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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 150 • TDictionary Custom Sort 3 330 • Fast Watermark Sources 3 077 • 3D Designer 4 839 • Sik Screen Capture 3 332 • Patch Maker 3 546 • Айболит (remote control) 3 651 • ListBox Drag & Drop 3 006 • Доска для игры Реверси 81 656 • Графические эффекты 3 935 • Рисование по маске 3 240 • Перетаскивание изображений 2 621 • Canvas Drawing 2 744 • Рисование Луны 2 572 • Поворот изображения 2 179 • Рисование стержней 2 167 • Paint on Shape 1 567 • Генератор кроссвордов 2 233 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 222 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 056 • Игра HIP 1 281 • Игра Go (Го) 1 228 • Симулятор лифта 1 473 • Программа укладки плитки 1 216 • Генератор лабиринта 1 546 • Проверка числового ввода 1 362 • HEX View 1 495 • Физический маятник 1 358