Morphadron

Segundo.... O delphi, possui uns componentes "meio pau" para fazer isso, estou falando do Shockwave 1.0, q o delphi possui... (É uma coisa assim)... Cara se você ir no www.clubedelphi.com.br você verá q vai encontrar uma pá de coisa por lá.... Abraços!!!!!! Iter

Primieramente, Registre-se no forum...

Ae gurizada, me mandem um e-mail, q eu tenho um programinha, para revelar a chave do windows.... Abraços!!!!!!!!

Cara para resetar a bios, os comandos se eu não me engano saum: debug z 70_19 70_17 é alguma coisa assim, ou se preferir, inverta os jumpers da placa, por 5 seg, e morreu, resetada a bios... Falow

Gatinha, seu pc é ninja, não é?...

Cara, o jeito q o delphi - man32 , falow estah certo, mas lembre-se, q esse tipo de busca, o FindNearest, ele é pouco usado, te dou um exempo... Um banco de dados com 5 mil registros, ele ficará pedalando umas 500 horas, ateh chegar no registro q você quer.... Falow

Cara de acordo com uns exemplos q eu peguei, é só isso... Falow!!!!

Cara, fiko feliz por você velho, parabéns.... Abraços!!!!!!!!!

Sim, é possível, cara se eu não me engano é bem simples... procedure TForm1.FormShow(Sender: TObject); begin Brush.Style := BsClear; end; não testei ainda... Mas qualquer coisa é isso aí....

Coloque um timer, dê dois cliques nele, e insira o código a seguir: progressBar.position:=progressbar.position+1 if progressBar.position = 100 then begin form2.showmodal; timer1.enable:=false; end;

Use um pascal da vida, ou um Clipper...

Cara é foda, quando temos q "recriar" um sistema.... Bom!!! eu nunca tentei fazer isso, pois eu já venho de Pascal, e entaum larguei de mão, esse compilador, mas deixo aqui uma idéia, não sei se vai funcionar, mas.... já q estamos falando de .exe, porque não tente um comando do tipo: WinExec(PChar('seu programa '),SW_SHOWNORMAL); Cara sinceramente não sei se vai funcionar, mas qualquer coisa estamos aqui... Abraços!!!!!!!!!!

já foi enviado, abraços!!!!!!!!!

Tah indo alguma coisa para vc, no seu e-mail... Espero q t ajude Abraços!!!!!!!!!!!

é amigo... Vai alguma programação.... Tente usar um FileListDirectory... e toda vez q ele mexer lá, um FileList receberá o contepudo.... Abraços!!!!!!!

Ricardo, tudo bom????? Velho, axo q não existe essa biblioteca no delphi, pois nunca usei, já fiz várias linhas de programação, para utilizar esse procedimento, mas axo q não existe, e se existir por favor me informa... Abraços!!!!!!!!

Siga o exemplo do Delphi-Man32, tipo se você quiser colocar o ícone no Tray, tem um código q uso, mais ou menos assim: Try Icon Formulário Usar ShellApi e depois do uses Const WM_TRAYICON = WM_USER+1; Evento On Close Action := caNone; Hide; Evento OnCreat var NotifyIconData : TNotifyIconData; begin Application.ShowMainForm := False; with NotifyIconData do begin cbSize := sizeof(TNotifyIconData); Wnd := Self.Handle; uId := 0; uCallBackMessage := WM_TRAYICON; uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; hIcon := Application.Icon.Handle; szTip := 'Teste de TryIcon'; end; Shell_NotifyIcon(NIM_ADD,@NotifyIconData); end; Evento FormDestroy var NotifyIconData : TNotifyIconData; begin with NotifyIconData do begin cbSize := sizeof(TNotifyIconData); Wnd := Self.Handle; uId := 0; uFlags := 0; end; Shell_NotifyIcon(NIM_DELETE,@NotifyIconData); end; Private procedure WMTrayIcon(var Msg : TMessage); message WM_TRAYICON; procedure TForm1.WMTrayIcon(var Msg: TMessage); var Pt : TPoint; begin if Msg.lParam = WM_RBUTTONDOWN then begin GetCursorPos(Pt); PopupMenu1.Popup(Pt.X,Pt.Y); end else if Msg.lParam = WM_LBUTTONDBLCLK then Form1.Show; end; Nos menus Abrir Form1.Show; ShowWindow(Application.Handle, SW_HIDE); Fechar Application.Terminate

Procure alguma coisa no Site ActiveDelphi.com.br Lá você poderá baixar os arquivos, e começar estudar.... Abraços

Tipo você quer ver uma barrinha de progresso... Coloque um timer, e um ProgressBar Dê um duplo clique no timer, e digite esse código: progressBar.Progress:=Progressbar.Progress+1 Pronto você acabou de ver a barrinha se mexer, lembre-se q se você mexer com as propriedades do timer, a barra também se modificará.... Abraços!!!!!!!!!

Cara como assim, gerar Executáveis Idependentes, do tipo se você compila o teu programa, ele mesmo gera um .exe.... Tente se expressar melhor.... Abraços!!!!!!!!!!

Cara tipo, se você tem outro Sistema Operacional rodando tipo Linux, use a Fat, pois assim, você conseguirá "Visualizar" os arquivos do Windows... Pois não existe um versão de Kernel, compativel com as partições NTFS... Foi só uma Dica!!!!!!! Abraços!!!!!!!!!!!!!

Tipo, se você estah usando um DataModule, e criou um form novo, sem o DataSource, ou DBGrid, ou os DbEdits, e tal... você precisará, "linkar", do tipo usar a unidade de dados, vou te ensinar com o atalho do teclado, pois não estou com o meu delphi aberto... Alt+f11, e escolha a Unit q você salvou quando criou o dataModule... Abraços Gatinha!!!!!!!!!

Tipo, crie um Serverzinho, pode ateh ser o TServerSocket do Delphi6, insira uns comandinho como este... var Aux:String; I:Integer; begin Aux:=DirectoryListBox.Directory; If(Pos(Diretorio,AUX)=0)Then begin If(Aux[Length(Aux)]<>'\')Then Aux:=Aux+'\'; DirectoryListBox.Directory:=Aux+Diretorio; end else begin For I:=Length(Diretorio) DownTo 1 Do If(Diretorio='\')Then Delete(Aux,I,Length(Aux)-I); end; Result:='Dire!'+FileListBox.Items.Text Para pegar a lista de diretório, e poder viasulizar, mas lembre-se q isto não poderá deletar, renomear, qualquer coisa do tipo, q mexa com o estado dos arquivos.... Abraços!!!!!!!

Inc(Ultimo).... //Incrementa a Variavel.... Desculpa a pergunta, mas pra q, você quer incrementar um numero no próprio código, creio eu q você sabe q você pode alterar a base de dados, onde o Código, pode ser autoincremento... Ou se você quer adicionar algum código, ou registro em outra tabela, e para fazer isso, basta definir qual vai ser, no MasterSource, do tipo Mestre/Escrava.... Desculpe por não "esclarecer" a sua dúvida direito, mas explique melhor.... Abraços!!!!!!!!

Cara, vou te mandar um bom exemplo do que você estah tentando fazer.... Abraços....