[Armazenar e Substituir via Array com MySQL]

Estou quebrando a cabeça para criar um array via MySQL para alterar as palavras assim que colocar o mouse em cima de uma URL dinâmica:

Ex:

<?php
include "conecta.php"; // Conecta ao banco de dados
$query = "SELECT DISTINCT Produto FROM produtos ORDER BY `Produto` ASC"; 
$result = mysql_query($query , $link);

while ($campo = mysql_fetch_array($result, MYSQL_ASSOC)) {

// Contador 
$i = ++$cont;
?>

<?php
$produtos = array(
"Desconhecido",
"Radio",
"TV",
"DVD");


$resultado = array(
"desconhecidos",
"radios",
"televisores",
"dvds", $origens);
?>


<li><? echo $i . '. ' ;?><a title="<? echo $campo['Produto']; ?>" href="<? echo strtolower(str_replace($produtos, $resultado, $campo['Produto']))); ?>">Produtos <? echo ucwords(str_replace($produtos, $campo['Produto'])); ?></a></li>


<?
}
echo '</ul>';


echo "<br /><br />";


// Liberar o conjunto de resultados
mysql_free_result($result);


// Fechar a conexão
mysql_close($link);
?>

Dessa forma criando o array manualmente consigo trocar as palavras quando alguém passa o mouse em cima da palavra "TV" ele altera para "televisores" criando o link dinâmico.

O problema que assim tenho que ir adicionando o array manualmente quando crio uma nova palavra.

Criei um banco

Produtos e nele tem ID, Produto, Resultado

Como posso fazer o mesmo procedimento, mas adicionando o array via SQL??

Criei assim:

<?php
//Conexão com o banco:  
$conexao = mysql_connect ("localhost" , "seu_usuario", "sua_senha") 
                         or die ("Conexão falhou!");
mysql_select_db ("banco") 
                          or die ("base de dados não existe");

$sql = mysql_query("select produto, resultado from produtos");

while($linha = mysql_fetch_array($sql)){
  $vProduto = $linha["produto"];
  $vResultado = $linha["resultado"];
?>

Se eu coloco um echo

echo "$vProduto - $vResultado "."<br>";

Ele exibe certinho, mas gostaria que ele substituísse no LINk igual o exemplo manual que fiz

[( Resolvido ) Erro na conversão da seqüência de caracteres *.txt]

Resolvido

Dim pastaTemp As STRING = "C:\Windows\Temp"         
Dim diretorio As New IO.DirectoryInfo(pastaTemp) 
Dim ArquivosInfo As IO.FileInfo() = diretorio.GetFiles("*.txt")

[( Resolvido ) Erro na conversão da seqüência de caracteres *.txt]

Estou precisando criar um programa que exclua alguns arquivos especificos, porem está gerando erro na seguinte linha:

Dim ArquivosInfo As IO.FileInfo() = Diretório.GetFiles(pastaTemp, "*.txt")

Dim pastaTemp As STRING = "C:\Windows\Temp"
        Dim Diretório As New IO.DirectoryInfo("C:\Windows\Temp")
        Dim ArquivosInfo As IO.FileInfo() = Diretório.GetFiles(pastaTemp, "*.txt")

Fala que

A conversão da seqüência de caracteres '*.txt' no tipo 'Integer' não é válida.

Se eu retiro o o (pastatemp, "*.txt") deixando apenas GetFiles() ele aceita normal.

[(Resolvido) Excluir Policies HKEY_USERS]

Nossa perfeito era isso mesmo deu pra ter uma ideia e resolver meu problema.

Obrigado!

[(Resolvido) Excluir Policies HKEY_USERS]

Novamente estou quebrando a cabeça com registro do Windows.

As vezes preciso fazer algum procedimento que necessita excluir as policies do registro HKEY_USERS, mas cada micro esses os números que antecedem o ..\Policies são diferentes ai nem sempre da certo.

Só não sei como começar a efetuar uma busca completa no registro pra efetuar a exclusão

Alguns exemplos:

HKEY_USERS:

.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies

.DEFAULT\Software\Policies

S-1-5-18\Software\Policies

S-1-5-19\Software\Microsoft\Windows\CurrentVersion\Policies

S-1-5-19\Software\Policies

S-1-5-20\Software\Microsoft\Windows\CurrentVersion\Policies

S-1-5-20\Software\Policies

S-1-5-21-299502267-1993962763-854245398-1003\Software\Policies

Se fosse fixo era fácil de criar, mas o começo muda de máquina pra máquina

[Listar Temporary Internet Files]

Olá estou começando a programar em VB.net, mas estou com uma dificuldade em exibir os arquivos da pasta Temporary Internet Files no listbox.

Dim Root As New DirectoryInfo("C:\Users\RAFAEL\AppData\Local\Microsoft\Windows\Temporary Internet Files")

        Dim Files As FileInfo() = Root.GetFiles("*.*")
        Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")

        ListBox1.Items.Add("Arquivos")
        Dim Filename As FileInfo

        For Each Filename In Files
            ListBox1.Items.Add(Filename.FullName)
            ListBox1.Items.Add(Filename)
        Next

Ele exibe apenas dois arquivos o

counters.dat

destktop.ini

Mas eu vejo vários arquivos de imagens e ele não reconhece para exibir no listbox

[Inserir Registro Hexadecimal no Windows]

Alguém saberia dizer como posso converter este registro via Delphi?

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]"DefaultConnectionSettings"=hex:46,00,00,00,07,00,00,00,01,00,00,00,00,00,00,\

00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,90,b6,c6,d7,21,5d,cc,01,\

00,00,00,00,00,00,00,00,00,00,00,00,06,00,00,00,17,00,00,00,00,00,00,00,fe,\

80,00,00,00,00,00,00,b4,b8,7a,8d,90,e7,17,bc,0c,00,00,00,00,00,00,00,00,00

Criar um comando para inserir no registro com esses valores via Delphi ao invés de criar um .reg.

Se fosse apenas uma linha eu consegui, mas como são vários hexadecimais não consegui.

with TRegistry.Create do

begin

RootKey:=HKEY_CURRENT_USER;

if OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then

begin

WriteString('AutoConfigURL', 'ENDERECOPROXY');

CloseKey;

Free;

InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);

end;

O código acima insere o endereço do Proxy .pac no registro, mas falta eu conseguir fazer desabilitar o Detectar automaticamente as configurações" se estiver ticado no IE, mas como é hexadecimal não consegui ainda descobrir uma maneira de inserir no registro via comando