Hjælp?

brug initialdir propertien

OpenDialog1.IniitalDir := \'C:\\tep\';
if OpenDialog1.Execute then
  ...

Nico> i object inspektoren right?
Akal jeg så bare skrive f.eks. /template eller hvad skal jeg gøre?

kigger lige om det virker som det skal:-)

Det nemmeste er selfølgelig at sætte den i object inspectoren. Du skriver bare hele stien

oki:-) så er det hele lidt nemmere:-)

c:\\tep skal der være close dir på altså en \\

nope - ikke nødvendigvis

Får jeg så ikke et problem med udlandske personer der bruger mit program..

jeg har sat den til

c:\\programmer\\Tep\\

windows engelsk bruger jo programs, eller oversætter den mon selv det?

nej-den oversætter ikke selv, men jeg mener at du kan finde stien på \"programmer\" mappen i registreringsdatabasen.

Her kan du finde stien til mappen:

LocalMachine\\Software\\Microsoft\\Windows\\CurrentVersion - \"ProgramFilesPath\"

Delphi har en klasse der hedder TRegistry (i registry uniten) der gør det nemt at læse/skrive reg db

nico> nu er jeg ikke kommet så langt i delphi,at jeg er kommet til regdatabasen..

Skal jeg skrive LocalMachine\\Software\\Microsoft\\Windows\\CurrentVersion - \"ProgramFilesPath\"
eller er der noget jeg har misforstået?

nej - Det jeg skrev er stien i db\'en. Du er nødt til at læse fra registreringsdatabasen for at hente navnet på stien.

Jeg laver lige en stump kode..

mange mange tak, skal jeg sætte points op?

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses
  Registry;

{$R *.DFM}

function ProgDir: string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\', False) then
        Result := ReadString(\'ProgramFilesPath\')
      else
        Result := \'\';
    finally
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ProgDir);
end;

end.

funktionen \"ProgDir\" finder navnet på \"Programmer\" mappen, og forudsat at du har en mappe der hedder \"tep\" kan du skrive følgende:

var
  Path: string;
begin
  Path := ProgDir + \'\\tep\';

  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ...

end;

Du behøver ikke sætte pointene op, jeg er ligeglad med dem (de kan jo ikke bruges til noget).

Du bør måske overveje at tjekke om mappen eksisterer, evt. når programmet starter op. Hvis så ikke den findes, kan du lave den.

det vil sige, at jeg kan nøjes med dette stykke kode?var
  Path: string;
begin
  Path := ProgDir + \'\\tep\';

  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ...

end;

yep - men den funktion jeg skrev (\"ProgDir\") skal naturligvis også være der.

den mappe skal være der, da den bliver installeret sammen med resten af programmer, som en del af en stort lib:-)

function ProgDir: string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\', False) then
        Result := ReadString(\'ProgramFilesPath\')
      else
        Result := \'\';
    finally
      Free;
    end;
end;

ja den?

ja den - og husk \"Registry\" i under uses

jepz har jeg lige sat ind:-)

kører det???

nico> nu er jeg lidt i tvivl(igen,igen)

Jeg har min knap der hedder templates
skal jeg smidde hele koden ind under den knap, altså:function ProgDir: string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\', False) then
        Result := ReadString(\'ProgramFilesPath\')
      else
        Result := \'\';
    finally
      Free;
    end;
end;

Path: string;
begin
  Path := ProgDir + \'\\tep\';

  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ...

end;


eller hvad? jeg er forholdvis nybegynder kan du nok se:-)

Bare smid den udenfor men du kan også lave en lokal function.

Global funktion:

function ProgDir: string;
begin
...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: string;
begin
  Path := ProgDir + \'\\tep\';

  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ...
end;

Lokal funktion:

procedure TForm1.Button1Click(Sender: TObject);

  function ProgDir: string;
  begin
  ...
  end;

var
  Path: string;
begin
  Path := ProgDir + \'\\tep\';

  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ...
end;

Hvad du vælger afhænger lidt af hvor genanvendelig funktionen er.

den laver en fejl i din første kode:-(

unknown directive path

hvad kan det være jeg har glemt, mangler?

Så mangler du at skrive \"var\" der hvor du erklærer Path.

var
  Path: string;
begin
...

Prøv at lav en ny application, og læg en knap og en opendialog på formen. Copy/paste dernæst nedenstående

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses
  Registry;

{$R *.DFM}

function ProgDir: string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\', False) then
        Result := ReadString(\'ProgramFilesPath\')
      else
        Result := \'\';
    finally
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: string;
begin
  Path := ProgDir + \'\\tep\';
  OpenDialog1.InitialDir := Path;
  if OpenDialog1.Execute then
    ShowMessage(OpenDialog1.FileName);
end;

end.

nico får points for alt hans hjælp..
mange tak du:-)

mads/

tak - men fik du det til at virke