Текущий архив: 2006.04.02;
Скачать: 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 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.068 c
