Hjælp til lidt forskelligt

[1.)
Hvordan kan jeg åbne et program med en tilfældig string, jeg har en kode til at lukke et andet program op med, men jeg kan ikke rigtigt finde ud at hvordan jeg skal, stien til programmet ligger i en ini fil som ser således ud?

[Programmer]
Battlefield=c:\\spil\\battlefield\\bf1964.exe
Test=c:\\spil\\hej\\hfgh964.exe

]

For at finde ud af hvordan du sætter en ini fil ind i en string synes jeg du skal læse den første af de 2 artikler her på udvikleren om Ini Filer. HVis du ikke kan finde ud af det derfra siger du bare lige til.
Når du har loadet Ini filen ind i en string er det bar at skrive:

shellExecute(Handle, 'open', pchar(her skriver du navnet på din string), '', nil, SW_SHOWNORMAL);

[2.)
Hvordan kan jeg lave sådan at et program automatisk starter når windows starter, jeg vil gerne have den til at starte som et lille ikon nede på proceslinien, det ikon skal man så kunne højre klikke på og så skal der poppe en popUp menu op.?]

For at få programmet til at starte hver gang com'en starter er du nød til at lave registry key. Det kan gøres med følgende kode:

Her er en hele unit'en for det du ønsker, Der skal tilføjes 2 knapper og begge deres onClick events skal bruges + formens onShow 

Kodeeksempel
unit Unit1;

interface

uses
  //Her er der ændret
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
private
     //Registreringsdatabaseobjektet
  Reg: TRegistry;
  public


  end;

var
  Form1: TForm1;

  
const
  //En konstant der indeholder den nøgle vi skal frem til
  RegKey = 'Software\\Microsoft\\Windows\\CurrentVersion\\Run';

implementation

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Reg.Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   //Her er det notepad der vil starte næste gang
  //NB! Første parameter angiver værdiens navn, det
  //skal være unikt for ellers vil andre programmer
  //jo overskrive det.
  //Anden parameter skal være komplet(undtagen notepad eller paint eller sån noget)
  Reg.WriteString('Navnet på dit program', 'notepad.exe');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Her sletter vi værdien(hvis den eksisterer)
  if Reg.ValueExists('Detteskalvaereunikt') then
   Reg.DeleteValue('Detteskalvaereunikt');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //Her opretter vi registry objektet
  //for det hele er i registreringsdatabasen
  Reg := TRegistry.Create;

  //Hvis programmet skal starte hver gang
  //ligemeget hvem der logger på skal
  //Rootkey := HKEY_LOCAL_MACHINE
  //istedet for HKEY_CURRENT_USER
  Reg.RootKey := HKEY_CURRENT_USER;

  //Vi åbner nøglen hvori det er, at
  //windows leder efter programmer
  //der skal startes op
  Reg.OpenKey(RegKey, false);
end;

end.

[4.)
Hvordan kan man låse en form så man ikke selv kan justere størelsen, og hvordan kan man lave den menu om der står hvad ens forms caption står til?]

Du kan låse formen ved enten i object inspectoren sætte dens autosize til true eller sætte borderstyle til single.



Mvh.
Rune Jensen

[Redigeret d. 06/01-04 16:40:22 af Rune Jensen]

Hej.
Jeg har lige et par enkle spørgsmål til din kode, i spørgsmål 1, har jeg denne kode, men det jeg ikke kan finde ud af er kun at læse det efter = tegnet i ini filen.

spørgsmål 2, kan man ikke lave dette uden knapper hvis ja hvordan?

Mvh.
Kasper Nielsen

Her er en kode der kan gøre det du vil i spørsmål 2 vis ikke jeg har taget meget fejl. Den er lidt lang fordi jeg har sat nogle små funktioner ind.

Men vis ikke du kan få den til at virke så har jeg en demo jeg kan sende dig.
Min email og MSN mesenger er: Dennis_h30@hotmail.com
Vis det skulle gå helt galt

unit Unit1;

interface

uses
//Husk at tilføje: ShellAPI og Registry
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, Menus, Registry, StdCtrls;

  //Husk denne lille kode
  const WM_TRAYMessage = WM_USER + 1;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Vis: TMenuItem;
    Skjul: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    StartMedWindows1: TMenuItem;
    Startikkemedwindows1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure VisClick(Sender: TObject);
    procedure SkjulClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
    //Usk at oprette iconet
    Tray: TNotifyIconData;
  public
    { Public declarations }
    procedure TrayMessage(var message: TMessage); message WM_TRAYMESSAGE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
