Скопировать SetCurrentDirectory к себе в модуль

[Alex Cones]

Не очень хочется подключать Windows (итак уже до 57 кб разросся) поэтому хочу извлечь только процедуру SetCurrentDirectory вот, как она описывается там:

function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';

Похоже она извлекается из библиотеки. Вот только я что-то не вижу тут разрешения dll. Если я у себя в модуле напишу:

function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';
Begin
 SetCurrentDirectory(PAnsiChar(S));
End;

Будет ли это стабильно работать? Или где-то надо этот самый kernel32 подключать до описания фунок?

[raxp]

делаю обычно так:

unit winplug;

interface

  function SetCurrentDirectory(lpPathName: PChar): boolean; stdcall; external 'kernel32.dll' name 'SetCurrentDirectoryA';

implementation

end.

далее цю функу вже можно использовать SetCurrentDirectory('c:');... ну или теж саме в основном проекте.

[Alex Cones]

Огромное спасибо. А все-таки, почему в SysUtils не было указано формата библиотеки? Его можно опускать?

[raxp]

полное описание функи либы содержится все в то-же модуле windows, когда в своем проекте жмешь левой кнопкой мыши с зажатым Ctr на функе SetCurrentDirectory оно в модуле windows перейдет на function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';, уже тут жмакаешь на SetCurrentDirectory и оно выдает параметры вызова- function SetCurrentDirectory(lpPathName: PChar): BOOL; stdcall;

[Alex Cones]

Спасибо, с вызовом разобрался, но выводит ошибку Invalig Typecast:

Procedure SCR_GTD(Frt, Snd : ShortString);
 Begin
  If Frt = 'SRG' Then SetCurrentDirectory(PAnsiChar(SRG));
 End;

SRG = ShortString;
Пробовал без PAnsiChar - несоответствие типов PAnsiChar и ShortString. Пробовал PChar -тот же typecast

[raxp]

var srg: string;

[Alex Cones]

Т.е. ограничивать нельзя? Или попробовать через промежуточную переменную?

Сделал вот так: пашет. Еще раз спасибо.

Procedure SCR_GTD(Frt, Snd : ShortString);
 Var
  BufSRG:String;
 Begin
  If Frt = 'SRG' Then
   Begin
    BufSRG := SRG;
    SetCurrentDirectory(PAnsiChar(BufSRG));
   End;
 End;

P.S. Не люблю неограниченные типы...

[raxp]

а какой смысл тогда в промежуточной переменной, если изначально можно задать требуемый тип, экономии не будет.

[Alex Cones]

Ну... Во-первых BufSRG должна освободить помещение сразу после выхода из процедуры (кажись...), а во-вторых мне крайне необходимо, чтобы SRG была ограниченной в 255 символов, т.к. я использую её в своей системе скриптов (Костяк составил, теперь, как говорит Mihali4 "наращиваю мясо"). SRG так и расшифровывается - StringReGister. Есть у меня еще FileReGister, BoolReGister и IntegerReGister (к слову говоря, являющийся SmallInt`ом)

[raxp]

тогда сделай так:

var srg:SHORTSTRING;
Procedure SCR_GTD(Frt, Snd : ShortString);
 Begin
  If Frt = 'SRG' Then SetCurrentDirectory(pansichar(srg+''));
 End;