| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как? 3 Вопроса! [Win95/98, Win2k, WinXP]

Malc ©   (2002-10-21 05:34:00) 

1.Как увести win9x в спящий(ждущий) режим
2.Как получить путь к папке Temp
3.Как удалить все файлы из папки(этот вопрос, плиззз поподробнее)
Спасиба.

---

Song   (2002-10-21 09:10:00) [1]

1.SetSystemPowerState()

---

Rouse_   (2002-10-21 06:26:00) [2]

1.
ExitWindowsEx(EWX_POWEROFF,0);

2.
var s:String;
begin
SetLength(s,255);
GetTempPath(255,PChar(s));

3.
FUNCTION DELETEFILEWITHUNDO( SFILENAME : STRING ) : BOOLEAN;
VAR FOS : TSHFILEOPSTRUCT;
BEGIN
SFILENAME:= SFILENAME+#0;
FILLCHAR( FOS, SIZEOF( FOS ), 0 );
WITH FOS DO BEGIN
WFUNC := FO_DELETE;
PFROM := PCHAR( SFILENAME );
FFLAGS := FOF_ALLOWUNDO OR FOF_NOCONFIRMATION OR FOF_SILENT;
END;
RESULT := ( 0 = SHFILEOPERATION( FOS ) );
END;

Желаю успехов

---

Наверх