ens program default for filer?

En sidste ting... hvis du får brug for det...

hvis der skal bruges flere parametre i dit program så kan du evt. bruge ParamCount til at lave en for sætning med... eks:
<pre>
var
J:Integer;
Begin
For J := 0 to ParamCount do begin
if ParamStr(J) = '+p' then begin
//noget den skal
end;
if ParamStr(J) = '+i' then begin
//noget andet den skal
end;
end;
end;</pre>[Redigeret d. 18/08-02 17:25:41 af Elias][Redigeret d. 18/08-02 17:26:20 af Elias][Redigeret d. 18/08-02 17:27:25 af Elias]

Hey allesammen,

Hvad skal jeg skrive af code for at kunne lave mit program default for filer?
(i mit program ikke i windows/registrerings databasen)

Ken Christensen
Christensenken@hotmail.com
www.Kenchristensen.tk

Du kan jo bare skrive i registrerings databasen med dit program.

Emil Melgaard
emil.melgaard@private.dk

Hey allesammen,

Hvad skal jeg skrive af code for at kunne lave mit program default for filer?
(i mit program ikke i windows/registrerings databasen)

Ken Christensen
Christensenken@hotmail.com
www.Kenchristensen.tk

Nedenstående snip viser hvorledes du kan gøre det


Var
Reg : TRegistry;

Begin
Reg := TRegistry.Create;
try

with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('MyApp', True);
WriteString('', 'MyApp File');
CloseKey;

OpenKey('MyAppDefaultIcon', True);

// The first parameter below MUST be a blank string
// The last parameter is the icon in your EXE file to use.
WriteString('', Application.ExeName + ',0');

CloseKey;

OpenKey('MyAppshellopencommand', True);
WriteString('', Application.ExeName + ' "%1"');
CloseKey;

RootKey := HKEY_CLASSES_ROOT;
OpenKey('.ext', True); //substitute .ext with
//the extension you desire
WriteString('', 'MyApp');
CloseKey;
end;
finally
Reg.CloseKey;
Reg.Free;
end;
End;

Man bliver da også nød til at angive parametrene i ens program (prøvede det andet før jeg postede her.. og det virkede ikke).

Ken Christensen
Christensenken@hotmail.com
www.kenchristensen.tk

Man bliver da også nød til at angive parametrene i ens program (prøvede det andet før jeg postede her.. og det virkede ikke).

Ken Christensen
Christensenken@hotmail.com
www.kenchristensen.tk

altså... du skal jo huske at lave noget som tager imod parametrene... f.eks:

Formens OnCreate:
memo1.lines.loadfromfile(ParamStr(1))

-
neuroman? det' da mig
Aloha - Er du fresh???

Det var den kode jeg gerne ville vide
(resten er sku nemt nok...)
Thx

Ken Christensen
Christensenken@hotmail.com
www.kenchristensen.tk

Det var den kode jeg gerne ville vide
(resten er sku nemt nok...)
Thx

Ken Christensen
Christensenken@hotmail.com
www.kenchristensen.tk

du skal liiige udlevere nogle up'er til den du syns svarede bedst!
-
neuroman? det' da mig
Aloha - Er du fresh???