PDA

View Full Version : تعریف پسوند جدید در دلفی



مرتضی نویس
دوشنبه 15 فروردین 1384, 15:59 عصر
با سلام
لطفا بفرمایید چگونه می توان یک پسوند در دلفی طراحی کرد

بسیار متشکرم

در ضمن از سایت من دیدن فرمایید ضرر نمی کنید
www.3dproductsfair.com

نمایشگاه تولیدات سه بعدی

Touska
دوشنبه 15 فروردین 1384, 16:32 عصر
منظور خود را دقیق تر بیان کنید

موفق باشید :flower:

مرتضی نویس
دوشنبه 15 فروردین 1384, 16:41 عصر
منظور یک پسوند منحصر به فرد مثل NGR که پسوند منحصر به فرد نرم افزار ایرانی (نگار) می باشد

Touska
دوشنبه 15 فروردین 1384, 16:49 عصر
آن که مربوط به بعد از نصب نرم افزار شما دارد و پسوند شرایط خاصی ندارد و شما هر پسوندی دوست داشته باشید
می توانید بروی فایل های خود بگذارید و بعد برای icon آنها باید Install بسازید

موفق باشید
:flower:

nilufari
دوشنبه 15 فروردین 1384, 19:46 عصر
شما هر اسمی با هر پسوندی که دوست داشته باشید میتونید رو فایلاتون بزارید ... دیگه طراحی و این صحبتا نمیخاد .

Delphi Skyline
دوشنبه 15 فروردین 1384, 21:12 عصر
برای ثبت کردن پسوند نیز می تونید تو Mycomputer تولز (tools) و از آن جا folder option را برگزینید.
و بعد هم file type و بعد هم ثبت یک پسوند . این کار به شما کمک می کند که فایل ها را با برنامه خود اجرا کنید .

vcldeveloper
سه شنبه 16 فروردین 1384, 03:51 صبح
uses Registry;

procedure RegisterFileType(InternalName, FileExt, FileDescription: string);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_CLASSES_ROOT;
OpenKey(InternalName, True);
WriteString('', FileDescription);
CloseKey;

OpenKey(InternalName + '\DefaultIcon', True);
WriteString('', Application.ExeName + ',0');
CloseKey;
OpenKey(InternalName + '\shell\open\command', True);
WriteString('', Application.ExeName + ' "%1"');
CloseKey;

RootKey := HKEY_CLASSES_ROOT;
OpenKey(FileExt, True);
WriteString('', InternalName);
CloseKey;
finally
Reg.CloseKey;
Reg.Free;
end;
end;


مثال:


RegisterFileType('TestFile','.test','A Test File');

مرتضی نویس
سه شنبه 16 فروردین 1384, 10:33 صبح
ضمن تشکر بسیار از آقای علی کشاورز
حالا چگونه می توان به مانند Jet Audio و دیگر نرم افزارها فایل با پسوند تعریف شده خود را به برنامه خود Drag کرد
و یا با دوبار کلیک روی فایل با پسوند تعریف شده خود، فایل مورد نظر تحت برنامه خود باز شود
همان طور که می دانید این ویژگی به صورت پیش فرض وجود ندارد.
متشکرم

سایت من
www.3dproductsfair.com

Delphi Skyline
سه شنبه 16 فروردین 1384, 15:31 عصر
اینو من گفتم . اما شما می توانید به یک سری API این کارو بکنید

vcldeveloper
چهارشنبه 17 فروردین 1384, 01:38 صبح
و یا با دوبار کلیک روی فایل با پسوند تعریف شده خود، فایل مورد نظر تحت برنامه خود باز شود
از طریق همون تابع بالا این کار امکان پذیره


فایل با پسوند تعریف شده خود را به برنامه خود Drag کرد
از طریق Shell API ها