Asp Open

{
Murat Turan

ASP çalıştırma hep benim açımdan problem olmuştur.
ASP çalıştıracağım zaman explorer'i açık http://localhost/dizin/xxx.asp
veya http://makineadi/dizin/xxx.asp yazıp asp dosyalarını çalıştırmak
zorunda kalmışımdır. sanırım başada yol yokdur. Bu iş beni herzaman sıkmıştır.
Bende bir programcı olarak bu işe bir et atmam ve bu işe bir pratiklik
kazandırmam gerek dedim ve aşağıdaki programı yaptım. ASP ile çalışanların
sanırım işine yarayacaktır. :)

Yapmanız gereken aşağıdaki kodu forma eklemek ve programım exe sini
herhangi biryere atıp birkereye mahsus çalıştırmaktır.
Daha sonra ASP dosyalarına sağ tıkladığınızda ASP.Open komutu görülecektir.
Buna tıkladığınızda asp dosyası yorumlanmış olarak karşınıza gelecektir.

Kolay gelsin.
}

Uses registry, Filectrl;

{$R *.dfm}

procedure Tana.FormCreate(Sender: TObject);
var
 REG:TREGISTRY;
begin
 REG := TRegistry.Create;
 TRY
 REG.RootKey := HKEY_CLASSES_ROOT;
 if Reg.OpenKey('\aspfile\shell\ASP.Open\Command', True) then
 begin
   Reg.WriteString('','"' + Application.ExeName + '"' + ' %1');
   Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;

procedure Tana.FormShow(Sender: TObject);
var
 i:string;
 sadecead:string;
 nerde:integer;
begin
 i := ParamStr(1);
 nerde := Pos('wwwroot',i);
 sadecead :=  'http://localhost/' + Copy(i,nerde+8,length(i) );
 WinExec(pchar('Explorer.exe '+sadecead),sw_normal);
end;

procedure Tana.FormPaint(Sender: TObject);
begin
 Close;
end;