Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Обсуждение статей
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2007, 03:17   #1
Pblog
Бот
Администратор
 
Регистрация: 27.05.2007
Сообщений: 182
Стрелка обновление в блоге - Windows

Windows

pblog.ruНадо узнать, где запрятана, на компьютере, эта глюченая, но родная система под названием windows:
Private
Windir: string;
WindirP: PChar;
Res: Cardinal;
procedure TForm1.Button1Click(Sender: TObject);
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);
Caption := WinDir;
end;
Теперь надо выяснить, что за windows и dos перед нами. Думаю, пару label и одной button хватит:
(more…)
Pblog вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
обновление в блоге - Работа с устройствами в Windows Pblog Обсуждение статей 0 03.06.2008 12:30
обновление в блоге - USB Грелка Pblog Обсуждение статей 0 04.10.2007 15:20
обновление в блоге - О ярлыках Pblog Обсуждение статей 0 27.05.2007 03:17