Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Вниз

C: Windows System   Найти похожие ветки 

 
Александр из Минска   (2003-10-23 20:33) [0]

И как определить эту папку? Я нашел Windows.GetSystemDirectory, но я не знаю, что писать в параметрах. Напишите, пожалуйста, полный пример определения этой папки.


 
Anatoly Podgoretsky   (2003-10-23 20:36) [1]

Да тамже параметров кот наплакал, адрес буфера и его длина


 
default   (2003-10-23 20:37) [2]

в параметрах надо писать то, что написано в хелпе


 
Александр из Минска   (2003-10-23 20:41) [3]

Не понял:( Напишите, пожалуйста, пример с параметрами. А в хелпе только 2-ой параметр я видел...


 
Anatoly Podgoretsky   (2003-10-23 20:42) [4]

GetSystemDirectory(Buf,SizeOf(Buf))


 
Александр из Минска   (2003-10-23 20:44) [5]

Извиняюсь за тупой вопрос, но какого типа Buf, и что ему присвоить?


 
Anatoly Podgoretsky   (2003-10-23 20:45) [6]

Любого, присваивать ему ничего не надо


 
default   (2003-10-23 20:46) [7]


procedure TForm1.Button1Click(Sender: TObject);
var
Buf: String;
begin

SetLength(Buf, 100);
SetLength(Buf, GetSystemDirectory(PChar(Buf), 100));
if Length(Buf) > 0 then Caption := Buf else ShowMessage("Где-то тупишь")

end;

совсем обленились


 
Александр из Минска   (2003-10-23 20:47) [8]

Даже Integer подойдет?
И еще тип выводимого результата - Cardinal (как это в строку сделать (случайно не PChar(...))?)


 
Александр из Минска   (2003-10-23 20:48) [9]

ОГРОМНОЕ СПАСИБО!!!


 
Anatoly Podgoretsky   (2003-10-23 20:55) [10]

Что случилось, кто тебя заставил програмированием заниматься?



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
4-99828
SkyRanger
2003-11-03 14:45
2003.12.30
Аналог StrTo... и ...ToStr на WinAPI


3-99498
snake
2003-12-07 19:49
2003.12.30
Где можно найти инфу про ado rdsconnection....


1-99584
Chery
2003-12-17 14:55
2003.12.30
Как строковой переменной присвоить значение ковычки ?


14-99774
kaif
2003-12-05 17:15
2003.12.30
Совершенная модель демократии


14-99700
Serj
2003-12-09 06:08
2003.12.30
Цифровая фотокамера





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский