急急急,(50分)

Y

yuanjj76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #1

bitmap:=tbitmap.Create;
BitMap.LoadFromFile('d:/nightware/work/2.bmp');
Canvas.Draw(20,20,BitMap);

我画出2.bmp图片是绝对路径,怎么写能做成相对路径.
因为主程序存放目录是可变的,

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #2

var
AppPath:String;
begin
AppPath:=ExtractFilePath(Application.ExeName);
SHowMessage('应用程序路径是：'+AppPath);
end;

 

Y

yuanjj76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #3

接受答案了.

 

D

dcshi2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #4

VAr FilePath:string
FilePath:=ExtractFilePath(Application.ExeName+'/2.bmp');
BitMap.LoadFromFile(FilePath);