Скачать: CL | DM;

Как запустить с невидимой формой? И по поводу 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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.052 c