Hjælp til Menu i delphi

Hej Koder

Denne kode finder programstørrelsen

Var
  Sr : TSearchRec;
Begin
  If FindFirst('Programpath+name',Faarchive,Sr)=0 Then
    Form1.Edit1.Text:=IntToStr(Sr.Size);
  FindClose(Sr);
End;

Visning af informationer om programmet:

Vis det i et TMemo, men hvor ligger informationerne om programmet gemt? i en fil eller i selve det nye program??

Jeg er lige begyndt at bruge Delphi, så
Hvor skal man skrive koden for programstørrelsen??????????
og hvor er det bedst at ligge informationerne om programmet??????

  Uden at ville gøre mig speciel klog på det.Har jeg lavet en modification af
Winexec kapiteleksemplet i jørn slots bog.Det er egt. et program der udfører
en programkommando når man taster den ind.Det løser nok ikke helt dit ønske
men det er da muligt du kan bruge det til at lege videre med modifikationer
til.Når den fanger input må den osse kunne bringes til at skrive dem ud.
God held med det





program Project1;

uses
  Forms,
  Unit1 in 'UNIT1.PAS' {Form1};

{$R *.RES}

begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function SkjulForm(CmdLine: PChar; CmdShow: Word): Word;
var InstID: THandle;
Terminate: Boolean;
begin
InstID := WinExec(CmdLine, CmdShow);
if InstID < 32 then
SkjulForm := InstID
else

Application.HandleMessage;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
Str: String;
Len: Byte absolute Str;
begin


WinExec('notepad.exe', SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Str: String;
Len: Byte absolute Str;
begin
  Form1.Hide;

  Str[len+1] := #0;
  SkjulForm(@Str[1], SW_SHOW);
  Form1.Show;
end;

end.

"Janbb"
Tak for dit svar!!!
Men har du prøvet det????
For jeg kunne ikke lige få det til at virke!!!

Du mu kunne løse det ved at indføje en helt banal onclik-event:unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='Delfi programmering'
end;

end.

  Jvf 3 sidste linie:der skriver oplysningerne i en edit-box om dit program.

Du kan vel bare lave sådan en kode her..

på listbox... on click

with listbox1.items do
  begin
    if itemindex = 0 then edit1.text := 'første program'
if itemindex = 0 then edit1.text := 'første program'
if itemindex = 0 then edit1.text := 'første program'

o.s.v

mvh. troxa

hej koder

der er mange måder at lave det og her er så min version af det

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FMXUTILS, Inifiles;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{her er en lille function til at læse fra en ini fil, her kan du gemme oplysninger du vil ha´ vist når du tryker på listboxen} 
function ReadIni(overskrift,linie: string): string;
var setup : Tinifile;
begin
with setup do
begin
Setup := TInifile.Create('C:\setup.ini');
Result := setup.ReadString(overskrift,linie,'tomt');
setup.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Case (Listbox1.ItemIndex) of
  0: ExecuteFile('Data\data0.exe', '', '', SW_SHOW);
//1: ExecuteFile('Data\data1.exe', '', '', SW_SHOW);
//  OSV, OSV
end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Case (Listbox1.ItemIndex) of
  0: Label1.caption := 'bla bla 0';
  1: Label1.caption := readini('data1','data');
  2: Label1.caption := readini('data2','data');
  3: Label1.caption := 'bla bla 3';
end;
end;

end.

husk at tilføre FmxUtils til din uses list den ligger på din delhi cd under demos\doc\filmanex

MVH Sabine

glem det!!!!!!!