Hagamos entre todos un programa (No Novatos)

[[Caral]]

Hola
Pues eso, hagamos entre todos un programa (no aceptemos Novatos).
Yo aporto el primer par de códigos:
Por supuesto el Acerca de:

Código Delphi [-]
uses   ShellApi;  begin   ShellAbout(Application.MainForm.Handle,           PChar('Primer Programa NO Novatos del Club#Quien sabe'),
          PChar('Super Programa, No Novatos' + #13#10 + 
                'Derechos de autor registrados.'),
          Application.Icon.Handle);
end;

Y el primer mensaje:

Código Delphi [-]
MessageBox(Handle, 
             PChar('Ha tenido el privilegio de adquirir este primer programa NO Novatos.' + #13#10 + 
                   'Welcome o lo que es lo mismo Bien Comido.' + #13#10 + 
                   'Pronto conseguirá las mas notables actualizaciones.'), 
             PChar('Programa No Novatos'),
             MB_OKCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL);

Bueno, ya empece, quien aportara mas codigo??, eso si, que sea de la calidad No Novato.
Saludos

[[enecumene]]

Ahh creo que mi vista falló porque pensé que estaba en el hilo de humor,

[[Caral]]

Hola
Bueno, tomadlo en serio, que, acaso estamos en la Taberna.
Aqui va el siguiente codigo:

Código Delphi [-]
uses
  ShellAPI, ShlObj, ActiveX;

var
  pidl, pidlSelected: PItemIDList;
  BrowseInfo: TBrowseInfo;
  Directorio: string
begin
  if SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, pidl) = NOERROR then
  begin
    with BrowseInfo do
    begin
      hwndOwner := Handle;
      pidlRoot := pidl;
      GetMem(pszDisplayName, MAX_PATH);
      lpszTitle := PChar('Busque el Programa No Novatos' + #13#10 + 
                         'Seguro estara por aqui, Si no lo encuentra, Reinstalelo.');
      ulFlags := BIF_BROWSEINCLUDEFILES;
      lpfn := nil;
      lParam := 0;
      iImage := -1;
    end;
    pidlSelected := SHBrowseForFolder(BrowseInfo);
    if pidlSelected <> nil then
    begin
      SHGetPathFromIDList(pidlSelected, BrowseInfo.pszDisplayName);
      Directorio := StrPas(BrowseInfo.pszDisplayName);
      CoTaskMemFree(pidlSelected);
    end;
    FreeMem(BrowseInfo.pszDisplayName);
    CoTaskMemFree(pidl);
  end;
end;

Saludos

[JXJ]

eso no sirve caral

hagamos un peer to peer (p2p)
o un download manger, como el flashget.

ambos soporten el protocolo de bittorrent, el de emule. edonkey.
y el de limewire.

[[Caral]]

Hola

Empezado por JXJ

eso no sirve caral

hagamos un peer to peer (p2p)
o un download manger, como el flashget.

ambos soporten el protocolo de bittorrent, el de emule. edonkey.
y el de limewire.

Como que no sirve, si estamos empezando, eso del pier tu pier me parece bien, te encargo el codigo
Saludos

[[Caral]]

Hola
Bueno os estoy esperando.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Paint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  buffer: tbitmap;
  h, m, s, ms: word;
begin
 decodetime(now,h,m,s,ms);
 buffer:=tbitmap.create;
 with buffer do
  begin
   Width:=200;
   height:=200;
   Canvas.Pen.Color:=color;
   canvas.Brush.Color:=color;
   canvas.Rectangle(0,0,200,200);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Color:=cllime;
   canvas.Brush.Color:=rgb(150,200,255);
   Canvas.Ellipse(0,0,200,200);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Color:=clred;
   Canvas.MoveTo(100+Trunc( sin(s/9.65)*100),100+Trunc(-cos(s/9.65)*100));
   Canvas.LineTo(100,100);
   Canvas.Pen.Width:=2;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(100+Trunc( sin(m/9.65)*100),100+Trunc(-cos(m/9.65)*100));
   Canvas.LineTo(100,100);
   Canvas.Pen.Width:=3;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(100+Trunc( sin(h/1.95)*50),100+Trunc(-cos(h/1.95)*50));
   Canvas.LineTo(100,100);
  end;
 canvas.Draw(0,0,buffer);
 buffer.Free;
 caption:=timetostr(now);
