Para abrir o arquivo com o programa associado no S.O.:
procedure ExecFileAssociado(F: String);
var
r: String;
begin
case ShellExecute(0{Handle}, nil, PChar(F), nil, nil, SW_SHOWNORMAL) of
ERROR_FILE_NOT_FOUND: r := 'The specified file was not found.';
ERROR_PATH_NOT_FOUND: r := 'The
Se não me engano, MB_DEFBUTTON2:
MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2
- Original Message -
From: Thiago Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 05, 2005 10:30 AM
Subject: [delphi-br] Botão' Não ' Focu
Amigos,
Executando esse
ShellExecute(Application.Handle, nil, PChar('www.xx.com.br'), nil, nil,
SW_SHOWNORMAL);
__
FERNANDO BELLIN
- Original Message -
From: Luciana
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 06, 2005 11:40 AM
Subject: [delphi-br] ###
Get_Tipo(Aux[1]);
Fernando.
- Original Message -
From: Ricardo Mauro
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 11, 2005 2:32 PM
Subject: [delphi-br] String to Char
Boa tarde!
Como converter um caracter do tipo String para Char.
ex.: procedure
Já tive problemas com o recordcount retornando -1. Geralmente isto acontecia
quando usava sqls do tipo select * from Geralmente, trocando o * pelos
campos (trazendo menos dados) voltava a funcionar.
Fernando.
- Original Message -
From: delphi6_2005
To:
PageControl.ActivePage:=TabSheet;
Fernando.
- Original Message -
From: Charlles Ferdinand
To: Delphi-Br
Sent: Monday, October 25, 2004 1:05 PM
Subject: [delphi-br] PageControl
Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
PageControl,
Alguns problemas similares resolvi colocando como papel personalizado nas
configurações da impressora (em vez de deixar A4 ou Letter).
__
FERNANDO BELLIN
- Original Message -
From: sr_doidera .
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [EMAIL
Em algum form você ainda tem a referência a este form na uses onde era usado.
Fernando.
- Original Message -
From: Italo Rabello
To: [EMAIL PROTECTED]
Sent: Friday, September 10, 2004 4:02 PM
Subject: [delphi-br] Removi uma unit e esta dando erro ...
Olá pessoal,
8 matches
Mail list logo