Mega Code Archive
Asp open
<![CDATA[
{
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;
]]>