//registrere programet i registringsdatabasen
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  If Registry.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\RunServices',True) then
  begin
  //Husk at sætte et unikt navn
  //eksempel vis se fanen Start i MsConfig i win 98 for at være sikker (C:\\WINDOWS\\SYSTEM\\MSCONFIG.EXE)
    Registry.WriteString('Mit unikke navn', (ParamStr(0)));
    Registry.Free;
  end;

//Tilføjer iconet til Systray
with Tray do
begin
cbSize := SizeOf(Tray);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage:= WM_TRAYMessage;
hIcon := Application.Icon.Handle;
szTip := 'Min hint message';
end;
Shell_NotifyIcon(NIM_ADD, @Tray);
end;

//Sletter iconet fra Systray igen når man lukker programet
procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @Tray);
end;

procedure TForm1.TrayMessage(var message: TMessage);
var
p: TPoint;
begin
//Laver popupmenuen
case Message.LParam of
WM_RBUTTONDOWN:
begin
SetForegroundWindow(Handle);
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.y);
PostMessage(Handle, WM_NULL, 0,0);
end;
end;

//Viser progrmat igen
case Message.LParam of
WM_LBUTTONDOWN:
begin
SetForegroundWindow(Handle);
Form1.Show;
PostMessage(Handle, WM_NULL, 0,0);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Registry: TRegistry;
begin
//registrere programet i registringsdatabasen så det starter
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  If Registry.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\RunServices',True) then
  begin
  //Husk at sætte et unikt navn
  //eksempel vis se fanen Start i MsConfig i win 98 for at være sikker (C:\\WINDOWS\\SYSTEM\\MSCONFIG.EXE)
    Registry.WriteString('Mit unikke navn', (ParamStr(0)));
    Registry.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Registry: TRegistry;
begin
//registrere programet i registringsdatabasen så det IKKE starter
 Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  If Registry.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\RunServices',True) then
  begin
  //Husk at sætte et unikt navn
  //eksempel vis se fanen Start i MsConfig i win 98 for at være sikker (C:\\WINDOWS\\SYSTEM\\MSCONFIG.EXE)
  //  Registry.WriteString('Mit unikke navn', (ParamStr(0)));
    Registry.DeleteValue('Mit unikke navn');
    Registry.Free;
  end;
end;

procedure TForm1.VisClick(Sender: TObject);
begin
//Viser formen igen
     Form1.Show;
end;

procedure TForm1.SkjulClick(Sender: TObject);
begin
//Skjuler programet
Form1.Hide;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
//Lukker programet
Application.Terminate;
end;

end.

Håber det kan hjælpe dig.

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

[Redigeret d. 06/01-04 18:30:33 af Dark]

2.)
Hvordan kan jeg lave sådan at et program automatisk starter når windows starter, jeg vil gerne have den til at starte som et lille ikon nede på proceslinien, det ikon skal man så kunne højre klikke på og så skal der poppe en popUp menu op.?

3.)
Dette program hører lidt ind under spørgsmål 2, hvordan kan jeg lave en skjul knap så den lukker vinduet, og kun ligger som det omtalte "Lille ikon"?

For at få dit program ned i system bakken skal du have en tray komponent. En rigtig god er TCoolTrayIcon, som du kan finde her: http://subsimple.com/delphi.asp

Der er nogle gode eksempler som du kan studere.

Alternativet til en komponent er jo at kode det selv, men det bliver hurtigt langhåret, så det er nemmest med en komponent.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Den 06-01-04 16:39 skrev Rune Jensen følgende:
-----------------------------------------------------------------------------
[1.)
Hvordan kan jeg åbne et program med en tilfældig string, jeg har en kode til at lukke et andet program op med, men jeg kan ikke rigtigt finde ud at hvordan jeg skal, stien til programmet ligger i en ini fil som ser således ud?

[Programmer]
Battlefield=c:\\spil\\battlefield\\bf1964.exe
Test=c:\\spil\\hej\\hfgh964.exe

]

For at finde ud af hvordan du sætter en ini fil ind i en string synes jeg du skal læse den første af de 2 artikler her på udvikleren om Ini Filer. HVis du ikke kan finde ud af det derfra siger du bare lige til.
Når du har loadet Ini filen ind i en string er det bar at skrive:

shellExecute(Handle, 'open', pchar(her skriver du navnet på din string), '', nil, SW_SHOWNORMAL);

