Hora de abertura da janela

Question

pra saber o nome da janela ativa getwindowtext retorna.
mas tem como alem de saber o nome dessa janela saber a hora que foi aberta ???????

[color=green:2d38993abd]T�tulo editado por gandalf.nho. Favor n�o postar em mai�sculas[/color:2d38993abd]

Paullsoftware · Answer

No evento onclick do componente que abre o form fa�a...

varHora := FormatDateTime(�hh:mm:ss:�,Now); //VarHora do tipo String
VarForm := screen.activeform.name+#10; //VarForm do tipo String

basta guardar essas informa��es em uma tabela...

tbeventos.open;
tbeventos.append;
tbeventoshora.AsString := VarHora;
tbeventosform.AsString := VarForm;
tbeventos.post;

espero ter ajudado! :wink:

Mark_h0ppus · Answer

assim dah mai eu queria por exemplo quando eu pegar o nome da janela ativa[essa janela pode ser qualquer programa do windows] pegar a hora de abertura dessa janela ser� que tem como ???...

Beppe · Answer

Vc deve associar de alguma forma a hora com o form. Uma sa�da seria criar um campo em um form, e descender todos os seus forms dele. Ou ent�o usar a tag de cada um.

No OnShow:

if Tag <> 0 then StrDispose(Pointer(Tag));
Tag := Integer(StrNew(VarHora));

No OnDestroy:

StrDispose(Pointer(Tag));

Mark_h0ppus · Answer

naum vleho vc naum entende a pergunta queria que poder pega a hora de abertura de uma janela do word, de um bloco de notas, de um campo minado, de um site porno etc entende  ??????????...

Beppe · Answer

Eu disse: �Vc deve associar de alguma forma a hora com o form.� O Windows n�o faz isso. Ao menos, n�o libera esta informa��o....

Adriano Santos · Answer

Cara tem um exemplo do que vc quer aqui mesmo no site do clube, mas ai vai.

function ActiveCaption: string; var Handle: THandle; Len: LongInt; Title: string; begin Handle := GetForegroundWindow; Len := GetWindowTextLength(Handle) + 1; SetLength(Title, Len); GetWindowText(Handle, PChar(Title), Len); ActiveCaption := TrimRight(Title); end;

use a fun��o assim:

if (ActiveCaption <> WindowOld) and (ActiveCaption <> ��) then begin WindowOld := ActiveCaption; Memo1.Lines.Add( FormatDateTime(�DD/MM/YYYY�,Date) + � � + TimeToStr(Time) + � - � + ActiveCaption); end;

[b:5d0a3109a8][color=red:5d0a3109a8]coloque dentro de um timer[/color:5d0a3109a8][/b:5d0a3109a8]

[b:5d0a3109a8][color=blue:5d0a3109a8]Estou usando e funciona perfeitamente[/color:5d0a3109a8][/b:5d0a3109a8]

F�rum Hora de abertura da janela #287100