Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   ¿Cómo ejecutar accesos directos? (https://www.clubdelphi.com/foros/showthread.php?t=70643)

saulcell 03-11-2010 02:16:36

¿Cómo ejecutar accesos directos?
 
Buenas a todos, soy nuevo en esto de la programación en Dephi

Quiero hacer un programa, que de un click me ejecute los accesos directos de los software que instalo, el escritorio se me llena de muchos accesos

y esta es la linea que encontre para hacerlo pero me bota error para ver en que me pueden ayudar

gracias

Cita:

WinExec(PChar 'C:\Progam Files\GsmServer\Octopus\Octopus', nil, nil, SW_SHOWMORMAL);
estoy en sistema operativo W7

Ah, llegue a este foro con el fin de aprender a programar y saber as acerca d esto, gracias a el Doctor Google :D:D

ecfisa 03-11-2010 04:36:19

Hola y bienvenido saulcell.

Si la ruta es correcta, te faltaría ponerle la extensión al ejecutable (y algún detalle mas...).
Si como supongo, es Octopus.EXE, entonces tu problema debería solucionarse asi:
Código Delphi [-]
uses ShellApi;
...
begin
   ShellExecute(Handle, nil , PChar('C:\Progam Files\GsmServer\Octopus\Octopus.EXE'), nil, nil, SW_SHOWNORMAL);
 end;

saulcell, siempre ayuda mucho que agregues el error que te arroja, así como en que lenguaje trabajas.

Saludos. :)

Al González 03-11-2010 07:05:53

Cita:

Empezado por saulcell (Mensaje 381121)
Ah, llegue a este foro con el fin de aprender a programar y saber as acerca d esto, gracias a el Doctor Google :D:D[/b]

También yo te doy la bienvenida, saulcell.

Es estupendo cuando alguien se encuentra interesado en aprender a programar y opta por Delphi; de lo mejor que hay tanto para aprender como para construir software de cualquier tamaño. Y este club le queda a la altura por la valía de sus participantes y de sus contenidos.

Aquí tenemos una rara y divertida costumbre de reconocer a los que alcanzan cifras de mensajes de tres o más ceros. Muchos hemos alcanzado esas cifras con el simple hecho de preguntar cuando tenemos dudas, responder cuando tenemos la respuesta a lo que otros preguntan y escribir lo que pensamos acerca de cualquier tema, incluso fuera del ámbito informático.

Que tu historia acá esté llena de buenos frutos, experiencias enriquecedoras y aprendizaje. Acuérdate de mí cuando celebremos tus primeros mil mensajes; se ve lejos pero ocurrirá tan rápido como tanta sea tu estima hacia Delphi. ;)

Un abrazo de iniciación.

Al González. :)

marcoszorrilla 03-11-2010 07:20:12

Bienvenido a los Foros. He cambiado el título del mensaje para facilitar la búsqueda que pudieren hacer otros foristas sobre el tema.

Un Saludo.

saulcell 04-11-2010 04:13:41

Buenas noches a todos, y gracias por darme esta Bienvenida

Me presento, me llamo Harrison Trabajo desbloqueando celulares

Soy moderaror de tres foros GSM :D:D:D

@ecfisa. Mira este es el error que me vota

Código Delphi [-]
[Error] Unit1.pas(27): Declaration expected but 'USES' found
[Error] Unit1.pas(30): Undeclared identifier: 'ShellExecute'

ya cambie la ruta de donde lo estaba colocando, algo esta no se que pasa

si es por que es, el Sistema Operativo o por que tengo la version de Delphi que no es :p:p uso Delphi7 en Windows7 (all 7 :D:D)

Aqui les dejo el code de como lo estoy haciendo, pero me da error

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
uses ShellApi;
...
begin
ShellExecute(Handle, nil , PChar('C:\Boxes\Shell.exe'), nil, nil, SW_SHOWNORMAL);
end;

end.

Gracias a todos por su ayuda

Al González 04-11-2010 04:42:58

Hola de nuevo, Harrison. Ese nombre, como dicen en España, mola. :D

Se agradece sobremanera que hayas puesto el texto de los errores, eso ayuda muchísimo.

Tienes que colocar ese Uses después de Implementation. ShellApi es la unidad (en Delphi, archivo de código) que contiene la función pública ShellExecute (en realidad está contenida en la API de Windows, pero eso es otra historia).

En Delphi, siempre que vamos a hacer uso de una función ya existente en otro archivo (unidad), hay que agregar el nombre de esa unidad en la cláusula Uses. Pero las cláusulas Uses no pueden ir dentro de otras rutinas, solamente pueden estar después de las palabras reservadas Interface e Implementation.

Espero te sirva. No dejes de retroalimentar este hilo.

Al González. :)

rgstuamigo 04-11-2010 20:25:28

Cita:

Empezado por saulcell (Mensaje 381121)
[b]
...
Quiero hacer un programa, que de un click me ejecute los accesos directos de los software que instalo, el escritorio se me llena de muchos accesos

y esta es la linea que encontre para hacerlo pero me bota error para ver en que me pueden ayudar
...

Tambien te doy la bienvenida ;)...
Sobre tu problema, te cuento que el tema ya fué tratado en alguna otra oportudad, revisa por ejemplo éste hilo.;)
Saludos...:)

ecfisa 05-11-2010 03:29:15

Cita:

Empezado por saulcell (Mensaje 381223)

@ecfisa. Mira este es el error que me vota
Código Delphi [-]
[Error] Unit1.pas(27): Declaration expected but 'USES' found
[Error] Unit1.pas(30): Undeclared identifier: 'ShellExecute'

Hola saulcell.

Veo que estas en las mejores manos y difícilmente pueda aconsejarte mejor. Así que sólo voy a ejemplificar lo que te dijeron sobre la
ubicación de la clausula uses .
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls{, ShellApi};{  puede ir aquí (seguí más abajo...) }

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

uses ShellApi; { o puede  ir aquí. No se puede declarar en ambos sitios, la declaración es excluyente }

procedure TForm1.Button1Click(Sender: TObject);
{ Nunca dentro de un procedimiento o función }
begin
  ShellExecute(Handle, nil , PChar('C:\Boxes\Shell.exe'), nil, nil, SW_SHOWNORMAL);
end;
end.

Saludos. :)

saulcell 05-11-2010 04:53:26

Bueno gracias a los compañeros acfisa y [Al González] logre solucionar el problema ya estoy creando mi soft, no les puedo mostrar un imagen de como va ya no tengo los permisos para colocar links o imagenes :):)

Ahora, otra ayuda y uds me disculpan algun link para para saber que uses puedeo usar y poderme guiar mejor...

ahora quiero colocar imagnes en cada PageControl que estoy haciendo :D:D

Dispculpen por tanta preguntadera espero que me entiendan ;);)

Salu2

ecfisa 05-11-2010 07:40:36

Hola saulcell.

Delphi Basic , muy buena página para iniciarse (en inglés). Tenés toda las referencias que necesites con ejemplos simples.
Descargá del Club La Cara Oculta de Delphi 4 , un exelente libro para entender Delphi más profundamente.
Ya está en el club La Cara Oculta de Delphi 6 (atención de Casimiro).En esa misma página tenés más documentación.

Y siempre te queda poner 'Delphi Tutorial' en google... :)


Saludos. :)


La franja horaria es GMT +2. Ahora son las 14:47:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi