Como deixar aplicativo na barra de tarefas
Olá pessoal,
Peguei no endereço http://www.forumweb.com.br/index.php?showtopic=5538&hl=impressora um aplicativo q define como padrão a(s) impressora(s) exibidas em um ListBox e gostaria de saber como fazer para q este aplicativo fique na barra de terefas e inicialize junto com o Windows.
Grato,
Ilano.
Peguei no endereço http://www.forumweb.com.br/index.php?showtopic=5538&hl=impressora um aplicativo q define como padrão a(s) impressora(s) exibidas em um ListBox e gostaria de saber como fazer para q este aplicativo fique na barra de terefas e inicialize junto com o Windows.
Grato,
Ilano.
Ilanocf
Curtidas 0
Respostas
Bisao
04/11/2003
Ola, acho q é isso q vc procura:
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);
S2:=ExtractFileName(Application.ExeName);
S:=S+´\´+S2;
reg.RootKey:=HKEY_USERS;
reg.Openkey (´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Logo´, s);
button1.click;
end;
Espero ter ajudado.
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);
S2:=ExtractFileName(Application.ExeName);
S:=S+´\´+S2;
reg.RootKey:=HKEY_USERS;
reg.Openkey (´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Logo´, s);
button1.click;
end;
Espero ter ajudado.
GOSTEI 0