Churc

Opa Veja essa propriedade do idFTP IdFTP1.DirectoryListing.Items[INDEX].ModifiedDate abraco

Opa Então eu crio dessa forma, com o Pagecontrol mesmo, o bom é que voce faz da forma que quiser... Então pra você esconder as orelinhas, você faz assim, não lembro muito bem mas é algo assim exemplo procedure...OnCreatedoForm... var i: Integer; begin for i := 0 to PageControl1.PageCount - 1 do Pagecontrol1.Pages[i].TabVisible := False; Coloque também a borda do PageControl pra bsNone, deixa ele Flat assim sem nenhum tipo de borda... Bom eu faço dessa forma, e fica bem bacana... claro se eu dissesse que utilizo Shapes pra dar um design nas bordas, esconder vamos que se dizer coisas que não deveria aparecer rs abraços

Opa Apesar que o Jhonas acabou lhe ajudando, vou transferir seu tópico pra uma área apropriada. abraço

Opa Application se refere a um "Aplicativo" e fica na Unit Forms Porém como se trata de uma DLL não há necessidade dessa cláusula O que voce tem que fazer é o seguinte library CSOnline05; uses HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; end. Então se algum desses procedimentos que estão sendo exportados fizer o uso do WebModule, então você teria que criá-lo em tempo de execução ouu gerenciar o carregamento da DLL exemplo library CSOnline05; uses Windows, HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; procedure DllMain(reason: integer); begin case reason of dll_process_attach: webmodule1 := twebModule1.Create; dll_process_detach: if assigned(WebModule1) then freeandnil(webmodule1); end; end; begin DllProc := @DllMain; DllProc(dll_process_attach); end. É uma base, mas pela estrutura que voce passou acredito que foi mexido os códigos, então com certeza não vai ser somente isso... abraço

Opa Como voce se refere a "número" ou seja, fazendo comparações numéricas de maior ou menor, primeiro voce precisa transformar o texto em um inteiro, ou seja, integer. Ai depois voce faz a comparação... exemplo procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin try i := StrtoInt(Edit1.Text); except ShowMessage('Por favor, digite um valor numérico!'); Exit; end; if i >= 12 then Color := clBlue else Color := clRed; end; o try / except é para tratar erros, resumindo seria assim try //Tente algo except //Se não der então faça algo end; Porque transformamos o que está no Edit1 para um inteiro, ou seja, Integer (StrtoInt = Texto para Número) mass e se o usuário digitar uma letra? Iria acontecer um erro, e é ai que entra o Except abraço

Opa Exemplo Image1.DoubleBuffered := True; Pode ser no evento OnCreate do Form tambem... Coloque para cada componente TImage que for ganhar movimento abraco

Opa No OnCreate do Form coloque DoubleBuffered := True; e na propriedade do TImage também. abraços

Opa em Additional coloque um ScrollBox, e dentro do Scrollbox voce coloca tudo o que precisa... Nas propriedades do Scrollbox, tem uma que se chama range, ali voce já define um tamanho padrão... abraco

Opa Há varios posts sobre este tipo de dúvida no Fórum... Este processo é conhecido como "Manipulação de arquivos de inicialização .ini" De uma pesquisada no fórum, utilizando o botao Pesquisar logo acima procure por "ini" ou "gravar configuração" ou coisas relacionadas. Se eu fizer isso pra voce, estaria te deixando mal acostumado e na proxima voce não lembraria de pesquisar... rs abrcox

Opa Use o Trunc(); Value:=Floattostr(Trunc(Horas_Sumary / conta)); abraco

Isto pode ser considerado uma ofensa (: Se ninguém respondeu, talvez seja pelo fato de que ninguém sabe... O que voce pode fazer é algum método, para por exemplo... checar se o processo está rodando function processExists(exeFileName: string): Boolean; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); Result := False; while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then begin Result := True; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Deixando um timer por exemplo verificando, e se o processo não estiver mais rodando vai retornar False agora, o programa que voce quer saber se fechou é executado pelo seu programa?

Opa uses ShellAPI; ShellExecute(Handle do Form ou da Aplicaçao, Ação, Caminho do arquivo, Parametros, Diretorio de inicializacao, Modo de abertura); Seria no seu caso ShellExecute(Handle, 'open', PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL); abraco

