[Usar declaracoes de um void em outro]

Deixa eu ver se entendi, primeiro eu declaro os void...

E depois da funcao principal (main) que eu os crio???

não estou consseguindo, o que fiz foi isso.

No inicio do programa:

[...]
using namespace std;
void gera_conta (int conta);
void menu_caixa (int opcao);

int main ()
{
return 0;
}

void gera_conta [...]
void menu_caixa [...]

Porem ainda me retorna varios erros dizendo que as variaveis não estão declaradas.

ex:

error: `opcao' was not declared in this scope

error: `vet' was not declared in this scope

error: `x' was not declared in this scope

error: `valor' was not declared in this scope

etc...

Estou fazendo o que errado???

Valeu

[Usar declaracoes de um void em outro]

Ola pessoal, estou em um trabalho da facul e estou parado em um problema...

E o seguinte:

Tenho 2 void, o primeiro gera uma conta qualquer e um valor.

Ela esta funcionando perfeitamente..

O parâmetro dela e o seguinte:

void gerador (int vet[], float vet2[])

e o outro void que eu tenho e o:

void menu ()

Ai que esta meu problema.. No segundo void tenho que puxar os valores do vet[] e vet2[], que são do primeiro void. O programa ao compilar da erros dizendo que 'vet' não existe, etc (coisas que foram declaradas no primeiro void e preciso usar no segundo) Tentei fazer da seguinte forma: A mesma coisa que no primeiro void.

void menu (int vet[], float vet2[])

Porem continuam os erros do mesmo jeito.

Minha duvida e se existe um modo de como fazer isso... um void usar as declarações do outro void.

Abracos pessoal :)

ps: não coloquei o code porque não estou com ele..

[Erro Ao Compilar...]

Ola galera, estou criando um mini firewall (muito simples) coloquei para ele somente monitorar 2 portas que podem ser invadidas para quando alguém tentar... o programa acusar e dar o IP do atacante.

Pois bem... ai vai a foto do erro.

e o Souce dele

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FtpSrv, StdCtrls, ftpsrvC;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Netbus: TFtpServer;
    Subseven: TFtpServer;
    procedure NetbusClientConnect(Sender: TObject; Client: TFtpCtrlSocket;
      AError: Word);
    procedure SubsevenClientConnect(Sender: TObject;
      Client: TFtpCtrlSocket; AError: Word);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NetbusClientConnect(Sender: TObject;
  Client: TFtpCtrlSocket; AError: Word);
begin
    Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou netbus 1.x);
    netbus.DisconnectAll;
end;

procedure TForm1.SubsevenClientConnect(Sender: TObject;
  Client: TFtpCtrlSocket; AError: Word);
begin
      Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou subseven 1.x');
      subseven.DisconnectAll;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add('Monitorando');
   netbus.Start;
   subseven.start;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Memo1.Lines.Add('Monitoramento Parado');
    netbus.Stop;
    subseven.Stop;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Memo1.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Se alguém souber o que estou fazendo de errado, que me ajudar por favor... já tentei de tudo e nada...

:rolleyes:

[Fechar Processos (ajuda Por Favor)]

Vlw mano, não é que eu esteja distraido... é que comecei a estudar delphi a 1 semana, sem ajuda de ninguém... sou bem novato na area.

Somente com tutoriais da net e por ai vai.

Mas vou estudar bastante o que você esta explicando.

Valeu!! vou prestar mais atenção no código do programa

[Fechar Processos (ajuda Por Favor)]

Pow mano, muito obrigado mesmo, voce me ajudou bastante.

Valeu pro Micheus tambem. A vocês 2 que me ajudaram.

Deu certinho aqui, não sei o que tava fazendo de errado... mas vou ficar comparando o codigo e estuda-lo para ver onde estava errando.

Abraços!! :D

[Fechar Processos (ajuda Por Favor)]

Olha so, me corrija se eu estiver errado. Estou fazendo isso e esta dando errado

Esse codigo aqui eu coloco dentro do form. (apago tudo que já está dentro do form e colo esse aqui)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;

type

TForm1 = class(TForm)

...

end;

...

var

Form1: TForm1;

implementation

uses

Tlhelp32;

// **************************************************

// For Windows 9x/ME/2000/XP

// **************************************************

function KillTask(ExeFileName: string): Integer;

const

PROCESS_TERMINATE = $0001;

var

ContinueLoop: BOOL;

FSnapshotHandle: THandle;

FProcessEntry32: TProcessEntry32;

begin

Result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := SizeOf(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do

begin

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =

UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =

UpperCase(ExeFileName))) then

Result := Integer(TerminateProcess(

OpenProcess(PROCESS_TERMINATE,

BOOL(0),

FProcessEntry32.th32ProcessID),

0));

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);

end;

E esse aqui coloco dentro do botão.

procedure TForm1.Button1Click(Sender: TObject);

begin

KillTask('notepad.exe');

end;

Estou fazendo isso que descrevi ai em cima...

E agora esta dando erro no

procedure TForm1.Button1Click(Sender: TObject);

Dizendo : [Error] Unit1.pas(50); Statement expected but 'PROCEDURE' found

Re-analize e veja se estou fazendo algo errado, muito obrigado mais uma vez por tentar me ajudar. :)

Valeu!!

[Fechar Processos (ajuda Por Favor)]

Muito obrigado por vome me responder Micheus, mas infelizmente não conssegui.

Não sei se foi erro meu ou o code, mas dava diverssos erros... estou comecando agora com delphi, não sei muito bem...

Vou tentar dar uma outra esplicada para ver se alguém conssegue me entender.

Eu estou criando um programa para finalizar processos do Windows, deem uma olhada na foto do programa com a janela dos processos do Windows aberta para entenderem melhor o que estou tentando fazer.

Foto do programa

Estou precisando que quando clique na 1 janela, finaliza o firefox... que esta rodando.

quando clico na 2, finaliza o antivirus nod32... e assim por diante.

Eu já peguei um pronto, não lembro aonde, que voce clica em processos, aparece todos os processos rodadando, ai voce seleciona o desejado e clica em fexar, ele fexa...

Mas estou mesmo precisando fazer assim como falei la em cima, clico no botão, fexo...

Se alguém consseguir me ajudar ficarei muito grato de verdade, porque estou impacado... já tentei de tudo, em muitos foruns sobre delphi e ninguém sabe, ou não querem falar..

É isso ai, se mais alguém consseguir me dar uma luz.

[Fechar Processos (ajuda Por Favor)]

Olá para todos os membros do forum, a um tempo venho aconpanhando o site do scriptbrasil e realmente é muito bom.

Hoje estou com uma tremenda duvida, para alguns pode ser muito facil... mas estou quebrando a cara tentando e tentando sem sucesso.

O problema é o seguinte... eu já criei um programinha para fechar processos que o windows esta execultando...

Só que agora não sei o codigo para fechar esses processos.

Segue a imagem..

http://img407.imageshack.us/img407/3199/fotoov6.jpg

Olhem os processos rodando.. eu estou atras de um codigo que faça feixar ele(s).

Este é meu primeiro post no forum, ficaria muito grato se alguém consseguir me ajudar..

Valeu pra todos..