end;

Saludos

[[egostar]]

Aqui mi gran aportación al programa

Código Delphi [-]
procedure TAboutBox.ContactClick(Sender: TObject);
begin
  ShellExecute(GetDesktopWindow(),nil,
               pChar('mailto:caral@sudominio.org.cr'),
               nil,nil,SW_SHOWNORMAL);
end;

Salud OS

[[Caral]]

Hola
Grande amigo, grande.
A ver si alguien mas aporta, que este programa lo voy a vender muy bien.
Saludos

[[Caral]]

Hola
Este es muy útil, así que no puede faltar en el programa.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TrayIcon, ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    TrayIcon1: TTrayIcon;
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
   IconData : TNotifyIconData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   waveOutSetVolume(0, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
   with IconData do
    begin
      cbSize := sizeof(IconData);
      Wnd := Handle;
      uID := 100;
      uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallbackMessage := WM_USER + 1;
      hIcon := Application.Icon.Handle;
      StrPCopy(szTip, Application.Title);
    end;
    Shell_NotifyIcon(NIM_ADD, @IconData);
   Hide;
   TrayIcon1.Visible:=True;
end;

Saludos

[[coso]]

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

[[enecumene]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

¡Claro que sí!, haciendolo a mano

[[egostar]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

Que te parece el Model View que ya viene con Delphi

Salud OS

[[Al González]]

Mi aportación:
http://www.clubdelphi.com/foros/showthread.php?t=53146
(por si llegásemos a necesitar objetos superglobales).

Saludos.

Al.

[[coso]]

mmm no lo sabia lo del modal view (voy a actualizar ya mi delphi 5, ya me da hasta verguenza ), igualmente mi idea era con sus rombitos, rectangulitos, comentarios, sus flechas de yes or no esas cosas, que a veces uno se pierde con el "codigo spaguetti"

[pcicom]

Yo tambien quiero colaborar

Código Delphi [-]

       i:= 0;

Lo pueden poner antes de un ciclo for o while,, este codigo ya fue probado, y creo que no me ha fallado aun..


Aunque se pued mejorar...

[[Caral]]

Hola
Me gustan estos códigos tan sofisticados, pero si no funciona mejor lo verifican:

Código Delphi [-]
If i <> 0 then
Showmessage('pcicom se ha equivocado')
else
Showmessage('pcicom vas bien amigo, vas bien')

Saludos

[pcicom]

Empezado por Caral

Hola
Me gustan estos códigos tan sofisticados, pero si no funciona mejor lo verifican:

Código Delphi [-]
If i <> 0 then
Showmessage('pcicom se ha equivocado')
else
Showmessage('pcicom vas bien amigo, vas bien')

Saludos

Por eso dije que se podia mejorar.... en estos momentos actualizare todas mis apps... donde tengo este codigo,,, antes de que empiezen a generar la pantalla azul de ms... pa que luego no lo culpen de a gratis... jejejejej

Gracias CARAL, me ha sido de mucha ayuda tu aportacion, no la habia visto desde ese punto de vista...


Ha... otra cosa el codigo que puse marca error en Visual Studio VB, seguro hay que debuguearlo...

jejeje

[Neftali [Germán.Estévez]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama?

O EssModel, que puedes bajar con código fuente incluído y que además está hecho en Delphi.

[[coso]]

mmm, si pero no. Me referia a el recorrido del programa, vamos, algo asi:

Código Delphi [-]
     
                         _main: Activate
                                |
                      _main: Poner_labels;
                                |                                           
(rombo )      _main:label = 'muestra' ------F-----------------------|
                                |                                   |
                                T                                   |
                                |                                   |
                      _main: ask.ShowModal      _main:label3.Visible := false
                                                                    |
                                                 (elipse): consulta_SQL.Active := true

claro esta, que si pulsas a una linea te abriera el codigo fuente en delphi en esa linea, y te fuese alla, con la opcion del + y del - como el tree view, y si fuese integrado con el debugger ya seria la repera .

[[coso]]

creo que le estoy desvirtuando el hilo a Caral a ver si encuentro algo que pueda aportar...