Windows Registry Editor Version 5.00

Åbne den i Notpad eller hva??

lol nej

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\\LIF]
@=\"URL:LIF Protocol\"
\"EditFlags\"=dword:00000002
\"URL Protocol\"=\"\"
\"BrowserFlags\"=dword:00000008

[HKEY_CLASSES_ROOT\\LIF\\shell]
@=\"open\"

[HKEY_CLASSES_ROOT\\LIF\\shell\\open]

[HKEY_CLASSES_ROOT\\LIF\\shell\\open\\command]
@=\"c:\\\\addressentilmitprogram\\\\mitprogram.exe \\\"%1\\\"\"

[HKEY_CLASSES_ROOT\\LIF\\shell\\open\\ddeexec]

er det en ny filtype du prøver på at regitrerer?

Det skal virke sådan at hvis man for eksempel skriver lif://blah så skal mit program åbnes...så ja det kan man godt sige

Så det er altså en ny filtype du vil lave, med extension .LIF ?
Og så når man klikker på den fil  åbnes dit program, og du læser ved hjælp af %1 hvor filen som blev kørt ligger.
Ved du hvordan du får dit program til at læse param strengen?

Nej det er online download links..dvs.
klikker du på lif://253524123 så starter programmet og begynder at downloade den fil (253524123  er filens ID)

jaja nu tror du jeg er lam :)
Men for fanden prøv lige at kigge på den information som du har givet om dit problem...

Er lif en onlinelink i en browser eller hva?
Er det en fil som du har liggende på din computer?
Eller noget andet?

:)

lif://  = http://

forstår du? på den måde skal folk have mit program installeret for at kunne downloade en fil...

skriver man lif://www.opasia.dk kommer man ingen steder...har man programmet installeret vil den kunne forstå det:)

Ok nu forstår jeg :>.
Men jeg går i seng nu, jeg vil tænke over det.
Ses

Normalt ville dit program blive eksekveret med %1 som foerste parameter. Og saa burde du bare kunne hente den ved en alm. \'hent parameter fra command line\' kommando. Jeg kan ikke lige huske hvordan man henter den ud fra Delphi, men i C++ Builder kan du bruge ParamStr() funktionen. Mon ikke Delphi har en tilsvarende?

procedure TForm1.Button1Click(Sender: TObject);
var
R : Tregistry;
begin
R :=TRegistry.Create;
R.Rootkey:=HKEY_CLASSES_ROOT;
with R do try
if keyexists(\'\\LIF\') = true then
showmessage(\'Findes // begynd at downloade\')
else  begin
showmessage(\'Findes ikke // ingenting at downloade\');

R.CloseKey;
end
  finally
R.Free;
  end;
  end;

okay, jeg tror jeg har forstået hvad du vil. Kan du så ikke lige fortælle hvor langt du er kommet. Altså hvad mangler du at få hjælp til. Det synes jeg ikke man kan få ud af det du har skrevet.

Jeg har også lige lavet min egen protocol, så mit program åbner hvis man skriver speedy://filen.txt


/SpEeDy

Speedy:
Hvis det er muligt kunne jeg godt tænke mig at se den protocol.... eller hvis du lave den så den åbner  hvis man skriver lif://filen.txt
Jeg kan godt åbne et spørgsmål og give dig point for den.





Flere detaljer omkring programmet
-----------------------------------
Jeg vil lave en hjemmeside hvor alle links består i at være lif://3453463 (dvs... de tal er et ID til linket)
Når en person så beslutter sig for at downloade et af mine produkter så SKAL han have mit program installeret for ellers vil han bare få en page not found side. Hvis han derimod har det installeret så vil programmet starte og ved hjælp af linkets id vil den finde ud af hvad det er man vil downloade.
---------------------------------------------


Mit problem liggede i at få mit program til at starte hver gang der blev klikket eller skrevet lif://etellerandet  i adresse baren.
Jeg tror at det er den protocol speedy har lavet jeg mangler derfor vil jeg lige kigge på den og vende tilbage..

procedure Registrer;
var
  Reg: TRegistry;
  buf: Integer;
begin
  buf := 2;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.OpenKey(\'lif\', true);
  Reg.WriteString(\'\', \'URL:Legende Ivrende Folk\'); // Erstat Legende Ivrende Folk med hvad LIF står for
  Reg.WriteBinaryData(\'EditFlags\', buf, 1);
  Reg.WriteString(\'URL Protocol\', \'\');
  Reg.OpenKey(\'shell\\open\\command\', true);
  Reg.WriteString(\'\', Application.ExeName + \' %1\');
  Reg.CloseKey;
end;


Denne procedure skriver sig ind i registreringsdatabasen på en måde så det er dit program som bliver kørt når der bliver kørt en lif://4897436  i browseren.

Så skal du ind i onCreate på din Form og sige dette:

procedure TForm1.FormCreate(Sender: TObject);
var
  Params, DownloadID: string;
  position: integer;
begin
  if ParamCount > 0 then
    Params := lowercase(ParamStr(1));
  Position := Pos(\'lif://\', Params);
  if position > 0 then
    DownloadID := Copy(Params, 7, Length(Params) - 7);
  ShowMessage(DownloadID);
end;

Så kan du gøre hvad du vil med DownloadID som nu indeholder det nummer det blev kaldt med.

Altså hvis du registrerer med den procedure, og dereter skriver: lif://4656656  i browseren, åbner dit program og popper up med tallet 4656656.

Var det noget i den stil du skulle bruge ?

/SpEeDy

Uses
  Registry;

dkn>>Nå ja, havde jeg lige glemt at sige :)

/SpEeDy

Tak til jer alle sammen og især speedy for den fine kode stump:)

Jeg er ikke sikker på hvordan jeg skal fordele pointene.... nok flest til speedy:)