Acredito que você terá que fazer uma função recursiva p/ varrer as sub-pastas. Veja as funções FindFirst, FindNext, FindClose e a estrutura TSearchRec.
Olá colega, você pode fazer isso no próprio TPopupMenu. 1-Ative a propriedade OwnerDraw. 2-No evento onDrawItem dos TMenuItem coloque: ACanvas.Brush.Color := {cor de fundo}; ACanvas.Font.Color := {cor da fonte}; ACanvas.TextRect(ARect, 3, 2, 'Descrição do ítem');
Assim não deve funcionar mesmo. Faltou você informar year, month e day. Se você não quiser informá-los, chame GetLocalTime(st) e depois sete somente a hora.
Creio que seu MainForm é o Form de login. Se for isso você tem que mudar seu Form de login p/ um Form secundário. Para que os MDIChild possam ser exibidos, o Application.MainForm deve ser um MDIForm.
Realmente quando você abre uma query e o database está fechado, automaticamente ele é aberto. Uma forma de contornar isso seria você forçar um erro antes da abertura da query no evento onBeforeOpen:
procedure TForm1.Query1BeforeOpen(DataSet: TDataSet);
begin
if not Database1.Connected then
TQuery(DataSet).DatabaseName := ''
else
TQuery(DataSet).DatabaseName := 'Nome do database';
end;
Olá, bom quando você chama o taskmgr, o programa sempre aparece lá. Tirá-lo de lá por enquanto eu não sei e ficaria muito grato se alguém soubesse e postasse a solução neste tópico.
Olá colegas ! 1-Bom parece que ele só quer o programa visível nos programas em execução. 2-RegisterServiceProcess só funciona em Windows 9x/ME, em NT/XP não funciona.
Olá Arlon, bom pelo que ví, você instancia duas vezes a tela de Splash: FormSplash := TFormSplash.Create(Application); // primeira vez Application.CreateForm(TFormSplash, FormSplash); // segunda vez Tente retirar o CreateForm e ShowModal do TFrmAcesso e no evento onShow do seu FrmPrincipal coloque: FrmAcesso := TFrmAcesso.Create(Application); FrmAcesso.ShowModal; Veja também se no onClose do FrmAcesso você o libera.