Exe Protector (Adequa��o para Simular Atalhos do Desktop)

Question

Michael, eu tenho uma d�vida sobre o Aplicativo Exe Protetor que foi publicado na edi��o da revista de n� 70...A minha d�vida � a seguinte:[b:e8b63cd702]Tem como eu carregar uma lista de programas j� ...

Paullsoftware · Answer

Pessoal, problema quse solucionado. Estou usando o c�digo abaixo

//Carrego os Programas cadastrados na minha tabela
procedure TForm1.Button1Click(Sender: TObject);
var
icone : TIcon;
begin
 with IBQuery1 do
  begin
   Open;
   First;
    while not eof do
     begin
       if FileExists(FieldByName(�ENDERECO�).AsString) then
         with lstProgramas.Items.Add do
          begin
            Caption := FieldByName(�DESCRICAO�).AsString;
            SubItems.Add(FieldByName(�ENDERECO�).AsString);
            MakeVisible(False);
            Icone := TIcon.Create;
            try
              Icone.Handle := ExtractIcon(Handle, PAnsiChar(FieldByName(�ENDERECO�).AsString), 0);
              ImageIndex   := ImageList1.AddIcon(Icone);
            finally
              Icone.Free;
            end;
          end;
       Next;
     end;
  end;
end;

//Executo os programas com dois cliques no o �cone do mesmo

 if lstProgramas.Selected = nil then Exit;
 //Existe uma forma de aperfei�oar a linha a baixo digo esse trecho aqui
 //lstProgramas.Selected.SubItems.CommaText?
 WinExec(pChar(lstProgramas.Selected.SubItems.CommaText) , SW_NORMAL)

Por�m estou com problemas quando a alguns jogos usarem parametros nos atalhos como por exemplo couter-strike, half-life, F1 e outros...

Qualquer ajuda � bem-vinda :wink:

Paullsoftware · Answer

Algu�m tem uma id�ia?...

F�rum Exe Protector (Adequa��o para Simular Atalhos do Desktop) #320560