Jhonas

voce deve relembrar o conceito basico de programação em fortran http://www.inf.ufes.br/~thomas/fortran/tut...npe_fortran.pdf ou veja este tópico do forum http://scriptbrasil.com.br/forum/index.php?showtopic=126726 abraço

elimine os espaços vazios do edit antes de colocar no webbrowser exemplo procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate(trim(edit1.text)); end; abraço

de um exemplo de link invertido que abre pelo navegador

voce já tentou implementar a sua idéia ? o case dentro da function deve retornar uma chamada para uma outra function ?

exemplo http://fabiosan.blog.terra.com.br/2012/01/15/dlls-no-delphi/ abraço

Os seguintes módulos parecem estar em falta ['AppKit', 'Foundation', 'OpenGL.GL', 'configparser', 'copyreg', 'dotblas', 'io', 'multiprocessing', 'numpy', 'pkg_resources', 'queue', 'winreg', 'pygame.sdlmain_osx'] esses modulos são necessarios para que o python funcione corretamente procure na net uma versão do python completa http://www.google.com.br/search?hl=pt&...c.1.kqg83Ps8coU abraço

Faça uma pesquisa na net http://www.google.com.br/search?q=computad...c.1.kUcHYhOJTAw abraço

o código funciona perfeitamente GetComputers('MSHOME',Memo1.Lines); veja que a procedure tem 2 parametros o primeiro 'MSHOME' ( é o padrão do windows, mas pode ser outro ) é o nome da sua REDE e o segundo é um componente TMemo para receber os nomes dos micros encontrados na sua rede. abraço

exemplo procedure GetComputers(Workgroup : String;Retorno:TStrings); Var EnumHandle : THandle; WorkgroupRS : TNetResource; Buf : Array[1..500] of TNetResource; BufSize : cardinal; Entries : CARDINAL; Result : dword; begin Retorno.Clear; Workgroup := Workgroup + #0; FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0); With WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 2; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle ); Repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetEnumResource(EnumHandle,Entries,@Buf,BufSize); If (Result = NO_ERROR) and (Entries = 1) then begin Retorno.Add(StrPas(Buf[1].lpRemoteName)); end; Until (Entries <> 1) or (Result <> NO_ERROR); WNetCloseEnum(EnumHandle); end; { Find All computers } procedure TForm1.Button1Click(Sender: TObject); begin GetComputers('MSHOME',Memo1.Lines); end; abraço

legal que voce tenha conseguido resolver o problema abraço

voce vai encontrar varios tutoriais para recuperação do windows na net http://www.google.com.br/search?q=recupera...c.1.ELCCcevgvlI abraço

veja esse link http://www.pythonize.org/transformando-seu...l-com-o-py2exe/ documentação do python http://docs.python.org/2/tutorial/ abraço

o problema não esta na fonte e sim no sistema operacional ... possivelmente os arquivos principais do windows foram corrompidos coloque o boot de inicialização do windows num pendrive e modifique na BIOS para dar o boot pelo pendrive e veja o que acontece abraço

voce pode baixar o arquivo desse link http://www.bvbcode.com/code/h4aet29j-1653141-down olhando nesse voce vai ver todos os .pas que fazem parte do pacote http://en.pudn.com/downloads69/sourcecode/...l246726_en.html se voce tem o delphi 7 pode usar o idHTTP da paleta indy do delphi http://www.planetadelphi.com.br/dica/6764/...p-e-progressbar abraço

Alberto, o componente NMHTTP é um componente nativo do delphi 5 que fica na paleta FastNet, no delphi 7 esta na paleta dos componentes Indy o delphi 7 não possui esta paleta ( FastNet ) mas pode ser instalada do delphi 5 voce pode tentar baixar os componente da paleta FastNet para a versão do seu delphi ou tente baixar o nmhhtp.pas desse link http://en.verysource.com/fastnet7-20379.html abraço

se este codigo está complicado, tente esse outro ( acho bem mais simples e funciona ) http://www.planet-source-code.com/vb/scrip...17&lngWId=7 abraço

mesmo usando um timer, voce verá que é necessario dar um tempo para a execução da função ... esse tempo depende do processador do micro ( pode ser maior ou menor esse tempo de espera, até a finalização da sua lista ) uma sugestão se voce usar um timer: ao inicar o procedimento, voce desabilita o timer .... ao finalizar a sua lista, voce habilita novamente o timer ...é por ai abraço

