我想要改变我 D盘下的 luozs.exe 的扩展名为 .Dll 我想通过编程，请教如何作。(0分)

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #1

我想要改变我 D盘下的 luozs.exe 的扩展名为 .Dll 我想通过编程，请教如何作。
我查过一些资料。

一般都是给出一个函数。但对于我这个初学者来说，真是有点麻烦。

所以希望大侠们能帮助一下小弟。请给出具体一点的解答或代码。！

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #2

ReName();

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #3

在线等待中~~~~~~~~~~~~~~~~~~~

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #4

uses Dialogs;
var

f : file;
begin
OpenDialog1.Title := 'Choose a file... ';
if OpenDialog1.Execute then
begin
SaveDialog1.Title := 'Rename to...';
if SaveDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName +
' to ' + SaveDialog1.FileName);
Rename(f, SaveDialog1.FileName);
end;
end;

end;

 

D

DEN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #5

看看帮助把:
function RenameFile(const OldName, NewName: string): Boolean;
procedure Rename(var F; Newname:string);
procedure Rename(var F; NewnameChar);
如果源文件有ReadOnly 等属性,可能要先去掉这些属性才能成功.

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #6

Var
OldName:String;
Begin
OldName:='D:/ddd.exe';
Rename(OldName,ChangeFileEXT(OldName,'.DLL'));
End;

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #7

Var
OldName:String;
Begin
OldName:='D:/ddd.exe';
Rename(OldName,ChangeFileEXT(OldName,'.DLL'));
End;

這個好象不可以呀。。

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #8

uses Dialogs;
var

f : file;
begin
OpenDialog1.Title := 'Choose a file... ';
if OpenDialog1.Execute then
begin
SaveDialog1.Title := 'Rename to...';
if SaveDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName +
' to ' + SaveDialog1.FileName);
Rename(f, SaveDialog1.FileName);
end;
end;

end;


----------------------
這一段代碼我也查到了。

我是不想出現什麽選擇文件的。我是想無聲無息的將文件擴展名改了。。

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #9

謝謝大家，我搞定了。。其實非常簡單！！！

唉。。我是一個大菜鳥。什麽都不懂。。

下面的代碼就可以了。

procedure TForm1.Button1Click(Sender: TObject);
var
f : file;
begin
AssignFile(f, 'd:/luozs.exe');
Rename(f, 'd:/luozs.dll');
end;
end.

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #10

对不起我少写了File
Var
OldName:String;
Begin
OldName:='D:/ddd.exe';
RenameFile(OldName,ChangeFileEXT(OldName,'.DLL'));//RenameFile不是ReName
End;

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-20

• #11

接受答案了.