Åbne en mappe

Du laver et program med en lignende funktion:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bibliotek: String;
begin
  Bibliotek:=\'C:\\jens\';
  if SelectDirectory(\'Angiv katalog med installationsfilerne.\' {Bliver brugt som en overskrift}
                    ,\'\' {Roden hvis du skriver C:\\Dokumenter vil det biblitek være øverst i listen}
                    , Bibliotek {Her gemmes det valgte bibliotek}) then
  begin
    //Koden til at behandle det valgte katalog
    label1.caption:=Bibliotek;
  end;
end;

Herefter laver du en fil - autorun.inf
Denne fil skal indeholde flg.

[autorun]
open=mitprogram.exe

du kan bruge shellexecute til det...

hvis du har en knap som ved et tryk skal åbne fx. \"d:\\fun\\\". så kan du skrive:

shellexecute(handle, \'open\', pchar(\'d:\\fun\\\'), \'\', \'\', SW_OPEN);

og så skal du også lige tilføje \"Shellapi\" til USERS.

derefter skal du ligge dit program ud på cd\'en. og så lave en autorun fil, du kan bruge notepad.
i notepad skriver du så:

[autorun]
open= (dit program\'s navn og det\'s sti fx. \"d:\\mit_autorun_program.exe\")

og så gemmer du dokumentet til en fil ved navn:

autorun.ini

og så ligger du autorun filen ud på rodden af din CD fx. \"d:\\autorun.ini\"...

/ZIRON

undskyld det kan du ikke helt for alle har jo ikke \"d\" som CD-ROM drev...

kommer med noget mere om lidt...

/ZIRON

og det hedder heller ikke:

shellexecute(handle, \'open\', pchar(\'d:\\fun\\\'), \'\', \'\', SW_OPEN);

men istedet:

shellexecute(handle, \'open\', pchar(\'d:\\fun\\\'), \'\', \'\', SW_SHOW);

/ZIRON

problemmet med CD-ROM drevet kan du løse ved kun at skrive fx. \"\\fun\\\" istedet for \"d:\\fun\\\".

/ZIRON

Det er heller ikke en .INI, men en .INF fil.

okay helt perfekt skal det jo være :-)