Delphi ile asp dosyalarını açmak

[Ancestor]

Kod: Tümünü seç

procedure TForm1.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 TForm1.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 TForm1.FormPaint(Sender: TObject);
begin
 Close;
end;

nerde := Pos('wwwroot',i);
kısmındaki wwwroot kısmını kendimize göre ayarlıyoruz, C:\inetpub\wwwroot olarak geçiyorsa hiçbir ayarlamaya gerek yok.
Programı sağlam bir yere kopyalayın ve orada .exe dosyasını bir defaya mahsusen çalıştırın. Daha sonra istediğiniz bir asp dosyanıza sağ tıklayarak Asp.Open ı tıklamak suretiyle asp dosyalarınızı rahatlıkla açabilirsiniz..
Önemli Not : Programı ilk defa çalıştırdığınız yerden asla ve asla kaldırmayınız..

Kolay Gelsin

[mussimsek]

ilgili programın kodlarını siteden indirebilirsiniz : http://www.delphiturkiye.com/dsplus/m.php?p=AspOpen.zip

Teşekkürler.