Olha, eu acho que pelo path não dá, mas você pode saber se um programa está
em execução ou não com o seguinte trecho de código:
procedure TForm4.FormClick(Sender: TObject);
begin
if FindWindow(nil, 'Form4') > 0 then
ShowMessage('exec');
end;
tem outras maneiras mas, esta é a mais simples.
Freddo.
> msn: freddodp...@hotmail.com
> Skype: r.freddo
> Rondonópolis/MT
>
>
> De: Aureo Koppe >
>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Terça-feira, 15 de Dezembro de 2009 11:13:11
> Assunto: Re: [delphi-br] Odont
Uma dica: Quando teu programa usa várias thread's, e principalmente quando
uma destes thread modifica outra ou duas thread modificam um mesmo arquivo,
se for o caso, você terá que colocar um bom mecanismo de bloqueio, ou seja
se uma thread está gravando em um determinado arquivo, então nehuma outra
Eu estou desenvolvendo um módulo para desenhar o odontograma, e vou ter que
mandar desenhar os objetos, dentes canais, coroas etc.., provavelmente
você vai ter que fazer a mesma coisa.
2009/12/11 Richardson Freddo
>
>
>
>
> E ai galera, estou de volta.
>
> Alguem ai ja trabalhou com Odont
ParamByName é uma função, e depois você não está comitando os dados
alterados no servidor
Tente assim:
D.Transaction1.StartTransaction;
D.Procura3.Close;
D.Procura3.SQL.Text := 'INSERT INTO MATERIAPRIMA (CODIGO,COD,QTD)
VALUES (:CODIGO,:COD,:QTD)';
D.Procura3.Param[0].AsString := LABEL7.Caption;
D
Não precisa simular nada, é só usar o evento OnChange do TPageControl
e colocar isso por exemplo:
case PageControl.TabIndex of
0 : "executa um evento";
1 : "executa outro evento";
2 : "faz alguma coisa";
end;
2008/7/22 Felipe Milagres <[EMAIL PROTECTED]>:
> oi,
>
> estou precisando
6 matches
Mail list logo