Henvisning til cd-rom drev

Opendialogs.InitialDir := ExtractFileDrive(application.exe);

// uses sysutils

application.exename

Hej dkn
Dit svar er muligvis rigtig men som sagt er det mit første program så jeg må nok have mere hjælp Så snart jeg fjener c:\filer fra InitialDir Boxen og prøver at skrive din linie
søger den i dokumentmappen på c-drevet istedet

den kode jeg gav skal du køre inden opendialog, så vil jeg tro det virker

Ja det er måske ikke rigtig som jeg gør men kan ikke få det til at virke den går i dokumentmappen på c-drevet

måske jeg har misforstået dig.
Jeg troede at du havde et program som kom til at ligge på en cd senere, og så ville du starte din dialogbox der med:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFileDrive(application.exename) + '\';
  if OpenDialog1.Execute then
// ...
end;



Men istedet tror jeg det du prøver på at sige er at dit program stadig kører på harddisk, men du vil bare gerne starte på det første cdrom drev som findes på computeren:

procedure TForm1.Button1Click(Sender: TObject);
var
  Drive            : char;
begin
  for Drive := 'A' to 'Z' do
    if GetDriveType(pchar(Drive+ ':\')) = DRIVE_CDROM then
    begin
      OpenDialog1.InitialDir := Drive + ':\';
      if OpenDialog1.Execute then
        showmessage(OpenDialog1.FileName);
  // ...
        break; // stopper loop
    end;
end;

Hej dkn
Nej du har ikke misforstået det, jeg ønsker at program / filer ligger på cd-rom
kan se at den kodelinie du skriver ikke helt er det jeg har prøvet så jeg vil vende tilbage til dig med svar senere

Hej dkn
Har nu fået prøvet den øverste del af din kode og er sikker på at det er tæt på men.

Nu åbner dialogboxen i c:\delphi\projekt

Det jeg jo vil have er ?:\filer  hvor ?er lig med ukendt cd-rom drev og
og filer er den mappe med den type filer som filter er sat til.

Derfor kan du forklare disse stumper kode for mig

InitialDir := ExtractFileDrive (Er det koden som vælger cd-rom drevet)?
(application.exename) Her er jeg i tvivl har prøvet lidt af hvert men det har
ikke ændret på c:\delphi\projekt

+ '\'; her har jeg prøvet skrive uden ændring og med filer efter \ det gav dog ikke noget

// ...  har skrevet koden uden ændring men hvad betyder det?

Håber du har tid at svare

ligenu tager den stien til din exe fil og pakker drev bogstav ud og sætter den som initial dir.

Dvs når dit program kommer over på en cd fil den starte på fx D drevet

Hej dkn

Har nu lavet cd og det virker!!!!!!

Der er dog en forskel når den ligger på hard disk åbner dialogboks
direkte i mappen "filer" og jeg kan der vælge den fil der ønskes
men når den kommer på cden skal der først vælges mappen "filer"
før den åbner mappen ?????
Når men du har fortjent dine points

Så hvis du har svaret på dette er det ok

Tak for hjælpen

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFileDrive(application.exename) + '\Filer\';
  if OpenDialog1.Execute then
// ...
end;


skulle jo gøre det