Opa Bom primeiro, o ideal seria utilizar Banco de Dados... para facilitar... aconselho "Paradox" Procure na Internet, inclusive no fórum e no Google, sobre como fazer um cadastro de Clientes no Paradox Baixe exemplos, e do resto após voce entender voce vai saber como fazer... e se não souber, basta perguntar aqui abrax

Opa Coloque no OnFormShow do Form que tem essa imagem... SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); abrax

Aeee bacana cara!! Eu sempre quis criar jogos, ou tentar ou brincar de criar mas nunca nem comecei rs Unica coisa que fiz de útil assim até hoje foi o "Digital Drums" que é um simulador de bateria pra pc... que alias, ta abandonado literalmente... triste porque já é bastante conhecido... quando eu tiver um tempinho vou me dedicar Do resto dos meus projetos, fora trabalho não fiz nada... ou não cheguei a concluir rs Mas voce ta indo por um lado bom, usando LUA, que da x possibilidades de trabalhar... da mais trabalho né de começo, mas depois vale a pena... parabéns ai, se quiser compartilhar seu jogo com a galera... abraco

Opa O que é este ShowModalDock? Voce passa como parametro o form criado e o form principal, não sei bem o que ele faz com os parametros... porem, na criacao do form voce não passa um owner pra ele e no ShowModalDock voce passa o form principal... Digo porque o Owner é o responsável por destruir tal elemento quando necessario, ou quando ele é destruido... Enfim como não da pra saber exatamente o que esse ShowModalDock faz, talvez não tenha haver... abrs

Opa Hehe é que eu te dei somente um exemplo, voce não soube adaptar ao seu código :rolleyes: abrcx

Opa uses DateUtils; TotalDias := DaysBetween(StrtoDate(TxtInicial.Text), StrtoDate(TxtFinal.Text)); abraco

Opa não... voce precisa chama-la antes de adicionar o numero ao listbox Exemplo If not Tem(ListBox1, NUMERO) then ListBox1.Items.Add(NUMERO); Troque o NUMERO pelo numero a ser adicionado e no caso entre aspas simples porque é uma string.... abraco

Coloque na propriedade WindowState do Form como wsMaximized abraço Opa Complementando, deixe o BorderStyle para bsNone também! abraco

opa function Tem(LB: TListBox; Linha: String): Boolean; var i: Integer; begin for i := 0 to LB.Items.Count - 1 do begin Result := (LB.Items[i] = Linha); if Result then Break; end; end; ou também function Tem(LB: TListBox; Linha: String): Boolean; var i: Integer; begin Result := False; i := 0; while (i < LB.Items.Count - 1) and (not Result) do begin Result := (LB.Items[i] = Linha); Inc(i); end; end; tem outras formas também, mas já ajuda rs abraco

Opa Só complementando System32 - Pra Windows NT, 2000, XP, 2003, Vista (resumindo, tecnologia NT+) System - Windows 95/98/ME abraco

opa faça mais simples... o procedimento seria o seguinte, voce renomeia o arquivo "original" ragnarok.exe pra tipo ragna.exe certo? deixe seu browser com o nome do executável como ragnarok.exe ou seja, quando o cara abrir o ragnarok vai abrir seu browser, e no seu browser voce coloca algum comando no OnClose do form pra abrir o ragna.exe ou seja, quando fechar o browser abre o jogo procedure TForm1.OnformClose(Sender: TObject); begin WinExec(PChar('ragna.exe'), SW_SHOWNORMAL); end; entendeu? abracxx

Opa Fera "eu" particularmente não entendi (ou realmente não da pra entender) rs se puder colocar parte do código... assim mais ou menos eu sei o que voce ta falando OTS = Open Tibia Server? Eu já mexi com isso a uns 4 ou 5 anos atras, sei que o OTS usava scripts em Lua Lua é uma linguagem de programação desenvolvida por Brasileiros, muito usada em jogos tb Apesar que o OTS é feito em C++, voce parece ser o owner do projeto OTSAdmin certo? enfim, poste parte do código e explique direito o que voce ta querendo fazer hehe abraco

Opa De uma olhada neste tópico. Acho que vai resolver seu problema! Abraços