如何用delphi打开pas文件

Posted 2023-03-28

先用delphi打开.pas文件，打开前记得关掉默认打开的工程，然后点工程，添加工程，再选你这个pas，就可以编译运行了！ 参考技术A delphi的pas文件是文本文件，File--open 就打开了，

如何用delphi修改文件关联

比如说我要用word打开*.txt文档，或者让*.avi无法打开如何做到

参考技术A ---- 在窗体中放置一个按钮，双击按钮写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

var

lphKey: HKEY;

sKeyName: string;

sKeyValue: string;

begin

sKeyName := ′myfile′;

sKeyValue := ′我的文档′;

RegCreateKey(HKEY—CLASSES—ROOT

pchar(sKeyName)

lphKey);

RegSetValue(lphKey

′′

REG—SZ

pchar(sKeyValue)

0);

sKeyName := ′.xyz′;

sKeyValue := ′myfile′;

RegCreateKey(HKEY—CLASSES—ROOT

pchar(sKeyName)

lphKey);

RegSetValue(lphKey

′′

REG—SZ

pchar(sKeyValue)

0);

sKeyName := ′myfile′;

sKeyValue := ′c:\Windows\NotePad.exe ％1′;

RegCreateKey(HKEY—CLASSES—ROOT

pchar(sKeyName)

lphKey);

RegSetValue(lphKey

′shell\open\command′

REG—SZ

pchar(sKeyValue)

MAX—PATH);

end;

---- 建立一新文件，使其扩展名为.xyz，然后双击它看是否是启动记事簿来打开的。