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

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

Как запустить с невидимой формой? И по поводу GetFileAttributes. [D7, XP]

WestBronx ©   (2006-03-21 15:17:00) 

В Form1Create:

<...>
//Стоитли галочка "Запускать свёрнутым"?
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if not Reg.KeyExists('\SOFTWARE\WestBronx') then
 Reg.CreateKey('\SOFTWARE\WestBronx');
Reg.OpenKey('\SOFTWARE\WestBronx',True);
startmin := Reg.ReadString('StartMin');
Reg.CloseKey;
Reg.Free;

If startmin = '1' then
begin
 RxTrayIcon1.Active := True;
  Form1.Visible := False;
 CheckBox2.Checked := True;
end;
<...>

Где-бы прописать выделенный текст? Что бы программа запускалась "невидимой"?

И есчё вопрос:

IF GetFileAttributes(PChar(SearchRec.Name)) = $02 then else
LB1.Items.Add(SearchRec.Name);


Подправьте, мне нужно проверить, является ли фаил "скрытым".
Код, работает, но если в атрибутах файла стоит более 1-го параметра, то несрабатывает =/

---

WestBronx   (2006-03-21 15:58:00) [1]

(GetFileAttributes(PChar(SearchRec.Name)) and FILE_ATTRIBUTE_HIDDEN) <> 0

Несработало =/

---

WestBronx   (2006-03-21 15:29:00) [2]

clickmaker ©   (21.03.06 15:24) [1]
Спасибо.

---

clickmaker   (2006-03-21 15:24:00) [3]

> Где-бы прописать выделенный текст? Что бы программа запускалась
> "невидимой"?

Application.ShowMainForm := false;
перед Initialize

> Код, работает, но если в атрибутах файла стоит более 1-го
> параметра, то несрабатывает

(GetFileAttributes(PChar(SearchRec.Name)) and FILE_ATTRIBUTE_HIDDEN) <> 0

---

Наверх