Анимированные курсоры....

← →
hatchy © (2002-12-25 16:31) [0]

var
h : THandle;
begin
h := LoadImage(0, "C:\TheWall\Magic.ani", IMAGE_CURSOR,
0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h = 0 then ShowMessage("Не удалось загрузить курсор!")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;

Это код загрузки анимированных курсоров.... у меня вопрос..здесь надо указывать путь "C:\TheWall\Magic.ani" но если я дам свою программу кому нибудь другому в которой будет использован анимированный курсор то у того человека будет другой путь к анимированному курсору. курсор не будет загружен кроме того программа может не работать .....как устранить глюк???

← →
Cobalt © (2002-12-25 16:35) [1]

Хранить курсор в папке с програмой или в ее ресурсах.

← →
Ketmar © (2002-12-25 16:45) [2]

не указывать абсолютные пути.

Satanas Nobiscum! 25-Dec-XXXVII A.S.

← →
hatchy © (2002-12-25 16:57) [3]

как так не указывать пути?

← →
hatchy © (2002-12-25 16:58) [4]

ето понятно что в одной папке хранить а как тогда код изменить?

← →
Ketmar © (2002-12-25 17:02) [5]

а никак пути не указывать. вот не указывать, и все.

Satanas Nobiscum! 25-Dec-XXXVII A.S.

абсолютный путь: C:\windows\commands\format c: /q
те говорят писать: format c: /q но при этом рядом с твоим ехе должен лежать твой ресурс

var Path:String;

Path:=ExtractFilePath(ParamStr(0))+"Magic.ani";

h := LoadImage(0, Path, .......

Анимированные курсоры.... Найти похожие ветки