voce não disse que tinha baixado os componentes ... então era só instalar é usar o código sem alterar nada com relação ao windows 7, voce deve executar o programa como administrador com relação ao FTP, verifique se o seu firewall não esta bloqueando no windows 7, a pasta onde será salvo o arquivo, precisa ter permissão de escrita, caso contrário, não vai salvar. abraço

Se você testou você viu que da crash na aplicação, o seu código amigo, estou tentando mostrar a voce onde esta o erro ... voce percebeu que ao usar o comando GoTo GoToLabel; ocorre o erro .... então voce tem que pensar em alguma outra forma para manter a sua Thread funcionando abraço

por isso escrevi ... faça as modificações necessarias para o seu uso se quer que fique em loop basta fazer isso procedure TForm1.Button1Click(Sender: TObject); var i: integer; Label GoToLabel; begin GoToLabel : hThread := StartThread(@FecharJanela); hThread := StartThread(@FecharJanela,THREAD_PRIORITY_NORMAL); for I := 0 to ListBox1.Count-1 do FecharJanela(ListBox1.Items.Strings[i]); Application.ProcessMessages; GoTo GoToLabel; //CloseThread(hThread); end; abraço

Valeu MLeandroJr! .... só estou ajudando no que posso. abraço

CÓDIGO DO CURSO set term ^ create trigger gera_codigo_cidade for tbl_cidade before insert position 0 as begin new.cid_codigo = gen_id(gen_cod_cidade,1); eng ^ CÓDIGO DO CURSO set term ^ create trigger gera_codigo_cidade for tbl_cidade before insert position 0 as begin new.cid_codigo = gen_id(gen_cod_cidade,1); end ^ abraço

seria assim a maneira de fazer .... faça as modificações necessarias para o seu uso unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; hThread : THandle; implementation {$R *.dfm} Function StartThread(pFunction : TFNThreadStartRoutine; iPriority : Integer = Thread_Priority_Normal; iStartFlag : Integer = 0) : THandle; var ThreadID : DWORD; begin Result := CreateThread(nil, 0, pFunction, nil, iStartFlag, ThreadID); if Result <> Null then SetThreadPriority(Result, iPriority); end; Function CloseThread( ThreadHandle : THandle) : Boolean; begin Result := TerminateThread(ThreadHandle, 1); CloseHandle(ThreadHandle); end; function FecharJanela(Nome: String):String; var X: Word; H: THandle; Caption: Array[0..255] of Char; begin for X:=1 to 10000 do begin if((GetWindowText(x,Caption,255)<>0)and (GetWindowLong(x,GWL_EXSTYLE)<>0)and (GetWindowLong(x,GWL_HWNDPARENT)=0)and (GetWindowLong(x,GWL_HINSTANCE)<>0))then if(IsWindowVisible(x))then if(pos(Nome,Caption)>0) then begin H:=FindWindow(nil,Caption); SendMessage(H,WM_CLOSE,0,0); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; //Label // GoToLabel; begin // GoToLabel : hThread := StartThread(@FecharJanela); hThread := StartThread(@FecharJanela,THREAD_PRIORITY_NORMAL); for I := 0 to ListBox1.Count-1 do FecharJanela(ListBox1.Items.Strings[i]); Application.ProcessMessages; // GoTo GoToLabel; CloseThread(hThread); end; procedure TForm1.Button2Click(Sender: TObject); begin Application.ProcessMessages; CloseThread(hThread); end; end. abraço

coloque o codigo completo para poder analizar

Fiz um teste aqui e funciona perfeitamente unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function FecharJanela(Nome: String):String; var X: Word; H: THandle; Caption: Array[0..255] of Char; begin for X:=1 to 10000 do begin if((GetWindowText(x,Caption,255)<>0)and (GetWindowLong(x,GWL_EXSTYLE)<>0)and (GetWindowLong(x,GWL_HWNDPARENT)=0)and (GetWindowLong(x,GWL_HINSTANCE)<>0))then if(IsWindowVisible(x))then if(pos(Nome,Caption)>0) then begin H:=FindWindow(nil,Caption); SendMessage(H,WM_CLOSE,0,0); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for I := 0 to ListBox1.Count-1 do FecharJanela(ListBox1.Items.Strings[i]); end; end. abraço