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

← →
WestBronx (2006-03-21 15:17) [0]

В 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-го параметра, то несрабатывает =/

← →
clickmaker © (2006-03-21 15:24) [1]

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

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

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

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

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

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

← →
WestBronx (2006-03-21 15:58) [3]

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

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

Как запустить с невидимой формой? И по поводу GetFileAttributes. Найти похожие ветки