[2.)
Hvordan kan jeg lave sådan at et program automatisk starter når windows starter, jeg vil gerne have den til at starte som et lille ikon nede på proceslinien, det ikon skal man så kunne højre klikke på og så skal der poppe en popUp menu op.?]

For at få programmet til at starte hver gang com'en starter er du nød til at lave registry key. Det kan gøres med følgende kode:

Her er en hele unit'en for det du ønsker, Der skal tilføjes 2 knapper og begge deres onClick events skal bruges + formens onShow 

Kodeeksempel
unit Unit1;

interface

uses
  //Her er der ændret
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
private
     //Registreringsdatabaseobjektet
  Reg: TRegistry;
  public


  end;

var
  Form1: TForm1;

  
const
  //En konstant der indeholder den nøgle vi skal frem til
  RegKey = 'Software\\Microsoft\\Windows\\CurrentVersion\\Run';

implementation

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Reg.Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   //Her er det notepad der vil starte næste gang
  //NB! Første parameter angiver værdiens navn, det
  //skal være unikt for ellers vil andre programmer
  //jo overskrive det.
  //Anden parameter skal være komplet(undtagen notepad eller paint eller sån noget)
  Reg.WriteString('Navnet på dit program', 'notepad.exe');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Her sletter vi værdien(hvis den eksisterer)
  if Reg.ValueExists('Detteskalvaereunikt') then
   Reg.DeleteValue('Detteskalvaereunikt');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //Her opretter vi registry objektet
  //for det hele er i registreringsdatabasen
  Reg := TRegistry.Create;

  //Hvis programmet skal starte hver gang
  //ligemeget hvem der logger på skal
  //Rootkey := HKEY_LOCAL_MACHINE
  //istedet for HKEY_CURRENT_USER
  Reg.RootKey := HKEY_CURRENT_USER;

  //Vi åbner nøglen hvori det er, at
  //windows leder efter programmer
  //der skal startes op
  Reg.OpenKey(RegKey, false);
end;

end.

[4.)
Hvordan kan man låse en form så man ikke selv kan justere størelsen, og hvordan kan man lave den menu om der står hvad ens forms caption står til?]

Du kan låse formen ved enten i object inspectoren sætte dens autosize til true eller sætte borderstyle til single.



Mvh.
Rune Jensen

[Redigeret d. 06/01-04 16:40:22 af Rune Jensen]
-----------------------------------------------------------------------------
Hej.
Jeg har lige et par enkle spørgsmål til din kode, i spørgsmål 1, har jeg denne kode, men det jeg ikke kan finde ud af er kun at læse det efter = tegnet i ini filen.

spørgsmål 2, kan man ikke lave dette uden knapper hvis ja hvordan?

Mvh.
Kasper Nielsen

Hej.
Jeg har lige et par enkle spørgsmål til din kode, i spørgsmål 1, har jeg denne kode, men det jeg ikke kan finde ud af er kun at læse det efter = tegnet i ini filen.

Du skal bruge denne kode:

(MyINI.Readstring('Programmer', 'Battlefield eller test', '')
[quote]

spørgsmål 2, kan man ikke lave dette uden knapper hvis ja hvordan?


Det kan du godt... Der er mange måder.. Du kan bare sætte koden fra button 1 ind i f.eks. formens OnCreate hvis du vil have den til at skrive reg keyen ligeså snart programmet starter. Og noget af det samme m button 2. Bar spørg hvis der er mere..
Mvh.
Rune Jensen

Den 08-01-04 11:59 skrev Thomas Due følgende:
-----------------------------------------------------------------------------

2.)
Hvordan kan jeg lave sådan at et program automatisk starter når windows starter, jeg vil gerne have den til at starte som et lille ikon nede på proceslinien, det ikon skal man så kunne højre klikke på og så skal der poppe en popUp menu op.?

3.)
Dette program hører lidt ind under spørgsmål 2, hvordan kan jeg lave en skjul knap så den lukker vinduet, og kun ligger som det omtalte "Lille ikon"?


For at få dit program ned i system bakken skal du have en tray komponent. En rigtig god er TCoolTrayIcon, som du kan finde her: http://subsimple.com/delphi.asp

Der er nogle gode eksempler som du kan studere.

Alternativet til en komponent er jo at kode det selv, men det bliver hurtigt langhåret, så det er nemmest med en komponent.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk
-----------------------------------------------------------------------------
Ok.
Men hvordan sætter man sådan et komponent op?

Mvh.
Kasper Nielsen