Acho que isso pode te ajudar:
uses registry;
var reg:TRegIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
Reg:=TRegIniFile.Create('LloydSoft');
{HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}
S:=ExtractFileDir(Application.ExeName);
Bom, Jean
Eu estou a disposição para o projeto proposto, sou iniciante nio delphi tenho
pouca experiencia mas, se precisar é so me reponder.
De: delphi-br@yahoogrupos.com.br em nome de delphijean
Enviada: sex 22/12/06 09:39
Para:
Virgilho,
eu uso meu cria uma form de formato elíptico assim.
no evento OnClick do form (de preferência troque a
propriedade BorderStyle para bsNone, e deixe os
componentes mais ao centro do form):
procedure TForm1.FormCreate(Sender: TObject);
var
hR : THandle;
begin
hR := CreateEllipticRgn
3 matches
Mail list logo